Извините, ничего не найдено.

Не расстраивайся! Лучше выпей чайку!
Регистрация
Справка
Календарь

Вернуться   forum.boolean.name > Программирование игр для мобильных телефонов > MidletPascal

Ответ
 
Опции темы
Старый 22.02.2010, 15:08   #1
LIDERSERVIS
Оператор ЭВМ
 
Регистрация: 20.10.2009
Сообщений: 49
Написано 2 полезных сообщений
(для 3 пользователей)
Ошибка при подключению к порту сервера

Програма на емуляторе идет - а в телефоне выкидывает из програмы и выбивает ошибку

Verify Error:
java/lang/VerifyError:Lib_socket


Все происходит при начальном входе и подключению к порту компютера который имеет постоянный IP.

ОШИБКА ПРИ ВХОДЕ В ПРОЦЕДУРУ PIDCLUCHENNYA_PORT_SERVER


function PIDCLUCHENNYA_PORT_SERVER boolean// ПЕРЕВІРКА ЧИ МОЖНА ПІДКЛЮЧИТИСЯ ДО ГОЛОВНОГО ПОРТА СЕРВЕРА
begin
if socket.open('socket://' +IP_SERVER':' +PORT_SERVER)<>0 then
        begin
        Debug
('Error');
        
PIDCLUCHENNYA_PORT_SERVER:=false;    
        
end else PIDCLUCHENNYA_PORT_SERVER:=true;
end;

// -------------------------------------------------
// ГЛАВНЫЙ ЦЫКЛ


begin 
     PORT_CLIENT
:='';
     
PASS:='';
            
   
prov2 := false;    //если prov2=true, то выходим из программы, иначе цикл продолжается 
    
repeat    //первый цикл, в котором выводится главное меню 
     
clearForm;
     
prov := false;   
     
     
// ВВОД ПАРОЛЯ
     
inform:=FormAddString('++++++++++');     
     
II:=FormAddTextField('Клієнт''1234567',  7TF_NUMERIC);      
     
I:=FormAddTextField('Пароль''1234567',  7TF_NUMERIC);      
              
     
Open_program := createCommand('Вхід'CM_OK2);        
     
Help := createCommand('Допомога'CM_OK3);        
     
Exit_program := createCommand('Вихід'CM_OK1);        
                  
     
addCommand(Open_program);
     
addCommand(Help);
     
addCommand(Exit_program);
         
showForm;
  
     
repeat    //второй цикл, в котором идет проверка выбранного пункта 
                
delay(del);    //задержка в 0.1 секунду 
                
Clicked := getClickedCommand;    //в перем. Clicked будет храниться нажатая команда 
                
PASS:=FormGetText(I);
                
PORT_CLIENT:=FormGetText(II);

              
// ВИХІД З ПРОГРАМИ 
                
if (Clicked Exit_programthen 
                        begin    
{Выход
                        
prov := true;    //присваиваем перем. prov знач. true, что значит выход из 1-го цикла 
                        
prov2 := true;    //присваиваем перем. prov2 знач. true, что значит выход из программы 
                        
                        
socket.close;
                        
end;
                        
                
// ПОКАЗ ДОПОМОГИ
                
if (Clicked Helpthen 
                        begin                          
                        prov 
:= true;
                        
end;
                        
                        
                
// ВХІД В ПРОГРАМУ
                
if (Clicked Open_programthen                 
                        begin   
                        
if PIDCLUCHENNYA_PORT_SERVER false then
                                begin
                                
// СЕРВЕР  НЕ  ЗНАЙДЕНИЙ
                                
prov := true;    //присваиваем перем. prov знач. true, что значит выход из 1-го цикла 
                                
                                
socket.close;
                                
clearForm
                                
inform:=FormAddString('Не знайдено сервера ... Направильні настройки');                            
                                
inform:=FormAddString('Спробуйте ще раз ...');        
                                
showForm;    
                                                    
                                
delay(2000); 
                                
prov := true;
                                
end else BEGIN                                                
                                                    
// СЕРВЕР ПІДКЛЮЧИВ КЛІЄНТА
                                                    
clearForm
                                                    
inform:=FormAddString('Сервер підключив вас як клієнта на головний порт ...');    
                                                        
                                                    
// ...................
                                                    
END;
                        
end;
                               
     
until prov;    //если prov=true, то выходим в главное меню 
  
until prov2;    //если prov2=true, то выходим из программы     
End
(Offline)
 
Ответить с цитированием
Старый 22.02.2010, 22:42   #2
ViNT
Модератор
 
Регистрация: 03.04.2007
Сообщений: 2,252
Написано 597 полезных сообщений
(для 817 пользователей)
Ответ: Ошибка при подключению к порту сервера

Вообще, судя по ошибке, похоже на поврежденный класс библиотеки.
(Offline)
 
Ответить с цитированием
Старый 23.02.2010, 00:48   #3
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Ошибка при подключению к порту сервера

В Java такой ошибки нет. Скорее всего это глюк телефона или поврежден файл библиотеки.
(Offline)
 
Ответить с цитированием
Старый 23.02.2010, 11:12   #4
LIDERSERVIS
Оператор ЭВМ
 
Регистрация: 20.10.2009
Сообщений: 49
Написано 2 полезных сообщений
(для 3 пользователей)
Ответ: Ошибка при подключению к порту сервера

А какая библиотека рабочая. У меня сейчас стоит Lib_socket.class за 14.06.2008, скачал ее из сборника odd (http://odd.wapalta.ru/p3.php). Может есть смысл попробывать библиотеку с сайта 17.11.2006 (http://forum.boolean.name/showthread.php?t=2525) ???

Или ещо есть возможность где то взять эту библиотеку - только провереную ???
(Offline)
 
Ответить с цитированием
Старый 23.02.2010, 22:52   #5
odd
Мастер
 
Аватар для odd
 
Регистрация: 06.09.2007
Адрес: Донецк, ДНР
Сообщений: 1,023
Написано 298 полезных сообщений
(для 713 пользователей)
Ответ: Ошибка при подключению к порту сервера

В моем сборнике могут быть и старые версии библиотек.
Увы, библиотеки меняются часто. А у меня нет времени следить за обновлениями.
Лучше зайди в раздел библиотек и скачай её оттуда.
(Offline)
 
Ответить с цитированием
Ответ


Опции темы

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.


Часовой пояс GMT +4, время: 13:04.


vBulletin® Version 3.6.5.
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Перевод: zCarot
Style crйe par Allan - vBulletin-Ressources.com