【控件功能】我来做练习-获取外网IP

获取外网IP

提示：这里可以添加技术概要

核心源码

提示：这里可以添加技术整体架构
procedure TfrmMain.btnRefreshClick(Sender: TObject);
begin
try
edtIP.Text := GetIP;
if edtIP.Text = EmptyStr then
DoError
else
DoOK;
except
DoError;
raise;
end;
end;

//取得网页信息
function GetWebPage(AUrlStr: string): string;

//从Str中取得BeginSubStr和EndSubStr之间的字符
//eg: GetBetweenStr(‘

hello

’, ‘

’, ‘

’)将返回hello
function GetBetweenStr(Str, BeginSubStr, EndSubStr: string): string;

//从Str中取得以Token为分隔符的第一个子字符串
//eg: GetFirstTokenStr(‘Claudia;Myka;Artie’, ‘;’)将返回Claudia
function GetFirstTokenStr(Str, Token: string): string;

//取得外网IP
function GetIP: string;

implementation

uses