IP Adresse einer Internetseite auslesen

[Sir Rufo]

Das geht ganz hervorragend mit Synapse

Delphi-Quellcode:

uses 
  Classes, 
  blcksock; // Unit von Synapse

function GetIpsFromHost( const Host : string ) : string;
var
  Response : TStringList;
begin
  Response := TStringList.Create;
  try
    with TBlockSocket.Create do
      try
        ResolveNameToIP( Host, Response );
      finally
        Free;
      end;
    Result := Response.CommaText;
  finally
    Response.Free;
  end;
end;