문보석 께서 말씀하시기를...

> 안녕하세요...

>

> 제가 짠 프로그램은요...

>

> 실행시킨 컴퓨터의 여러가지 정보를 가져와서 그중 IP 어드레스를 통해

>

> 여러가지 통신을 할수 있도록 했습니다...

>

> 다만 IP를 어떻게 뽑아올수 있는지 VCL 이 있으면 좋은데 (제가 보기엔 없는듯...)

>

> 없다면 API라도 알려주신다면 감사하겠습니다...

>

> 여러 고수님들의 조언을 부탁드립니다...

>

> 안녕히계세요...

제가 가지고 있는 자료 입니다.

확인은 해보지 않았는데 될 듯합니다.

참고하시길....



자신의 IP Address를 얻어오는 방법



출처: 뉴스그룹

winsock을 uses에 첨가 한 후 다음의 함수를 만들어 주면 됩니다.



function xxx : String;

var

　 WSAData: TWSAData;

　 HostName, Address: String;

　 HostEnt: PHostEnt;

begin

　 { no error checking...}

　 WSAStartup(2, WSAData);

　 SetLength(HostName, 255);

　 gethostname(PChar(HostName), 255);

　 SetLength(HostName, StrLen(PChar(HostName)));

　 HostEnt := gethostbyname(PChar(HostName));

　 with HostEnt^ do

　　　 Address := Format('%d.%d.%d.%d',[Byte(h_addr^[0]),

Byte(h_addr^[1]),

　　　　　 Byte(h_addr^[2]), Byte(h_addr^[3])]);

　 WSACleanup;

　 Result := address;

end;