diff options
Diffstat (limited to 'UConnectionManager.pas')
| -rw-r--r-- | UConnectionManager.pas | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/UConnectionManager.pas b/UConnectionManager.pas index 90db1e7..86f3bd7 100644 --- a/UConnectionManager.pas +++ b/UConnectionManager.pas @@ -360,7 +360,7 @@ begin end; end; -function vfs_ask_password_callback(const AMessage: PChar; const default_user: PChar; const default_domain: PChar; flags: TVFSAskPasswordFlags; +function vfs_ask_password_callback(const AMessage: PChar; const default_user: PChar; const default_domain: PChar; const default_password: PChar; flags: TVFSAskPasswordFlags; username, password: PPChar; anonymous: PInteger; domain: PPChar; password_save: PVFSPasswordSave; user_data: Pointer): LongBool; cdecl; var ConnMgr: TFConnectionManager; @@ -387,7 +387,7 @@ begin if (password_save <> nil) { and ConfGnomeKeyringEnabled} then password_save^ := VFS_PASSWORD_SAVE_PERMANENTLY; end else begin // Show password dialog and continue in loop - Result := HandleVFSAskPasswordCallback(DialogParent, AMessage, default_user, default_domain, flags, username, password, anonymous, domain, password_save); + Result := HandleVFSAskPasswordCallback(DialogParent, AMessage, default_user, default_domain, default_password, flags, username, password, anonymous, domain, password_save); if ConnMgr is TFConnectionManager then begin ConnMgr.FSilenceError := Result = False; // Save password back to Connection Manager @@ -452,7 +452,7 @@ begin Application.ProcessMessages; FVFSAskPasswordTry := 0; - b := Engine.VFSOpenURI(UTF8ToStr(FActiveConnInfo.GetURI(False)), @vfs_ask_question_callback, @vfs_ask_password_callback, Self); + b := Engine.VFSOpenURI(UTF8ToStr(FActiveConnInfo.GetURI(False)), @vfs_ask_question_callback, @vfs_ask_password_callback, nil, Self); AFRemoteWait.Free; AFRemoteWait := nil; |