撥接上網時,如何用Delphi取得真實IP? 謝謝...

http://delphi.ktop.com.tw/topic.php?TOPIC_ID=24410    網海無涯，學無止境!

thank...

unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, IdBaseComponent, IdComponent, IdTCPConnection,
IdTCPClient, IdHTTP;
type
TForm1 = class(TForm)
Memo1: TMemo;
Edit1: TEdit;
IdHTTP1: TIdHTTP;
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FormCreate(Sender: TObject);
var
i: Integer;
j, k , m: Integer;
addr: array[1..4] of String;
begin
{
查真實 Internet IP 網址
http://myipaddress.com/show-my-ip-address/
http://www.danasoft.com/
http://ipid.shat.net/
http://www.whatismyip.com/
}
// Memo1.WordWrap:=False; // 不換行
IdHTTP1.HandleRedirects:=true;
Memo1.Text:=IdHTTP1.Get('http://ipid.shat.net/');
k :=1;
for i:= 0 to Memo1.Lines.Count -1 do
begin
if k<5 then
for j:= 1 to Length(Memo1.Lines[i]) do
begin
// 找 .<!--
if (Memo1.Lines[i][j]='.') and (Memo1.Lines[i][j 1]='<') and
(Memo1.Lines[i][j 2]='!') and (Memo1.Lines[i][j 3]='-') and (Memo1.Lines[i][j 4]='-') then
begin
if Memo1.Lines[i][j-2]='>' then Addr[k]:= Memo1.Lines[i][j-1];
if Memo1.Lines[i][j-3]='>' then Addr[k]:= Memo1.Lines[i][j-2] Memo1.Lines[i][j-1];
if Memo1.Lines[i][j-4]='>' then Addr[k]:= Memo1.Lines[i][j-3] Memo1.Lines[i][j-2] Memo1.Lines[i][j-1];
k:=k 1;
end;
if k=4 then
begin
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 2]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1];
k:=k 1;
end;
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 3]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1] Memo1.Lines[i][j 2];
k:=k 1;
end;
if (Memo1.Lines[i][j]='>') and (Memo1.Lines[i][j 4]='<') then
begin
Addr[4]:= Memo1.Lines[i][j 1] Memo1.Lines[i][j 2] Memo1.Lines[i][j 3];
k:=k 1;
end;
end;
end;
end;
Edit1.text:= Addr[1] '.' Addr[2] '.' Addr[3] '.' Addr[4] ;
Form1.Caption:='GetRealIP';
Memo1.Visible:=False;
Form1.Height:=80;
Form1.Width:=150;
end;
end.

------
能力不足，求助於人；有能力時，幫幫別人；如果您滿意答覆，請適時結案！

子曰：問有三種，不懂則問，雖懂有疑則問，雖懂而想知更多則問！