doublecmd/src/fconnectionmanager.pas

unit fConnectionManager;

{$mode objfpc}{$H+}

interface

uses
  Classes, SysUtils, FileUtil, LResources, Forms, Controls, Graphics, Dialogs,
  StdCtrls, Buttons, ComCtrls, uFileView;

type

  { TfrmConnectionManager }

  TfrmConnectionManager = class(TForm)
    btnCancel: TBitBtn;
    btnDelete: TBitBtn;
    btnEdit: TBitBtn;
    btnAdd: TBitBtn;
    btnConnect: TBitBtn;
    gbConnectTo: TGroupBox;
    ImageList: TImageList;
    tvConnections: TTreeView;
    procedure btnAddClick(Sender: TObject);
    procedure btnConnectClick(Sender: TObject);
    procedure btnDeleteClick(Sender: TObject);
    procedure btnEditClick(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure tvConnectionsSelectionChanged(Sender: TObject);
  private
    FFileView: TFileView;
  public
    constructor Create(TheOwner: TComponent; FileView: TFileView); reintroduce;
  end; 

function ShowConnectionManager(FileView: TFileView): Boolean;

implementation

{$R *.lfm}

uses
  uGlobs, uDCUtils, uShowMsg, uWfxModule, WfxPlugin, uWfxPluginFileSource, uLng,
  uConnectionManager;

function ShowConnectionManager(FileView: TFileView): Boolean;
begin
  with TfrmConnectionManager.Create(Application, FileView) do
  begin
    try
      Result:= (ShowModal = mrOK);
    finally
      Free;
    end;
  end;
end;

{ TfrmConnectionManager }

procedure TfrmConnectionManager.tvConnectionsSelectionChanged(Sender: TObject);
var
  bEnabled: Boolean;
begin
  if not Assigned(tvConnections.Selected) then
    begin
      btnConnect.Enabled:= False;
      btnAdd.Enabled:= False;
      btnEdit.Enabled:= False;
      btnDelete.Enabled:= False;
    end
  else
    begin
      bEnabled:= Assigned(tvConnections.Selected.Data);
      btnConnect.Enabled:= not bEnabled;
      btnAdd.Enabled:= bEnabled;
      btnEdit.Enabled:= not bEnabled;
      btnDelete.Enabled:= not bEnabled;
    end;
end;

procedure TfrmConnectionManager.btnAddClick(Sender: TObject);
var
  WfxPluginFileSource: IWfxPluginFileSource;
  Connection: UTF8String;
begin
  {
  WfxPluginFileSource:= PFileSourceRecord(tvConnections.Selected.Data)^.FileSource as IWfxPluginFileSource;
  if Assigned(WfxPluginFileSource) then
  begin
    if WfxPluginFileSource.WfxModule.WfxNetworkManageConnection(Handle, Connection, FS_NM_ACTION_ADD) then
    begin
      with tvConnections.Items.AddChild(tvConnections.Selected, Connection) do
      StateIndex:= 1;
    end;
  end;
  }
end;

procedure TfrmConnectionManager.btnConnectClick(Sender: TObject);
var
  WfxPluginFileSource: IWfxPluginFileSource;
  Connection,
  RemotePath,
  RootPath: UTF8String;
begin
  {
  WfxPluginFileSource:= PFileSourceRecord(tvConnections.Selected.Parent.Data)^.FileSource as IWfxPluginFileSource;
  if Assigned(WfxPluginFileSource) then
  begin
    Connection:= tvConnections.Selected.Text;
    if WfxPluginFileSource.WfxModule.WfxNetworkOpenConnection(Connection, RootPath, RemotePath) then
      begin
        DoDirSeparators(RootPath);
        DoDirSeparators(RemotePath);
        WfxPluginFileSource.SetCurrentAddress(Connection);
        WfxPluginFileSource.SetRootDir(IncludeTrailingPathDelimiter(RootPath));
        FFileView.AddFileSource(WfxPluginFileSource, ExcludeTrailingPathDelimiter(RootPath) + RemotePath);
        tvConnections.Selected.Parent.Data:= nil;
        Close;
      end
    else
      begin
        msgError(Format(rsMsgErrCanNotConnect, [Connection]));
      end;
  end;
  }
end;

procedure TfrmConnectionManager.btnDeleteClick(Sender: TObject);
var
  WfxPluginFileSource: IWfxPluginFileSource;
  Connection: UTF8String;
begin
  {
  WfxPluginFileSource:= PFileSourceRecord(tvConnections.Selected.Parent.Data)^.FileSource as IWfxPluginFileSource;
  if Assigned(WfxPluginFileSource) then
  begin
    Connection:= tvConnections.Selected.Text;
    if WfxPluginFileSource.WfxModule.WfxNetworkManageConnection(Handle, Connection, FS_NM_ACTION_DELETE) then
    begin
      tvConnections.Items.BeginUpdate;
      tvConnections.Items.Delete(tvConnections.Selected);
      tvConnections.Items.EndUpdate;
    end;
  end;
  }
end;

procedure TfrmConnectionManager.btnEditClick(Sender: TObject);
var
  WfxPluginFileSource: IWfxPluginFileSource;
  Connection: UTF8String;
begin
  {
  WfxPluginFileSource:= PFileSourceRecord(tvConnections.Selected.Parent.Data)^.FileSource as IWfxPluginFileSource;
  if Assigned(WfxPluginFileSource) then
  begin
    Connection:= tvConnections.Selected.Text;
    if WfxPluginFileSource.WfxModule.WfxNetworkManageConnection(Handle, Connection, FS_NM_ACTION_EDIT) then
      tvConnections.Selected.Text:= Connection;
  end;
  }
end;

procedure TfrmConnectionManager.FormDestroy(Sender: TObject);
var
  I: Integer;
begin
  {
  for I:= 0 to tvConnections.Items.Count - 1 do
  begin
    if Assigned(tvConnections.Items.Item[I].Data) then
      DisposeFileSourceRecord(tvConnections.Items.Item[I].Data);
  end;
  }
end;

constructor TfrmConnectionManager.Create(TheOwner: TComponent; FileView: TFileView);
var
  I, J: Integer;
  WfxPluginFileSource: IWfxPluginFileSource = nil;
  sModuleFileName,
  Connection: UTF8String;
  Node, SubNode: TTreeNode;
begin
  {
  FFileView:= FileView;
  inherited Create(TheOwner);
  for I:= 0 to gWfxPlugins.Count - 1 do
  begin
    if gWfxPlugins.Enabled[I] then
    begin
      sModuleFileName:= GetCmdDirFromEnvVar(gWfxPlugins.FileName[I]);
      WfxPluginFileSource:= TWfxPluginFileSource.Create(sModuleFileName, gWfxPlugins.Name[I]);
      try
        if Assigned(WfxPluginFileSource) then
        with WfxPluginFileSource do
        begin
           if WFXmodule.VFSNetworkSupport then
            begin
              Node:= tvConnections.Items.Add(nil, gWfxPlugins.Name[I]);
              Node.Data:= NewFileSourceRecord(WfxPluginFileSource);
              Node.StateIndex:= 0;
              J:= 0;
              while WfxModule.WfxNetworkGetConnection(J, Connection) do
              begin
                SubNode:= tvConnections.Items.AddChild(Node, Connection);
                SubNode.StateIndex:= 1;
                Inc(J);
              end;
            end
           else
             begin
               WfxPluginFileSource:= nil;
             end;
         end;
      except
        WfxPluginFileSource:= nil;
      end;
    end;
  end;
  }
end;

end.