function GetMyIP: String;
var
pHostInfo: pHostEnt;
pszHostName: array [0..40] of Char;
IpStr: String;
i: Integer;
pHostInfo: pHostEnt;
pszHostName: array [0..40] of Char;
IpStr: String;
i: Integer;
begin
Result:='';
GetHostName(pszHostName, 40);
pHostInfo:=GetHostByName(pszHostName);
// IP 주소를 문자열로 가공
for i:=0 to 3 do begin
if i>0 then IpStr:=IpStr+'.';
IpStr:=IpStr+IntToStr(Ord(pHostInfo.h_addr_list^[i]));
end;
for i:=0 to 3 do begin
if i>0 then IpStr:=IpStr+'.';
IpStr:=IpStr+IntToStr(Ord(pHostInfo.h_addr_list^[i]));
end;
if Assigned(pHostInfo) then Result:=IpStr;
end;
end;
'Delphi' 카테고리의 다른 글
| [Delphi] Indy10 을 이용한 Stream 전송 (TCP/IP) (0) | 2009.04.18 |
|---|---|
| 간단한 키보드 훅 (0) | 2009.04.18 |
| [Delphi] 문자열 반복처리시 성능향상법 (0) | 2009.04.18 |
| BDS에서 고정폭 글꼴 사용하기 (0) | 2009.04.18 |
| [Delphi] 커서 바꾸기 (1) | 2009.04.18 |
