Hey habs hingekriegt, vielen Dank für die schnelle und kompetente Hilfe.
Hier mein Code:
Code:
...
idDNSResolver := TIdDNSResolver.Create(self);
idDNSResolver.QueryType := [qtA];
idDNSResolver.Host:='62.72.64.237';
IdDNSResolver.Resolve(Edit1.Text);
for x := 0 to IdDNSResolver.QueryResult.Count - 1 do
begin
DnsResource := IdDNSResolver.QueryResult[x];
qtar := TARecord(DnsResource);
ip:=(qtar.IPAddress);
...