如何在Web Service的服务端取得客户端的IP？？？

Question

做了一个Web Service应用。
在客户端需要调用服务端的一个函数，比如：GetMyIP，函数返回客户端的IP地址。
因为在局网里，我取不到代理服务器的IP，只能用这个方法来取了。
谁知道怎么实现这个功能？？

Answer 1

我知道，好像我贴过答案，不知道是不是在这了。^_^在TWebModule单元（或相似功能的地方），声明一个全局的变量
threadvar  
  g_RemoteAddr: WideString;然后在TWebModule的事件BeforeDispatch中zho
procedure TWebMD.WebModuleBeferDispatch(Sender: TObject;
  Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  g_RemoteAddr := Request.RemoteAddr;
end;