jhlee4u wrote:

> 안녕하세요.

> 델파이프로그램에서 자기ip번호를 알수 있는 방법 아시면 알켜주세요.

> 버튼을 클릭하면 자신의 IP번호가 나오게 하면 좋은디.. ^.^

> 그럼 부탁드립니다.



안녕하세여

일단은 간단히 IP가 나오게 하려면 뭐 개인적인 취향이지만 그래도..

Function을 만드셔야 할 것 같은데요..

아래와 같이요..



function LocalIP: string;

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 := '';

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:=StrPas(inet_ntoa(pptr^[i]^));

Inc(i);

end;

WSACleanup;

end;



그리고 Uses 절에 WinSock을 추가하시고 나서 Edit에 다가

Edit1.Text := LocalIP;

라고 하시면 되겠죠..

그럼 즐프하세요.

IP로 검색을 해 보세요... 아마 예전에 올라간 내용이 있을껄요???





jhlee4u wrote:

> 안녕하세요.

> 델파이프로그램에서 자기ip번호를 알수 있는 방법 아시면 알켜주세요.

> 버튼을 클릭하면 자신의 IP번호가 나오게 하면 좋은디.. ^.^

> 그럼 부탁드립니다.