Форум: "Начинающим";
Текущий архив: 2013.03.22;
Скачать: [xml.tar.bz2];
Вниз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;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.06 c