Тема: Lib_socket
Показать сообщение отдельно
Старый 30.10.2008, 13:55   #24
Vovochka
AnyKey`щик
 
Регистрация: 07.11.2007
Сообщений: 3
Написано 0 полезных сообщений
(для 0 пользователей)
Re: Lib_socket

Вобщем таакая проблемма, нужно коннектится к серверу, онКоннект отправить строку с логинолм и паролем, и в ответ ловить инфу.

Так вот... Работает на телефонах всех кроме НОКИА. Притом разных моделей от 3220,3230 до N80.

Устанавливается GPRS соединение без проблемм с запросом все как положенно, а потом в момент когда нужно ловить данные ничего не приходит.

Грешу на знак доллара. ВОбщем уже не знаю даже что и думать...Код прилагаю, помогайте люди кто могёт!!!

   Login := formGetText(nameField); 
   Pass  := formGetText(passField); 
  
//Открываем соединение
  OpenState:= Socket.Open('socket://XXX.XXX.XXX.XXX:Port');
  
  SendString := '$LOGIN<'+length(Login)+'>'+Login+'$PASS<' +length(Pass) +'>'+Pass;

  if OpenState = 0 then 
                     BEGIN
                        delay(100);
//                      SendState:= Socket.WriteStr(SendString);
                        SendState:= Socket.WriteStr(SendString+chr(10)+chr(13));
                        resField := formAddTextField('',SendString,100,TF_ANY);
                        
                     END
                   else
                     begin
                       Debug('Error');
			               end;
//
//
//Далее цикл чтения с сокета инфы.
//
//
(Offline)
 
Ответить с цитированием