Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.05.16;
Скачать: 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 вся ветка

Текущий архив: 2004.05.16;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.037 c
1-1083224767
killer
2004-04-29 11:46
2004.05.16
Кнопка в StringGrid


1-1083168041
Elast
2004-04-28 20:00
2004.05.16
Grid


1-1082870526
Schummi
2004-04-25 09:22
2004.05.16
Быстрое заполнение AdvStringGrid


8-1077973068
AlexTregubov
2004-02-28 15:57
2004.05.16
Цветное изображение в серое


1-1083490758
AndrewVolkov
2004-05-02 13:39
2004.05.16
Забить exception