XE IAppServerSOAP 获取客户端IP

在XE IAppServerSOAP中，可以通过获取HTTP头部信息来获取客户端IP。具体实现方式如下：

1. 在IAppServerSOAP的OnBeforeDispatch方法中，获取HTTP头部信息：

procedure TMyAppServerSOAP.OnBeforeDispatch(const MethodName: string; var Params: TArray<TValue>);
var
  Request: TWebRequest;
  ClientIP: string;
begin
  Request := GetWebRequest;
  ClientIP := Request.RemoteAddr;
  // do something with the client IP
end;

2. 在IAppServerSOAP的OnAfterDispatch方法中，同样可以获取HTTP头部信息：

procedure TMyAppServerSOAP.OnAfterDispatch(const MethodName: string; var Params: TArray<TValue>; var Result: TValue);
var
  Request: TWebRequest;
  ClientIP: string;
begin
  Request := GetWebRequest;
  ClientIP := Request.RemoteAddr;
  // do something with the client IP
end;