Глюк с TServerSocket

← →
Орел Константин (2004-04-18 15:22) [0]

Здравствуйте уважаемые. При работе с вышеупомянутым компонентом он на эту строку
memo1.lines.Add("Local Address: " + ServerSocket1.Socket.LocalAddress); Отвечает: "Local Address: 0.0.0.0", хотя IP естествнно другой. Это не очень мешает, т.к. все работает нормально. Вопрос: что это за хрень и как показать нормальный IP?

← →
Verg © (2004-04-18 16:06) [1]

Так тебе какой адрес-то узнать нужно?
ServerSocket1.Socket.LocalAddress - это локальный адрес listen-сокета, т.е. 0.0.0.0 - означает, что сервер будет принимать входящие соединения с любого интерфейса.

Адреса сокета, который образуется при установлении соединения можно узнать, например, в OnAccept:

procedure TForm1.ServerSocket1Accept(Sender: TObject;
Socket: TCustomWinSocket);
begin
Socket.LocalAddress; // Локальный адрес
Socket.RemoteAddress; // Адрес клиента
end;

← →
Орел Константин (2004-04-18 16:09) [2]

Спасибо.

Глюк с TServerSocket Найти похожие ветки