unit UnitIP;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,
IdHTTP, XPMan, StdCtrls, Buttons, ExtCtrls,WinInet;
{=======================================================
DESIGN BY : 花好月圆 / 玉面书生
DATE: 2005-01-27
SITE: http://www.eastrise.cn/quick2004
BLOG: http://blog.csdn.net/jackie168
EMAIL: joe-lu@163.com
文章为作者原创,转载前请先与本人联系,转载请注明文章出处、保留作者信息,谢谢支持!
=======================================================}
type
TForm1 = class(TForm)
Panel1: TPanel;
BitBtn1: TBitBtn;
XPManifest1: TXPManifest;
IdHTTP1: TIdHTTP;
procedure BitBtn1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
function ExtractStr(Str: string): string; //格式字符串
var i,j:integer;
begin
Result:='';
j:=Length(str);
for i:=0 to j do
begin
if str[i] in ['0'..'9','.'] then
Result:=Result+str[i];
end;
end;
function IsInternet: Boolean; //检查是否连上网络
begin
if InternetCheckConnection('http://www.eastrise.cn/ip.asp', 1, 0) then
Result := True
else
Result := False;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if IsInternet then
begin
Panel1.Caption:='你的公网IP:'+
ExtractStr(IdHTTP1.Get('http://www.eastrise.cn/ip.asp')); //取IP地址
end
else
application.MessageBox('该机器未连接网络或服务器出错!','错误',mb_ok+mb_iconerror);
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
panel1.Caption:=''; //初始化
end;
end.