webservices问题 在webservices服务程序中 客户端程序调用webservices接口 如何得到客户端的IP?

Question

同上

Answer 1

GetHostName()
you try It !

Answer 2

我知道一种方式，目前看还行。
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还需努力。:)

Answer 3

YichengWang(◎◎◎◎) 
如何访问这个变量g_RemoteAddr?

Answer 4

倒塞到 implementation中,