获取外网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
’, ‘’, ‘
’)将返回hellofunction GetBetweenStr(Str, BeginSubStr, EndSubStr: string): string;
//从Str中取得以Token为分隔符的第一个子字符串
//eg: GetFirstTokenStr(‘Claudia;Myka;Artie’, ‘;’)将返回Claudia
function GetFirstTokenStr(Str, Token: string): string;
//取得外网IP