2011年7月28日
Delphi获取公网IP地址函数
摘要： 引用一位仁兄的 代码1usesIdHTTP;2functionGetPublicIP:string;3var4strIP,URL:string;5iStart,iEnd:Integer;6MyIdHTTP:TIdHTTP;7begin8Result:='';9MyIdHTTP:=TIdHTTP.Create(nil);10try11try12URL:=MyIdHTTP.Get('http://www.ip138.com/ip2city.asp');13except14end;15finally16MyIdHTTP.Free;17end;1819ifLength( 阅读全文
posted @ 2011-07-28 19:14 神码都在云端 阅读(630) 评论(0) 推荐(0)