delphi - Delphi XE2 DataSnap - サーバー メソッド モジュールの REST 接続プロパティにアクセスする

Question

REST クライアントからの接続を提供する XE2 DataSnap サーバーを構築しています。私の DSServerClass LifeCycle プロパティは「Invocation」に設定されています。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 を使用しないでください。