wie kann ich ip herausfinden???

[stoxx]

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