IP ist bekannt - Wie kann ich den Hostnamen erfahren?

..Intrenetverbindung besteht, http-Server läuft und ich bekomme aus einer Logdatei IP-Adressen von Leuten, die mich besuchen. Wie kann man per Delphi rausbekommen, welcher hostname hinter der IP steckt

in der Winsock.pas steht folgendes, aber ich komme damit nicht klar - weiss jemand einen Rat?

function WSAAsyncGetHostByAddr; external winsocket name 'WSAAsyncGetHostByAddr';

[Tim Henford]

Hallo Georg!

Versuch mal dieses Beispiel umzusetzten:

<pre><font size=3>
uses {...,}Winsock;

procedure ShowHostName;
var
wVersionRequested : WORD;
wsaData : TWSAData;
p : PHostEnt;
s : array[0..128] of char;
p2 : pchar;
begin
{Start up WinSock}
wVersionRequested := MAKEWORD(1, 1);
WSAStartup(wVersionRequested, wsaData);

{Get the computer name}
GetHostName(@s, 128);
p := GetHostByName(@s);
ShowMessage(Format('Computername: ''%s''.', [p^.h_Name]));

{Get the IpAddress}
p2 := iNet_ntoa(PInAddr(p^.h_addr_list^)^);
ShowMessage(Format('IP-Addresse: %s.',[p2]));

WSACleanup;
end;
</pre>

Tschüss Tim

P.S.: Any questions? Ask for:......
......http://www.tif-masters.d

[Thomas Hoffmann]

Hallo,

die Sache mit dem Hostnamen war mir ja bekannt. Ist Dir eine Möglichkeit bekannt, den MX Record, also den Mail Exchanger zu ermitteln ???

Wenn ja, dann Mail mir den Code doch bitte [email protected]

danke

thoma