Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2013.03.22;
Скачать: CL | DM;

Вниз

TServerSocket, TStringList и непонятки.. RemoteAddress   Найти похожие ветки 

 
whoim ©   (2012-02-06 14:48) [0]

В общем, имеем TServerSocket в NonBlocking, который по ServerSocket1ClientRead
1) ip_address := Socket.RemoteAddress;
 Memo1.Lines.Add("recived " + Socket.RemoteHost + " (" + ip_address + "): " + command);


2) command_list.Append(command+"="+ip_address);
       command_list.Sort;


3) ListBox1.Items := command_list;

так вот, если отсылаем другой программой через TClientSocket, все хорошо - в логе высвечивается IP а в листбоксе TEXT=127.0.0.1

Если шлем через программулину на флеше, то внимание! В мемо1 все замечательно высвечивается, ip=адрес виден. А вот в листбоксе TEXT и все..

Как такое может быть? Отладочный шоумессендж перед command_list.Append чотко говорит нам 127.0.0.1

Как так на?


 
whoim ©   (2012-02-06 15:01) [1]

ShowMessage(command + "=" + ip_address);
тоже выводит только command. Видимо, от флеша приходит как то не стринг нихера..


 
whoim ©   (2012-02-06 15:04) [2]

command_list.Add(PChar(command)+"="+ip_address);

так работает сцкнх



Страницы: 1 вся ветка

Текущий архив: 2013.03.22;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.081 c
2-1328170170
AV
2012-02-02 12:09
2013.03.22
Запрос к MSSSQL не возвращает данные. Почему?


15-1350030766
AV
2012-10-12 12:32
2013.03.22
Вот как бы Вы поняли письмо


15-1349072562
NailMan
2012-10-01 10:22
2013.03.22
Что то не было давно весте с небесного фронта


2-1334672711
новичок2012
2012-04-17 18:25
2013.03.22
Ссылка на контролы класса TCombobox и TEdit


15-1346924828
>|<
2012-09-06 13:47
2013.03.22
OpenCV + Delphi