// 보통 공유기를 사용하여 인터넷에 접속할 경우 공유기로부터 내부 IP(192.168.x.x)를 받아 사용하게
// 되고 공유기는 이것를 Public IP 로 변환(NAT)하여 전송하는 라우터로서 동작하게 됩니다
// 이런 상황에서 ISP 로 부터 받은 공유기의 Publuc IP 를 로컬 컴퓨터에서 직접 알아보는 방법은
// SNMP 프로토콜을 이용하거나 trace route 해보는 방법이 있는데 좀 복잡합니다
// 간단하게 하는 방법은 접속 IP 를 echo 해주는 외부 서버에서 받아오는 방법입니다
// 아래 소스를 약간 응용하면 내 IP가 공인인지 사설인지 판단하는 루틴을 만들 수 있습니다
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, OleCtrls, SHDocVw, StdCtrls, MSHTML;
type
TForm1 = class(TForm)
Button1: TButton;
Label1: TLabel;
Edit1: TEdit;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
wb: TWebBrowser;
HTMLDocument: IHTMLDocument2;
Source :String;
i: Integer;
begin
wb := TWebBrowser.Create(Self);
try
wb.Navigate('http://checkip.dyndns.org');
while wb.ReadyState < READYSTATE_INTERACTIVE do
Application.ProcessMessages;
HTMLDocument := wb.Document as IHTMLDocument2;
Source := Trim(HTMLDocument.Body.Get_outerHTML);
// 예제: <BODY>Current IP Address: 211.198.92.70 </BODY>
i := Pos(':', Source);
if i > 0 then
begin
Source := Copy(Source, i+1, Length(Source));
i := Pos('<', Source);
if i > 0 then
Label1.Caption := Trim(Copy(Source, 1, i-1));
end;
finally
wb.Free;
end;
end;
end.
출처