Sites of the week

ads ads ads ads

Delphi: Как узнать свой IP

Posted by admin | Delphi, Internet, Локальная сеть | Вторник 11 Март 2008 11:32

В Uses прописываем модуль WinSock

 
function GetLocalIP:string;
var
WSVer:integer;
wsaData: TWSAData;
P: PHostEnt;
Buf: array [0..127] of Char;
begin
WSVer:=$101;
if WSAStartup(WSVer, wsaData) = 0 then
begin
if GetHostName(@Buf, 128) = 0 then
begin
P := GetHostByName(@Buf);
if P <> nil then
result:=iNet_ntoa(PInAddr(p^.h_addr_list^)^);
end;
WSACleanup;
end;
end;

Нет комментариев »

No comments yet.

RSS feed for comments on this post. TrackBack URI

Leave a comment