- uses IdHTTP;
- function GetPublicIP: string;
- var
- strIP, URL: string;
- iStart, iEnd: Integer;
- MyIdHTTP: TIdHTTP;
- begin
- Result := ;
- MyIdHTTP := TIdHTTP.Create(nil);
- try
- try
- URL := MyIdHTTP.Get(http://www.ip138.com/ip2city.asp);
- except
- end;
- finally
- MyIdHTTP.Free;
- end;
- if Length(URL) <> 0 then
- begin
- iStart := Pos([, URL);
- iEnd := Pos(], URL);
- if (iStart <> 0) and (iEnd <> 0) then
- begin
- strIP := Trim(Copy(URL, iStart + 1, iEnd - iStart - 1));
- if strIP <> then
- Result := strIP;
- end;
- end;
- end;
获取公网 IP 地址函数, 需要引用 IdHTTP.
来源: http://www.bubuko.com/infodetail-2514799.html