Узнать с какого IP было послано сообщение

[ImmortalAlexSan]

С помощью winsock надо сделать. Я забыл где читал про это... Адрес отправителя сообщения хранится в TSockAddr как его извлечь от туда?
Вот мой нерабочий код.

FD_ACCEPT:
begin
accept(Sock,nil,nil);
Memo1.Lines.Add('sdfgsdg');
SetLength(buf,1);
i:=sizeof(TSockAddr);
recvfrom(sock,pointer(buf)^,1,0,RecvAddr,i);
ip:=inttostr(SockAddr.sin_addr.S_addr);
//If buf='1' then
Showmessage(ip);
end;

[.srcguard]

используй inet_ntoa

[ImmortalAlexSan]

Спасибо, .srcguard
На будущее тем, кто будет читать эту тему:

Var 
AddrLen:integer; //длина TSOCKADDR в байтах
RecvSock:TSockAddr; //структура куда будет сохраняться IP отправителя
Sock:TSocket; //создающийся при подключении клиента
buf:string; //буффер для текстовых сообщений
FD_ACCEPT:
begin
AddrLen:=SizeOf(TSockAddr);
accept(Sock,@RecvAddr,@AddrLen);
Memo1.Lines.Add('Клиент подключился');
SetLength(buf,1);
recvfrom(sock,pointer(buf)^,1,0,RecvAddr,Len);
ip:=inet_ntoa(RecvAddr.sin_addr);
Showmessage(ip);
end;

А весь этот код пишет в процедуре обработки сообщений окну. Смотреть http://delphikingdom.ru/asp/viewitem.asp?catalogid=1021