Zitat von
PierreB:
Zitat von
jensw_2000:
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;