AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Netzwerke Delphi wie mache ich einen lookup?

wie mache ich einen lookup?

Ein Thema von Darkmorph · begonnen am 24. Mär 2003 · letzter Beitrag vom 24. Mär 2003
Antwort Antwort
Darkmorph

Registriert seit: 24. Mär 2003
37 Beiträge
 
Delphi 6 Professional
 
#1

wie mache ich einen lookup?

  Alt 24. Mär 2003, 08:47
ich möchte mit meiner Applikation die IP eines DYNDNS-Accountes auslesen, also pragmatisch, einen "EINFACHEN" LOOKUP machen...
ich hab keine ahnung wie...
ZUSATZINFO: ICH SITZE HINTER EINEM ROUTER
1. Versuch: Serversock in meiner App auf Port 80 lauschen gelassen
Clientsock versucht zu connecten via darkmorph.dyndns.org
//FEHLSCHLAG: TIMED OUT (wahrscheinlich wegen dem Router...)
2. INDY-ICMP: mit dieser hab ich Darkmorph.dyndns.org angepingt, der
Reply beinhaltet jedoch die IP meines Router 192.168.0.1
//also fehlschlag.

unabhängig davon hab ich es mit dem DOS-Programm Ping.exe versucht.
dieses Programm zeigte mir meine ISP-IP an.
Ebenso der IE-Explorer mit dem ich versuchte zur DYNDNS-Addi zu verbinden, connecte zu 203.x.x.x ...

wieso zeigt mir das indy-ICMP-Ding die IP meines Routers und nicht die meines ISP's an?

Bin dankbar für jeden denkanstoß!!

MfG MorPH
  Mit Zitat antworten Zitat
Chewie

Registriert seit: 10. Jun 2002
Ort: Deidesheim
2.886 Beiträge
 
Turbo Delphi für Win32
 
#2
  Alt 24. Mär 2003, 14:01
Probier es mal über die WinSock-Schnittstelle:

Delphi-Quellcode:
function HostToIP(host: String): String;
var
  HostEnt: PHostEnt;
  addr: PChar;
begin
  Result := '';
  if inet_addr(PChar(host)) = -1 then
  begin
    HostEnt := gethostbyname(PChar(host));
    if Assigned(HostEnt) then
    begin
      addr := HostEnt^.h_addr_list^;
      if Assigned(addr) then Result := Format('%d.%d.%d.%d',[byte(addr[0]),byte(addr[1]),byte(addr[2]),byte(addr[3])]);
    end;
  end;
end;
uses WinSock nicht vergessen!
Martin Leim
Egal wie dumm man selbst ist, es gibt immer andere, die noch dümmer sind
  Mit Zitat antworten Zitat
Darkmorph

Registriert seit: 24. Mär 2003
37 Beiträge
 
Delphi 6 Professional
 
#3
  Alt 24. Mär 2003, 14:30
vielen dank für deine Hilfe, hat super geklappt.

MfG MorpH
  Mit Zitat antworten Zitat
Themen-Optionen Thema durchsuchen
Thema durchsuchen:

Erweiterte Suche
Ansicht

Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 21:15 Uhr.
Powered by vBulletin® Copyright ©2000 - 2021, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2021 by Daniel R. Wolf