TIdDNSResolver Problem - Connection reset by peer

[marabu]

Hi,

bei mir funktioniert es so:

Delphi-Quellcode:

procedure TDemoForm.ButtonClick(Sender: TObject);
var
  pAddr: PCardinal;
begin
  with DNSResolver do
  begin
    Active := True;
    QueryRecords := [qtA];
    Resolve('www.delphipraxis.net');
    pAddr := @QueryResult.Items[0].RData[1];
    Active := False;
    ShowMessage(IpStr(pAddr^));
  end;
end;

Grüße vom marabu