hi,
was gibt denn dieser text aus??? Die
ip adresse des eigenen rechners, oder die eines anderen? Wenn du die
Ip adresse des eigenen Rechner suchst, dann benutze einfach folgene Funktion:
Delphi-Quellcode:
uses winsock;
function GetIpAddress: string;
var phoste: PHostEnt;
Buffer: array [0..100] of char;
WSAData: TWSADATA;
begin
result:='';
if WSAStartup($0101, WSAData) <> 0 then exit;
GetHostName(Buffer,Sizeof(Buffer));
phoste:=GetHostByName(buffer);
if phoste = nil then result:='127.0.0.1'
else result:=StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^));
WSACleanup;
end;
cu -homer-
[edit=FuckRacism]Delphi-Syntax hinzugefügt. Mfg, FuckRacism[/edit]