Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Сети > Ip

Автор: Siv 4.10.2003, 17:51

Каким способом можно узнать свой IP адресс в локальной сети? /[email protected]/

Автор: <Spawn> 4.10.2003, 18:02

Код

 uses
     WinSock;
 
 function  GetLocalIP:  String;
 const  WSVer  =  $202;
 var
     wsaData:  TWSAData;
     P:  PHostEnt;
     Buf:  array  [0..127]  of  Char;
 begin
     Result  :=  '';
     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;

Автор: Siv 5.10.2003, 00:47

Спасибо!

Автор: uid0gid0 5.4.2006, 07:46

Какая переменная здесь IP ?

Автор: Marlin 5.4.2006, 08:23

Result

Автор: uid0gid0 5.4.2006, 08:35

Спасибо !

Автор: Poseidon 5.4.2006, 14:43

Цитата(uid0gid0 @ 5.4.2006, 06:46

)

Какая переменная здесь IP ?

IP здесь не переменная, а значение, возвращаемой функцией. Т.е. если ты вызовешь GetLocalIP, то она вернет тебе IP.

Пример:

Код


var IP: string; // в эту переменную передадим IP
begin
IP:= GetLocalIP;
end;