пытаюсь определить IP-адрес подключенного клиента

← →
NorthMan © (2004-03-29 10:14) [0]

в ServerSocket. Читаю свойство ClientSocket.LocalAddress в ServerGetSocket(Sender: TObject; Socket: Integer;
var ClientSocket: TServerClientWinSocket); При этом получаю ошибку "Access violation". Что я не так делаю?

← →
Verg © (2004-03-29 10:41) [1]

Не, в данной точке ClientSocket = nil (или вообще какому-нибудь мусору).
Этот метод (событие) сервер и вызывает именно для того, что вдруг ты создашь какого-либо наследника TServerClientWinSocket.
Валидным он будет в событиях OnAccept и более поздних. Там и определяй LocalAddress.

← →
Digitman © (2004-03-29 10:52) [2]

> NorthMan

тебе скорей всего не LocalAddress , а RemoteAddress нужен

procedure TMyForm.ServerSocketConnect(..);
begin
MessageBox(0, PChar(Socket.RemoteAddress), "IP-адрес удаленного клиента", mb_ok or mb_setforeground);
end;

Всем мпасибо, разобрался

пытаюсь определить IP-адрес подключенного клиента Найти похожие ветки