From c36919073910a98ddf1b8008227e0f5ede1a53bb Mon Sep 17 00:00:00 2001 From: Tomas Bzatek Date: Sat, 3 Oct 2009 20:08:12 +0200 Subject: Parse out password from URI entered in the Quick Connect dialog and reuse it on first password prompt --- UQuickConnect.pas | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) (limited to 'UQuickConnect.pas') diff --git a/UQuickConnect.pas b/UQuickConnect.pas index 8234edd..7533bd4 100644 --- a/UQuickConnect.pas +++ b/UQuickConnect.pas @@ -268,7 +268,7 @@ procedure TFQuickConnect.DoConnect; var Engine: TVFSEngine; i, j: integer; VFSPlugin: TVFSPlugin; - Scheme: string; + URI, Scheme: string; begin if ConnectionManager <> nil then AFConnectionManager := ConnectionManager else AFConnectionManager := TFConnectionManager.Create(Self); @@ -321,8 +321,10 @@ begin Engine.SavePath := SourcePanelEngine.Path; Engine.OpenedFromQuickConnect := True; Engine.CustomPluginIDSave := ConfQuickConnectPluginID; + URI := URIComboBox.Entry.Text; + Engine.Password := URIRipPassword(URI, True); - if not AFConnectionManager.DoConnectInternal(URIComboBox.Entry.Text, Engine, FWidget) then begin + if not AFConnectionManager.DoConnectInternal(URI, Engine, FWidget, True) then begin if not AFConnectionManager.FSilenceError then Application.MessageBox(PGtkWindow(FWidget), LANGCouldntOpenURI, [mbOK], mbError, mbOK, mbOK); Table.Enabled := True; CloseButton.Enabled := True; -- cgit v1.2.3