TIdDNSResolver Problem - Connection reset by peer

[marabu]

Probiere es mal damit:

Delphi-Quellcode:

function IpStr(ip: Cardinal): string;
var
  a: LongRec absolute ip;
begin
  with a do
    Result := Format('%d.%d.%d.%d', [Bytes[0], Bytes[1], Bytes[2], Bytes[3]]);
end;