Скачать: CL | DM;

пытаюсь определить 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;

---

← →
NorthMan ©   (2004-03-29 11:19) [3]

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

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.023 c