wie kann ich ip herausfinden???

[steve-allround]

danke, es funktioniert, vielen vielen dank

by
schönes we noch

[stoxx]

Zitat:

Zitat von steve-allround

danke, es funktioniert, vielen vielen dank

by
schönes we noch

und falls Du keinen Router hast, erscheint Deine IP auch mit dieser Funktion :-)

Code:

function TFTP.GetLocalIPs: string;
type 
  PPInAddr = ^PInAddr; 
var 
  wsadata  : TWSAData; 
  hostinfo : PHostEnt; 
  addr     : PPInAddr; 
begin 
  Result   := ''; 

  if(WSAStartUp(MAKEWORD(1,1),wsadata) = 0) then 
  try 
    hostinfo := gethostbyname(nil); 
    if(hostinfo <> nil) then begin 
      addr   := pointer(hostinfo^.h_addr_list);
     // sm(hostinfo^.h_name);

      while(addr^ <> nil) do begin
        Result :=  Result + inet_ntoa(addr^^) + '</br>';  { + ^M^J} ;
        inc(addr);
      end; 
    end; 
  finally 
    WSACleanUp;
  end; 
end;

und falls es die besagte 'http://www.ixtreme.de/index/ip.php' Datei irgendwann nicht mehr geben wird,
dann nimmst Du einfach die von mir anfangst erwähnte shtml Datei und lädst sie ins Internet.
und machst genau dasselbe mit der, wie mit der 'http://www.ixtreme.de/index/ip.php' Datei :-)

viele Grüße

[little-wolf]

Hallo

habe vor einiger Zeit auch mal danach gesucht, und dann
auch was gefunden...

Hier ein Beispiel-Programm zum downloaden...


Gruss

little-wolf

Nachtrag:
Ou, sorry, habe nicht gesehen, dass es da noch ne zweite seite
hatte... :oops:

[DataCool]

Hi,

der Fehler ist ja schon gefunden worden. Hatte noch nicht alles gelesen und schon gepostet.

Gruß Data

[Synonym]

wieso ist str resaviert?


synonym