如何用delphi7获得外部IP请高手指点 如何用delphi7获得外部IP请高手指点 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 function TForm1.GetWanIP;begin NMHTTP1.InputFileMode := FALSE; NMHTTP1.OutputFileMode := FALSE; NMHTTP1.ReportLevel := Status_Basic; NMHTTP1.Get('http://web/getip.asp'); { 获取网站文本 } Result:=NMHTTP1.Body;end;------getip.asp 片段------...userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR") If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR") response.write userip 第一句应该是:function TForm1.GetWanIP:string; 为什么计算不了啊??? 如何运行时动态创建一个在自建类中的Tedit组件?我创建时候总是警告说类型不匹配,为啥? to----ljmanage 安装控件 WebCopy是什么东东 怎么样可以使菜单做成XP风格的 如何在程序中搜索计算机中指定扩展名的所有文件? Delphi现在主要用来干什么? 请教关于CXGRID单元格的显示问题 如何使用TThreed进行多线程编程 重金求助DELPHI压缩与解压缩控件. 关于链接外部应用程序的问题
begin
NMHTTP1.InputFileMode := FALSE;
NMHTTP1.OutputFileMode := FALSE;
NMHTTP1.ReportLevel := Status_Basic; NMHTTP1.Get('http://web/getip.asp'); { 获取网站文本 }
Result:=NMHTTP1.Body;
end;
------getip.asp 片段------
...
userip = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If userip = "" Then userip = Request.ServerVariables("REMOTE_ADDR")
response.write userip