T-dayne, а не проще на стороне сервера использовать
ClientSocket.RemoteHost (
Socket.RemoteHost - это кто через что делает), чем клиентом отсылать его IP? К тому же если это работает в локалке, где
нет инета, то Ваш способ не подходит
Код:
procedure TForm.ServerSocket1ClientRead(Sender: TObject;
Socket: TCustomWinSocket);
var
smessage: string;
begin
smessage := Socket.RemoteHost;
// все! адрес находится в переменной smessage, делаем че хотим.
end;
norfolk23, в аську бросил ссылку на исходник, который и обещал