如何知道在Datasnap REST服务上调用的方法

Question

在Datasnap REST服务（ISAPI模块）上，我希望能够知道所调用的方法。 我将在通用例程上使用它，以在发生的每个错误/异常上写入日志。

procedure WriteLog(Error: string);
var Log, Service, LogFile: string;
begin
  Service := ExtractFileName(GetModuleName(HInstance));
  Service := Copy(Service, 1, Service.Length - 4);
  if not TDirectory.Exists('C:\Logs') then TDirectory.CreateDirectory('C:\Logs');
  if not TDirectory.Exists('C:\Logs\' + Service) then TDirectory.CreateDirectory('C:\Logs\' + Service);
  LogFile := 'C:\Logs\' + Service + '\' + FormatDateTime('yyyy-mm-dd_hh-nn-zzz', Now) + '.txt';

  Log := 'Call : ' + XXXXXX + sLineBreak;
  Log := Log + 'User : ' + TDSSessionManager.GetThreadSession.GetData('User') + sLineBreak;
  Log := Log + 'IP : ' + TDSSessionManager.GetThreadSession.GetData('RemoteIP') + sLineBreak;
  Log := Log + 'Error : ' + sLineBreak + Error;
  TFile.WriteAllText(LogFile, Log);
end;

我需要用所调用方法的名称替换XXXXXX。

该信息在服务的WebModule上的WebModuleBeforeDispatch事件的Request参数中可用。

但是我无法在会话数据中设置该值（因此我的WriteLog例程可以访问该值），因为那时还没有会话。

这段代码引发了一个AV：

procedure TWebModule1.WebModuleBeforeDispatch(Sender: TObject; Request: TWebRequest; Response: TWebResponse; var Handled: Boolean);
begin
  Response.SetCustomHeader('Access-Control-Allow-Origin','*'); 

  if Trim(Request.GetFieldByName('Access-Control-Request-Headers')) <> '' then begin
    Response.SetCustomHeader('Access-Control-Allow-Headers', Request.GetFieldByName('Access-Control-Request-Headers'));  
    Handled := True;  // I answer to CORS calls
  end;

  TDSSessionManager.GetThreadSession.PutData('MethodCalled', Request.PathInfo);

  if FServerFunctionInvokerAction <> nil then
    FServerFunctionInvokerAction.Enabled := AllowServerFunctionInvoker;
end;

目前，我已经在WebModule上设置了一个threadvar变量来保存此值，以便WriteLog例程可以访问它。

它可以工作，但是全局变量是一个非常丑陋的解决方案，更重要的是，它在每次调用后都会引起较小的内存泄漏。

您认为我可以在哪里保存该值，以便在需要时可以读取它？

谢谢。

Answer 1

我认为可以从DSAuthenticationManagerUserAuthorize事件中的EventObject.MethodAlias访问它。