Ich habe mal eine -verbesserungswürdige- Klasse für einen allgmeinen Lookup mit einem einfachen Nameserver-Traversal geschrieben, um meine Apachelogs auszuwerten. Usage:
Delphi-Quellcode:
procedure ShowWhoisInfo(AIp : string);
begin
Whois := TWhoisLookup.Create;
Whois.DoHostByAddr := False;
Whois.HostName := AIp;
ShowMessage(Whois.Lines.Text);
end;
[edit]Klasse als File angehängt[/edit]