私たちは、新しい、そして最初のDataSnapサーバーおよびクライアントアプリを開発しています。サーバーに認証を追加しましたが、クライアントからの接続のログイン詳細を動的に変更できません。のユーザーとパスワード
procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate(
Sender: TObject; const Protocol, Context, User, Password: string;
var valid: Boolean; UserRoles: TStrings);
空白のままです。
クライアントでは、そのように値を設定します...
DSConnection := TSQLConnection.Create(nil);
DSConnection.DriverName := 'DATASNAP';
DSConnection.LoginPrompt := False;
DSConnection.Params.Values['port'] := Port;
DSConnection.Params.Values['HostName'] := HostName;
DSConnection.Params.Values['DSAuthUser'] := Username;
DSConnection.OnLogin := DSConnectionOnLogin;
DSProviderConnection1.SQLConnection := DSConnection;
MMLog.Log('DSConnection: ' + DSConnection.Params.Text);
DSConnection.Open;
ただしDSConnectEventObject.ConnectProperties.Properties.Text
、サーバーOnConnect
イベントを見ると、渡されたパラメーターを確認できます。
私は何かが足りないのですか?
ありがとう、ピーター