<quote>Jeg har et lille problem... Jeg har et program så skal kunne finde ip-adressen på den computer programmet køre på... er der nogen der ved hvordan man finder ud af det ?</quote>
Følgende kode finder din IP adresse baseret på navnet på din computer. Det er ikke sikkert at
det virker i alle tilfælde, men prøve dig frem evt. Du skal koncentrerer dig om API kaldene til
WinSock (WSAStartup, WSACleanup, GetHostByName, etc).
<pre>
procedure TForm1.Button1Click(Sender: TObject);
var
name : Array[0..250] of Char;
bufsize : cardinal;
Phe : PHostEnt;
IPHost : String;
IPName : String;
WSAData : TWSAData;
begin
// Initialisér WinSock.
if WSAStartup($101, WSAData) <> 0 then
raise Exception.Create('Error initialising Winsock');
// Find computerens navn
GetComputerName(name, bufsize);
// Hent data om host ud fra navn
Phe := gethostbyname(name);
if phe <> nil then
begin
// Udregn ip adressen ud fra h_addr_list (Læs hjælp på WinSock
IPHost := StrPas(inet_ntoa(TInAddr(longint(plongint(Phe^.h_addr_list^)^))));
// Træk host navn ud
IPName := String(Phe^.h_name);
edit1.Text := IPName;
edit2.Text := IPHost;
end;
WSACleanup;
end;
</pre>
---
Thomas
tdue@mail.dk