وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/۸/٩
(* ---------------------------------------------------
  Retrieve system IP Address
  --
  یونیت مورد نیاز : Winsock
--------------------------------------------------- *)
 
function GetIPs() : TStrings;
type
    TaPInAddr = array[0..10] of PInAddr;
    PaPInAddr = ^TaPInAddr;
var
   phe : PHostEnt;
   pptr : PaPInAddr;
   Buffer : array[0..63] of Char;
   i : Integer;
   GInitData : TWSAData;
begin
     WSAStartup($101, GInitData);
 
     Result := TStringList.Create;
     Result.Clear;
     GetHostName(Buffer, SizeOf(Buffer));
     phe := GetHostByName(buffer);
     if phe = nil then Exit;
 
     pPtr := PaPInAddr(phe^.h_addr_list);
     I    := 0;
     while pPtr^[I] <
              > nil do
     begin
          Result.Add(inet_ntoa(pptr^[I]^));
          Inc(I);
     end;
 
     
                
                  WSACleanup
                ;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :