Hi Leute,
ich habe ein Problem mit TIdDNSResolver. Ich will eine Liste von Domains aus einem StringGrid prüfen:
http://gavajda.de/pics/statuscheck.jpg
Das versuche ich mit folgendem Code:
Delphi-Quellcode:
procedure TForm2.Button1Click(Sender: TObject);
var
resolvecount: Integer;
begin
with IdDNSResolver1 do
begin
ClearInternalQuery;
IdDNSResolver1.Host := dns1; //dns1 wird über ein ini file geladen, momentan ein T-Online DNS Server
for resolvecount := 1 to gridcount do //gridcount ist die Anzahl der Zeilen des StringGrids
begin
IdDNSResolver1.Resolve(StringGrid1.Cells[1,resolvecount]);
StringGrid1.Cells[2,resolvecount] := QueryResult.Items[resolvecount].Name;
end;
end;
end;
Aber alles was ich bekomme ist ein
http://gavajda.de/pics/10054error.jpg
Kann mir wer auf die Sprünge helfen was ich falsch mache? Was fehlt?
Danke im Voraus.