Pin(g)GUI ... GUI für Ping, Traceroute, DNS Lookups, WHOIS

[jensw_2000]

Zitat:

Zitat von PierreB

Zitat:

Zitat von jensw_2000

Zitat:

Zitat von PierreB

Fehler tritt nur bei WhoisQuery auf, Adresse is egal, geht bei keiner, mit Internet Explorer sollte alles in Ordnung sein, kein Proxy...

Das heist, bei einer Whois Abfrage über http (Whois WebQuery) tritt der Fehler auf, und bei einer Whois Abfrage über das klassische WHOIS Protokoll gibt es keine Fehlermeldung ?

Exakt.

Fehlermeldung ist im Anhang... (Das ist die erweiterte Ansicht, zuerst kommt nur ne Meldung "Zugriffsverletzung in xxxxxx")

Delphi-Quellcode:

OleVariant(WhoisReply.Document).Clear;   
OleVariant(WhoisReply.Document).Write(GetWhoisByWeb(edtHost.Text)); <<<< Hier kommt bei dir der Fehler
OleVariant(WhoisReply.Document).Close;

Kann ich mit nicht erklären, und reproduzieren kann ich den Fehler auch nicht.
Stellt der TWebbrowser irgendwelche Anforderungen an das System ?
Den Webbrowser benutze ich nur Offline. Die Daten ziehe ich mit idHTTP aus dem Netz. Das geht schneller.

Hier die passende Funktion ...

Delphi-Quellcode:

function GetWhoisByWeb(Domain: string): string;
var
  idHTTP: TidHTTP;
  ParamData: TStringStream;
  s: string;
  f: Textfile;
begin
  ParamData := TStringStream.Create('');

  s := '';
  Result := s;

  idHTTP := TIDHTTP.Create(nil);

  try

    ParamData.WriteString('search=' + Domain);

    IdHTTP.Request.ContentType := 'application/x-www-form-urlencoded';
    IdHTTP.Request.Referer := 'http://www.iks-jena.de/cgi-bin/whois';
    IdHTTP.Request.AcceptCharset := 'ISO-8859-1,utf-8;q=0.7,*;q=0.7';
    IdHTTP.Request.AcceptEncoding := 'gzip,deflate';
    IdHTTP.Request.AcceptLanguage := 'de-de,de;q=0.8,en-us;q=0.5,en;q=0.3';

    try
      s := IdHTTP.Post('http://www.iks-jena.de/cgi-bin/whois', ParamData);
    except
      S:='';
    end;

    if pos('
<PRE>', s) <> 0 then
    begin
      S := Copy(s, Pos('
<PRE>', s) + 4, length(s));
      s := Copy(s, 1, pos('</PRE>', s) + 5);
    end
    else
    begin
      s := 'Whois nicht möglich!' + #13#10 +
        'Entweder sind Ihre Eingaben unvollständig oder' + #13#10 +
        'es besteht keine Verbindung zu http://www.iks-jena.de';
    end;

  finally
    FreeAndNIL(idHTTP);
  end;

  Result := s;
end;

[jmit]

Hallo,

ich habe den DNS Server eingetragen, dieser lässt sich auch mit dem Tool anpingen, aber die Hostnamen können nicht über den DNS aufgelöst werden. Fehlermeldung: DNS-Server antwortet nicht, sonst funktioniert aber alles. :(

Sonst schickes Tool. :thumb: :thumb:

Gruß Jörg