DNS-Auflösung mit Synapse

[slai]

Hallo zusammen

Bin grad synapse ein wenig am austesten, bin nun am folgenden Problem stehen gebliben, ich möchte einfach ein IP oder Url pingen, das mit der IP funktioniert natürlich auf anhib, wie löse ich nun eine URL im stil von http://www.google.ch auf? Ich habe im synapse reference guide eine solche funktion a la getIpFromUrl(url:string):ipadresse; gesucht jedoch nicht gefunden, hat da jemand eine ahnung wie man das macht oder bereits einmal gemacht?

danke für antworten

anbei noch meine kleine funktion:

Code: Alles auswählen

procedure TFrmMain.BtnPingClick(Sender: TObject);
var
  ping:TPingSend;
begin
  ping:=TPingSend.Create;
  try
    ping.ping(EPingHost.Text);
    MResultate.Lines.Add('Ping Time: '+IntTostr(ping.pingtime)+' ms');
 
    MResultate.Lines.Add(#13#10+'Traceroute: '+#13#10+TraceRouteHost(EPingHost.Text));
  finally
    ping.Free;
  end;
end;

[Christian]

Das macht man per DNS, glaub da war n example dabei.

[slai]

ouu jap, hab ich übersehen, das man das mit DNS lösen muss war mir schon klar, jedoch nicht wie das synapse implementiert hat. danke

hier noch das beispielprogramm zu dns von synapse

Code: Alles auswählen

{$MODE DELPHI}
 
Program testdns;
 
uses
  dnssend, synamisc, classes;
 
var
  l: tstringlist;
  s: string;
begin
  l := TStringList.create;
  try
    s := GetDNS;
    writeln('DNS servers: ', s);
    l.commatext := s;
    if l.count > 0 then
    begin
      s := l[0];
      GetMailServers(s, paramstr(1), l);
      Writeln('MX records for domain ', paramstr(1), ':');
      writeln(l.text);
    end;
  finally
    l.free;
  end;
end.