| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
TServerSocket, TStringList и непонятки.. RemoteAddress [D7]
whoim © (2012-02-06 14:48:00)В общем, имеем 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:04:00) [1]command_list.Add(PChar(command)+'='+ip_address);
так работает сцкнх
whoim (2012-02-06 15:01:00) [2]ShowMessage(command + '=' + ip_address);
тоже выводит только command. Видимо, от флеша приходит как то не стринг нихера..
| |
