同上
解决方案 »
- 如何fastreport4 安装到delphi7
- ActiveX控件开发问题
- delphi版无高手,,我的问题竟然解决不了..这段代码编译后在win2000环境下没任何问题,可是在XP中出错?怎么解决?...
- 两个客户端中的DBGrid数据同步的问题!
- 用 dbExpress 访问SQLServer2000数据库,如何查询相关联表中的数据是否存在!
- 如何把计算机和电视机连起来玩游戏
- 数据长度和delphi
- "Invalid floating point operation"怎么回事?
- 关于MDI的疑难杂症
- 单线程中的无限循环语句为什么影响整个进程的执行??
- 如何用Delphi實現繁簡字體互換???
- 海量搜索为什么是无效连接。
you try It !
type
TWebMD = class(TWebModule)
HTTPSoapDispatcher1: THTTPSoapDispatcher;
HTTPSoapPascalInvoker1: THTTPSoapPascalInvoker;
WSDLHTMLPublish1: TWSDLHTMLPublish;
procedure WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
procedure WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
private
{ Private declarations }
public
{ Public declarations }
end;var
WebMD: TWebMD;threadvar //线程内使用的变量
g_RemoteAddr: WideString; //Client端IPimplementation{$R *.dfm}procedure TWebMD.WebModule1DefaultHandlerAction(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
WSDLHTMLPublish1.ServiceInfo(Sender, Request, Response, Handled);
end;procedure TWebMD.WebModuleBeforeDispatch(Sender: TObject;
Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
//取得客户端IP
g_RemoteAddr := Request.RemoteAddr;
end;
程序运行到目前为止还没有什么问题,
不知道还有没有别的更好的方法,
我觉得VS.NET在这个问题上是很方便的,
Borland还需努力。:)
如何访问这个变量g_RemoteAddr?