현재 사용자 컴퓨터의 IP Address 구하기

출처 = http://www.delphi.co.kr/index.php?mid=lecture&page=23&document_srl=156935

uses WinSock ???

function uf_GetIpAddr: string;
var
p : PHostEnt;
s : Array[0..128] Of Char;
begin
GetHostName(@s, 128);
p := GetHostByName(@s);
result := iNet_Ntoa(pInAddr(p^.H_ADDR_LIST^)^);
end;

 현재 사용자 컴퓨터의 IP Address 구하기

hmleego

조회 수 : 2599

2005.10.31 (11:28:21)

function get_UserIP:string;
type
  PPChar = ^PChar;
var
  WSData : TWSAData;
  szHostName : array[0..100] of char;
  pHost : PHostEnt;
  h_addr: PPChar;
  ip : PInAddr;
  ipstr : string;
begin
  if WSAStartup($0101,WSData) = 0 then
  begin
    if gethostname(szHostName, sizeof(szHostName)) = 0 then
    begin
      pHost := gethostbyname(szHostName);
      if pHost <> nil then
      begin
        h_addr := PPChar(pHost^.h_addr_list);
        while (h_addr^ <> nil) do
        begin
          ip := PInAddr(h_addr^);
          ipstr := IntToStr(byte(ip^.S_un_b.s_b1)) + '.' +
                   IntToStr(byte(ip^.S_un_b.s_b2)) + '.' +
                   IntToStr(byte(ip^.S_un_b.s_b3)) + '.' +
                   IntToStr(byte(ip^.S_un_b.s_b4));
          result:=ipstr;
          inc(h_addr);
        end;
      end;
    end;
  end;
end;