Delphi XE2 DataSnap - 在服務器方法模塊中訪問REST連接屬性

Question

我正在構建一個XE2 DataSnap服務器，它將服務於來自REST客戶端的連接。我的DSServerClass LifeCycle屬性設置爲「調用」。 REST連接屬性將包括通過DSAuthenticationManager UserAuthenticate（）事件處理的用戶名和密碼。我需要知道的是如何訪問服務器方法類中的用戶名和密碼？我想能夠知道哪個REST用戶名/密碼啓動了我的服務器類的對象實例。

Answer 1

您可以使用DSServerClass.OnPrepare爲：

procedure TServerContainerTest.DSServerClass1Prepare(
    DSPrepareEventObject: TDSPrepareEventObject); 
begin 
    // Add username property to TServerMethodsTest 
    if DSPrepareEventObject.MethodInstance is TServerMethodsTest then 
    TServerMethodsTest(DSPrepareEventObject.MethodInstance).Username := DSPrepareEventObject.UserName; 
end; 

有沒有可用的密碼。 請勿爲此使用Server LifeCycle！