Програма на емуляторе идет - а в телефоне выкидывает из програмы и выбивает ошибку
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', 7, TF_NUMERIC);
I:=FormAddTextField('Пароль', '1234567', 7, TF_NUMERIC);
Open_program := createCommand('Вхід', CM_OK, 2);
Help := createCommand('Допомога', CM_OK, 3);
Exit_program := createCommand('Вихід', CM_OK, 1);
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_program) then
begin {Выход}
prov := true; //присваиваем перем. prov знач. true, что значит выход из 1-го цикла
prov2 := true; //присваиваем перем. prov2 знач. true, что значит выход из программы
socket.close;
end;
// ПОКАЗ ДОПОМОГИ
if (Clicked = Help) then
begin
prov := true;
end;
// ВХІД В ПРОГРАМУ
if (Clicked = Open_program) then
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.