unit1.~pas

外网IP查询

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdHttp, WinInet, StrUtils,WinSkinData;

type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    SkinData1: TSkinData;
    Memo1: TMemo;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function GetOnlineStatus: boolean;
var
  ConTypes: Integer;
begin
  ConTypes := INTERNET_CONNECTION_MODEM + INTERNET_CONNECTION_LAN +
    INTERNET_CONNECTION_PROXY;
  if (InternetGetConnectedState(@ConTypes, 0) = False) then
    Result := False
  else
    Result := True;
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  IdHttp: tidhttp;
  memo: tStringList;
  str:string;
begin
  if GetOnlineStatus then
  begin
    IdHttp := tidhttp.Create(nil);
    memo := tStringList.Create;
    try
      memo.Text:=idhttp.Get('http://vbnet.mvps.org/resources/tools/getpublicip.shtml');
      str:=memo.Strings[11];
      str:=AnsiReplaceText(str,'var ip = ''','');
      str:=AnsiReplaceText(str,'''','');
      edit1.Text:=str;
    except
      showmessage('网络故障无法获本机IP地址');
    end;
  end
  else
  begin
    ShowMessage('网络无连接没有外网IP地址');
  end;
end;

end.