Einzelnen Beitrag anzeigen

Kostas

Registriert seit: 14. Mai 2003
Ort: Gerstrhofen
1.099 Beiträge
 
Delphi 10 Seattle Enterprise
 
#2

AW: DataSnap Login unterschied zwischen Settle, Berlin und Tokio

  Alt 13. Apr 2018, 15:10
Ich habe die Ursache gefunden.

Der Event DSAuthenticationManager1.UserAuthenticate wird zwei mal gefeuert. Bei ersten mal ist User und Password immer leer und erst beim zweiten mal ist User und Password befüllt!


Delphi-Quellcode:
procedure TServerContainer1.DSAuthenticationManager1UserAuthenticate(
  Sender: TObject; const Protocol, Context, User, Password: string;
  var valid: Boolean; UserRoles: TStrings);
begin
  { TODO : Validieren Sie den Client-Benutzer und das Passwort.
    Wenn eine rollenbasierte Autorisierung erforderlich ist, fügen Sie dem Parameter UserRoles Rollennamen hinzu  }


  frMain.Memo1.Lines.Add(Format('Username: %s Password: %s',[User, Password]));

  valid := ((User = '1234') and (Password = '5678'));
end;
  Mit Zitat antworten Zitat