![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Глюк с TServerSocket [D6, Win2k, WinXP]
Орел Константин © (2004-04-18 15:22:00)Здравствуйте уважаемые. При работе с вышеупомянутым компонентом он на эту строку
memo1.lines.Add('Local Address: ' + ServerSocket1.Socket.LocalAddress); Отвечает: 'Local Address: 0.0.0.0', хотя IP естествнно другой. Это не очень мешает, т.к. все работает нормально. Вопрос: что это за хрень и как показать нормальный IP?
Орел Константин (2004-04-18 16:09:00) [1]Спасибо.
Verg (2004-04-18 16:06:00) [2]Так тебе какой адрес-то узнать нужно?
ServerSocket1.Socket.LocalAddress - это локальный адрес listen-сокета, т.е. 0.0.0.0 - означает, что сервер будет принимать входящие соединения с любого интерфейса.
Адреса сокета, который образуется при установлении соединения можно узнать, например, в OnAccept:
procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.LocalAddress; // Локальный адрес
Socket.RemoteAddress; // Адрес клиента
end;