[ZEOS] Benutzername und PWD nach LoginDialog - wie ermitteln

[HeikoAdams]

Bis auf weiteres habe ich das Problem dadurch gelöst, das ich in der Connect Procedure von ZConnection

Delphi-Quellcode:

      ...
      if Assigned(FOnLogin) then
        FOnLogin(Self, UserName, Password)
      else
      begin
        if Assigned(LoginDialogProc) then
        begin
          if not LoginDialogProc(FDatabase, UserName, Password) then
            Exit
        end
        else
          raise Exception.Create(SLoginPromptFailure);
      end;
      ...

in

Delphi-Quellcode:

      ...
      if Assigned(FOnLogin) then
        FOnLogin(Self, UserName, Password)
      else
      begin
        if Assigned(LoginDialogProc) then
        begin
          if not LoginDialogProc(FDatabase, UserName, Password) then
            Exit
          else
          begin
            FUser := UserName;
            FPassword := Password;
          end;
        end
        else
          raise Exception.Create(SLoginPromptFailure);
      end;
      ...

abgeändert habe.