Hallo,
ist das mit dem ReadTimeout und ConnectTimeout so richtig?
Irgendwie werden die Ergebnisse immer wieder unterschiedlich angezeigt und das ReadTimeout greift nicht richtig.
Delphi-Quellcode:
var
HTTP: TIdHTTP;
i: integer;
begin
// Initialize the "result"
FReply := '
';
FSuccess := false;
HTTP := TIdHTTP.Create;
try
HTTP.HandleRedirects := true;
try
Http.ReadTimeout := 15000;
HTTP.ConnectTimeout := 15000;
FReply := HTTP.Get(Format(WHOIS_LOOKUP_FORMATSTR, [FURL]));
FSuccess := true;
except
on E:
Exception do begin
FSuccess := false;
FReply := '
Keine Verbindung';
//E.Message;
end;
end;
if FSuccess
then begin
// Do something with the reply here. Parse it, use it, break it, fix it,
// trash it, change it, melt- upgrade it.
for i := 1
to length(FReply)
do
if Pos(FReply[i], '
is a valid deliverable') > 0
then begin
FReply := '
JA';
end
else
if Pos(FReply[i], '
It was not possible') > 0
then begin
FReply := '
NEIN';
end;
end;
Freundliche Grüße Aaron