Tweet
hi,
wie bekomme ich die ip-adresse eines netwerkrechners raus?
gruß
markus
wie bekomme ich die ip-adresse eines netwerkrechners raus?
gruß
markus
-
-
Hi,<br><br>function GetIPAddress: string;<br>
var phoste : PHostEnt;<br>
Buffer : array [0..100] of char;<br>
WSAData : TWSADATA;<br>
begin<br>
result := '';<br>
if WSAStartup($0101, WSAData) <> 0 then exit;<br>
GetHostName(Buffer, SizeOf(Buffer));<br>
phoste :=GetHostByName(buffer);<br>
if phoste = nil then<br>
result := '???.???.???.???'<br>
else<br>
result := StrPas(inet_ntoa(PInAddr(phoste^.h_addr_list^)^)); <br>
WSACleanup;<br>
end;<br><br>Gurss<br>M.Mülle -
hi,
und welche units müssen da in die uses-klausel?
gruß
markuComment
-
interface<br>
uses Windows, Sysutils;<br>
function GetIPAddress: string;<br>
implementation<br>
uses winsock;<br>
<br><br>Gruss<br>M.MülleComment
-
ah winsock!! siehste, dass wollte ich wissen!
gruß
markuComment
Comment