mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
UPD: Small fixes for WfxPluginFileSource
This commit is contained in:
Alexander Koblov
parent
1f1a302621
commit
bc25ffac85
3 changed files with 949 additions and 917 deletions
|
|
@ -37,9 +37,11 @@ type
|
|||
TDialogBox = class(TForm)
|
||||
DialogButton: TButton;
|
||||
DialogComboBox: TComboBox;
|
||||
DialogListBox: TListBox;
|
||||
DialogCheckBox: TCheckBox;
|
||||
DialogGroupBox: TGroupBox;
|
||||
DialogLabel: TLabel;
|
||||
DialogListBox: TListBox;
|
||||
DialogEdit: TEdit;
|
||||
// Dialog events
|
||||
procedure DialogBoxShow(Sender: TObject);
|
||||
// Button events
|
||||
|
|
|
|||
File diff suppressed because it is too large
Load diff
|
|
@ -1,402 +1,433 @@
|
|||
{
|
||||
Double Commander
|
||||
-------------------------------------------------------------------------
|
||||
Virtual File System - class for manage WFX plugins (Version 1.3)
|
||||
|
||||
Copyright (C) 2007-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
|
||||
Callback functions based on:
|
||||
Total Commander filesystem plugins debugger
|
||||
Author: Pavel Dubrovsky
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
}
|
||||
|
||||
unit uWFXmodule;
|
||||
|
||||
{$mode delphi}{$H+}
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uVFSModule, uVFSTypes, ufsplugin, uWFXprototypes,
|
||||
dynlibs, uClassesEx;
|
||||
|
||||
const
|
||||
WFX_SUCCESS = 0;
|
||||
WFX_NOTSUPPORTED = -10;
|
||||
WFX_ERROR = -20;
|
||||
|
||||
type
|
||||
|
||||
{ TWFXModule }
|
||||
|
||||
TWFXModule = class (TVFSModule)
|
||||
private
|
||||
FModuleHandle: TLibHandle; // Handle to .DLL or .so
|
||||
public
|
||||
{ Mandatory }
|
||||
FsInit : TFsInit;
|
||||
FsFindFirst : TFsFindFirst;
|
||||
FsFindNext : TFsFindNext;
|
||||
FsFindClose : TFsFindClose;
|
||||
{ Optional }
|
||||
FsGetDefRootName : TFsGetDefRootName;
|
||||
FsGetFile : TFsGetFile;
|
||||
FsPutFile : TFsPutFile;
|
||||
FsDeleteFile : TFsDeleteFile;
|
||||
FsRemoveDir : TFsRemoveDir;
|
||||
FsExecuteFile : TFsExecuteFile;
|
||||
FsMkDir : TFsMkDir;
|
||||
FsStatusInfo : TFsStatusInfo;
|
||||
FsSetDefaultParams : TFsSetDefaultParams;
|
||||
FsContentPluginUnloading : TFsContentPluginUnloading;
|
||||
//---------------------
|
||||
FsSetAttr:TFsSetAttr;
|
||||
FsSetTime:TFsSetTime;
|
||||
FsExtractCustomIcon:TFsExtractCustomIcon;
|
||||
FsRenMovFile:TFsRenMovFile;
|
||||
FsDisconnect:TFsDisconnect;
|
||||
FsGetPreviewBitmap:TFsGetPreviewBitmap;
|
||||
FsLinksToLocalFiles:TFsLinksToLocalFiles;
|
||||
FsGetLocalName:TFsGetLocalName;
|
||||
//---------------------
|
||||
FsContentGetDetectString:TFsContentGetDetectString;
|
||||
FsContentGetSupportedField:TFsContentGetSupportedField;
|
||||
FsContentGetValue:TFsContentGetValue;
|
||||
FsContentSetDefaultParams:TFsContentSetDefaultParams;
|
||||
FsContentStopGetValue:TFsContentStopGetValue;
|
||||
FsContentGetDefaultSortOrder:TFsContentGetDefaultSortOrder;
|
||||
FsContentGetSupportedFieldFlags:TFsContentGetSupportedFieldFlags;
|
||||
FsContentSetValue:TFsContentSetValue;
|
||||
FsContentGetDefaultView:TFsContentGetDefaultView;
|
||||
//---------------------
|
||||
procedure WFXStatusInfo(RemoteDir: String; InfoStartEnd, InfoOperation: Integer);
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
function LoadModule(const sName: String):Boolean;override; {Load plugin}
|
||||
procedure UnloadModule;override;
|
||||
function VFSInit(Data: PtrInt):Boolean;override;
|
||||
procedure VFSDestroy;override;
|
||||
function VFSCaps : TVFSCaps;override;
|
||||
|
||||
function VFSConfigure(Parent: THandle):Boolean;override;
|
||||
|
||||
function VFSMisc: PtrUInt; override;
|
||||
end;
|
||||
|
||||
{ TWFXModuleList }
|
||||
|
||||
TWFXModuleList = class(TStringList)
|
||||
private
|
||||
function GetAEnabled(Index: Integer): Boolean;
|
||||
function GetAFileName(Index: Integer): String;
|
||||
function GetAName(Index: Integer): String;
|
||||
procedure SetAEnabled(Index: Integer; const AValue: Boolean);
|
||||
procedure SetAFileName(Index: Integer; const AValue: String);
|
||||
procedure SetAName(Index: Integer; const AValue: String);
|
||||
public
|
||||
procedure Load(Ini: TIniFileEx); overload;
|
||||
procedure Save(Ini: TIniFileEx); overload;
|
||||
function FindFirstEnabledByName(Name: String): Integer;
|
||||
|
||||
property Name[Index: Integer]: String read GetAName write SetAName;
|
||||
property FileName[Index: Integer]: String read GetAFileName write SetAFileName;
|
||||
property Enabled[Index: Integer]: Boolean read GetAEnabled write SetAEnabled;
|
||||
end;
|
||||
|
||||
function GetErrorMsg(iErrorMsg: LongInt): UTF8String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uOSUtils, uLng, FileUtil, uGlobsPaths;
|
||||
|
||||
const
|
||||
WfxIniFileName = 'wfx.ini';
|
||||
|
||||
function GetErrorMsg(iErrorMsg: LongInt): UTF8String;
|
||||
begin
|
||||
case iErrorMsg of
|
||||
WFX_ERROR:
|
||||
Result:= 'Unknown error!';
|
||||
WFX_NOTSUPPORTED,
|
||||
FS_FILE_NOTSUPPORTED:
|
||||
Result:= rsMsgErrNotSupported;
|
||||
FS_FILE_NOTFOUND:
|
||||
Result:= 'File not found!';
|
||||
FS_FILE_READERROR:
|
||||
Result:= rsMsgErrERead;
|
||||
FS_FILE_WRITEERROR:
|
||||
Result:= rsMsgErrEWrite;
|
||||
FS_FILE_USERABORT:
|
||||
Result:= rsMsgErrEAborted;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TWFXModule }
|
||||
|
||||
procedure TWFXModule.WFXStatusInfo(RemoteDir: String; InfoStartEnd, InfoOperation: Integer);
|
||||
begin
|
||||
if Assigned(FsStatusInfo) then
|
||||
FsStatusInfo(PChar(UTF8ToSys(RemoteDir)), InfoStartEnd, InfoOperation);
|
||||
end;
|
||||
|
||||
constructor TWFXModule.Create;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
destructor TWFXModule.Destroy;
|
||||
begin
|
||||
//TODO:Remove this and use VFSDestroy
|
||||
//------------------------------------------------------
|
||||
if Assigned(FsContentPluginUnloading) then
|
||||
FsContentPluginUnloading;
|
||||
//------------------------------------------------------
|
||||
UnloadModule;
|
||||
end;
|
||||
|
||||
function TWFXModule.LoadModule(const sName: String): Boolean;
|
||||
begin
|
||||
FModuleHandle := mbLoadLibrary(sName);
|
||||
Result := (FModuleHandle <> 0);
|
||||
if FModuleHandle = 0 then exit;
|
||||
{ Mandatory }
|
||||
FsInit := TFsInit(GetProcAddress(FModuleHandle,'FsInit'));
|
||||
FsFindFirst := TFsFindFirst(GetProcAddress(FModuleHandle,'FsFindFirst'));
|
||||
FsFindNext := TFsFindNext(GetProcAddress(FModuleHandle,'FsFindNext'));
|
||||
FsFindClose := TFsFindClose(GetProcAddress(FModuleHandle,'FsFindClose'));
|
||||
{ Optional }
|
||||
FsGetDefRootName := TFsGetDefRootName(GetProcAddress(FModuleHandle,'FsGetDefRootName'));
|
||||
FsExecuteFile := TFsExecuteFile(GetProcAddress(FModuleHandle,'FsExecuteFile'));
|
||||
FsGetFile := TFsGetFile(GetProcAddress(FModuleHandle,'FsGetFile'));
|
||||
FsPutFile := TFsPutFile(GetProcAddress(FModuleHandle,'FsPutFile'));
|
||||
FsDeleteFile := TFsDeleteFile(GetProcAddress(FModuleHandle,'FsDeleteFile'));
|
||||
FsMkDir := TFsMkDir(GetProcAddress(FModuleHandle,'FsMkDir'));
|
||||
FsRemoveDir := TFsRemoveDir(GetProcAddress(FModuleHandle,'FsRemoveDir'));
|
||||
FsStatusInfo := TFsStatusInfo(GetProcAddress(FModuleHandle,'FsStatusInfo'));
|
||||
FsSetDefaultParams := TFsSetDefaultParams(GetProcAddress(FModuleHandle,'FsSetDefaultParams'));
|
||||
FsContentPluginUnloading := TFsContentPluginUnloading(GetProcAddress(FModuleHandle,'FsContentPluginUnloading'));
|
||||
//---------------------
|
||||
FsSetAttr := TFsSetAttr (GetProcAddress(FModuleHandle,'FsSetAttr'));
|
||||
FsSetTime := TFsSetTime (GetProcAddress(FModuleHandle,'FsSetTime'));
|
||||
FsExtractCustomIcon := TFsExtractCustomIcon (GetProcAddress(FModuleHandle,'FsExtractCustomIcon'));
|
||||
FsRenMovFile := TFsRenMovFile (GetProcAddress(FModuleHandle,'FsRenMovFile'));
|
||||
FsDisconnect := TFsDisconnect (GetProcAddress(FModuleHandle,'FsDisconnect'));
|
||||
FsGetPreviewBitmap := TFsGetPreviewBitmap (GetProcAddress(FModuleHandle,'FsGetPreviewBitmap'));
|
||||
FsLinksToLocalFiles := TFsLinksToLocalFiles (GetProcAddress(FModuleHandle,'FsLinksToLocalFiles'));
|
||||
FsGetLocalName := TFsGetLocalName (GetProcAddress(FModuleHandle,'FsGetLocalName'));
|
||||
//---------------------
|
||||
FsContentGetDetectString := TFsContentGetDetectString (GetProcAddress(FModuleHandle,'FsContentGetDetectString'));
|
||||
FsContentGetSupportedField := TFsContentGetSupportedField (GetProcAddress(FModuleHandle,'FsContentGetSupportedField'));
|
||||
FsContentGetValue := TFsContentGetValue (GetProcAddress(FModuleHandle,'FsContentGetValue'));
|
||||
FsContentSetDefaultParams := TFsContentSetDefaultParams (GetProcAddress(FModuleHandle,'FsContentSetDefaultParams'));
|
||||
FsContentStopGetValue := TFsContentStopGetValue (GetProcAddress(FModuleHandle,'FsContentStopGetValue'));
|
||||
FsContentGetDefaultSortOrder := TFsContentGetDefaultSortOrder (GetProcAddress(FModuleHandle,'FsContentGetDefaultSortOrder'));
|
||||
FsContentGetSupportedFieldFlags := TFsContentGetSupportedFieldFlags (GetProcAddress(FModuleHandle,'FsContentGetSupportedFieldFlags'));
|
||||
FsContentSetValue := TFsContentSetValue (GetProcAddress(FModuleHandle,'FsContentSetValue'));
|
||||
FsContentGetDefaultView := TFsContentGetDefaultView (GetProcAddress(FModuleHandle,'FsContentGetDefaultView'));
|
||||
end;
|
||||
|
||||
procedure TWFXModule.UnloadModule;
|
||||
begin
|
||||
if FModuleHandle <> 0 then
|
||||
FreeLibrary(FModuleHandle);
|
||||
FModuleHandle := 0;
|
||||
{ Mandatory }
|
||||
FsInit := nil;
|
||||
FsFindFirst := nil;
|
||||
FsFindNext := nil;
|
||||
FsFindClose := nil;
|
||||
{ Optional }
|
||||
FsGetDefRootName := nil;
|
||||
FsGetFile := nil;
|
||||
FsPutFile := nil;
|
||||
FsDeleteFile := nil;
|
||||
FsRemoveDir := nil;
|
||||
FsExecuteFile := nil;
|
||||
FsMkDir := nil;
|
||||
FsStatusInfo := nil;
|
||||
FsSetDefaultParams:=nil;
|
||||
//---------------------
|
||||
FsSetAttr := nil;
|
||||
FsSetTime := nil;
|
||||
FsExtractCustomIcon := nil;
|
||||
FsRenMovFile := nil;
|
||||
FsDisconnect := nil;
|
||||
FsGetPreviewBitmap := nil;
|
||||
FsLinksToLocalFiles := nil;
|
||||
FsGetLocalName := nil;
|
||||
//---------------------
|
||||
FsContentGetDetectString := nil;
|
||||
FsContentGetSupportedField := nil;
|
||||
FsContentGetValue := nil;
|
||||
FsContentSetDefaultParams := nil;
|
||||
FsContentStopGetValue := nil;
|
||||
FsContentGetDefaultSortOrder := nil;
|
||||
FsContentGetSupportedFieldFlags := nil;
|
||||
FsContentSetValue := nil;
|
||||
FsContentGetDefaultView := nil;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSInit(Data: PtrInt): Boolean;
|
||||
var
|
||||
dps: pFsDefaultParamStruct;
|
||||
begin
|
||||
if Assigned(FsSetDefaultParams) then
|
||||
begin
|
||||
GetMem(dps,SizeOf(tFsDefaultParamStruct));
|
||||
dps.DefaultIniName:=gpIniDir + WfxIniFileName;
|
||||
dps.PluginInterfaceVersionHi:=1;
|
||||
dps.PluginInterfaceVersionLow:=50;
|
||||
dps.size:=SizeOf(tFsDefaultParamStruct);
|
||||
FsSetDefaultParams(dps);
|
||||
FreeMem(dps,SizeOf(tFsDefaultParamStruct));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TWFXModule.VFSDestroy;
|
||||
begin
|
||||
//TODO: need to invoke this func
|
||||
if Assigned(FsContentPluginUnloading) then
|
||||
FsContentPluginUnloading;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSCaps: TVFSCaps;
|
||||
begin
|
||||
Result := [];
|
||||
if Assigned(FsGetFile) then
|
||||
Include(Result, VFS_CAPS_COPYOUT);
|
||||
if Assigned(FsPutFile) then
|
||||
Include(Result, VFS_CAPS_COPYIN);
|
||||
if Assigned(FsDeleteFile) then
|
||||
Include(Result, VFS_CAPS_DELETE);
|
||||
if Assigned(FsMkDir) then
|
||||
Include(Result, VFS_CAPS_MKDIR);
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSConfigure(Parent: System.THandle): Boolean;
|
||||
begin
|
||||
try
|
||||
WFXStatusInfo(PathDelim, FS_STATUS_START, FS_STATUS_OP_EXEC);
|
||||
Result:= (FsExecuteFile(Parent, PathDelim, 'properties') = FS_EXEC_OK);
|
||||
WFXStatusInfo(PathDelim, FS_STATUS_END, FS_STATUS_OP_EXEC);
|
||||
except
|
||||
Result:= False;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSMisc: PtrUInt;
|
||||
var
|
||||
pPlgName : PChar;
|
||||
begin
|
||||
New(pPlgName);
|
||||
if Assigned(FsGetDefRootName) then
|
||||
begin
|
||||
FsGetDefRootName(pPlgName, 256);
|
||||
Result := PtrUInt(pPlgName);
|
||||
end
|
||||
else
|
||||
Result:=0;
|
||||
end;
|
||||
|
||||
{ TWFXModuleList }
|
||||
|
||||
function TWFXModuleList.GetAEnabled(Index: Integer): Boolean;
|
||||
begin
|
||||
Result:= Boolean(Objects[Index]);
|
||||
end;
|
||||
|
||||
function TWFXModuleList.GetAFileName(Index: Integer): String;
|
||||
begin
|
||||
Result:= ValueFromIndex[Index];
|
||||
end;
|
||||
|
||||
function TWFXModuleList.GetAName(Index: Integer): String;
|
||||
begin
|
||||
Result:= Names[Index];
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAEnabled(Index: Integer; const AValue: Boolean);
|
||||
begin
|
||||
Objects[Index]:= TObject(AValue);
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAFileName(Index: Integer; const AValue: String);
|
||||
begin
|
||||
ValueFromIndex[Index]:= AValue;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAName(Index: Integer; const AValue: String);
|
||||
var
|
||||
sValue : String;
|
||||
begin
|
||||
sValue:= ValueFromIndex[Index];
|
||||
Self[Index]:= AValue + '=' + sValue;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.Load(Ini: TIniFileEx);
|
||||
var
|
||||
I: Integer;
|
||||
sCurrPlugin: String;
|
||||
begin
|
||||
Ini.ReadSectionRaw('FileSystemPlugins', Self);
|
||||
for I:= 0 to Count - 1 do
|
||||
if Pos('#', Name[I]) = 0 then
|
||||
begin
|
||||
Enabled[I]:= True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sCurrPlugin:= Name[I];
|
||||
Name[I]:= Copy(sCurrPlugin, 2, Length(sCurrPlugin) - 1);
|
||||
Enabled[I]:= False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.Save(Ini: TIniFileEx);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Ini.EraseSection('FileSystemPlugins');
|
||||
for I := 0 to Count - 1 do
|
||||
begin
|
||||
if Enabled[I] then
|
||||
begin
|
||||
Ini.WriteString('FileSystemPlugins', Name[I], FileName[I])
|
||||
end
|
||||
else
|
||||
begin
|
||||
Ini.WriteString('FileSystemPlugins', '#' + Name[I], FileName[I]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWFXModuleList.FindFirstEnabledByName(Name: String): Integer;
|
||||
begin
|
||||
Result:=0;
|
||||
while Result < Count do
|
||||
begin
|
||||
if Enabled[Result] and (DoCompareText(Names[Result], Name) = 0) then
|
||||
Exit
|
||||
else
|
||||
Result := Result + 1;
|
||||
end;
|
||||
if Result=Count then Result:=-1;
|
||||
end;
|
||||
|
||||
end.
|
||||
{
|
||||
Double Commander
|
||||
-------------------------------------------------------------------------
|
||||
Virtual File System - class for manage WFX plugins (Version 1.3)
|
||||
|
||||
Copyright (C) 2007-2009 Koblov Alexander (Alexx2000@mail.ru)
|
||||
|
||||
Callback functions based on:
|
||||
Total Commander filesystem plugins debugger
|
||||
Author: Pavel Dubrovsky
|
||||
|
||||
This program is free software; you can redistribute it and/or modify
|
||||
it under the terms of the GNU General Public License as published by
|
||||
the Free Software Foundation; either version 2 of the License, or
|
||||
(at your option) any later version.
|
||||
|
||||
This program is distributed in the hope that it will be useful,
|
||||
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
GNU General Public License for more details.
|
||||
|
||||
You should have received a copy of the GNU General Public License
|
||||
along with this program; if not, write to the Free Software
|
||||
Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA
|
||||
|
||||
}
|
||||
|
||||
unit uWFXmodule;
|
||||
|
||||
{$mode delphi}{$H+}
|
||||
|
||||
interface
|
||||
uses
|
||||
SysUtils, Classes, uVFSModule, uVFSTypes, ufsplugin, uWFXprototypes,
|
||||
dynlibs, uClassesEx, DialogAPI;
|
||||
|
||||
const
|
||||
WFX_SUCCESS = 0;
|
||||
WFX_NOTSUPPORTED = -10;
|
||||
WFX_ERROR = -20;
|
||||
|
||||
type
|
||||
|
||||
{ TWFXModule }
|
||||
|
||||
TWFXModule = class (TVFSModule)
|
||||
private
|
||||
FModuleHandle: TLibHandle; // Handle to .DLL or .so
|
||||
FModuleFileName: UTF8String;
|
||||
public
|
||||
{ Mandatory }
|
||||
FsInit : TFsInit;
|
||||
FsFindFirst : TFsFindFirst;
|
||||
FsFindNext : TFsFindNext;
|
||||
FsFindClose : TFsFindClose;
|
||||
{ Optional }
|
||||
FsGetDefRootName : TFsGetDefRootName;
|
||||
FsGetFile : TFsGetFile;
|
||||
FsPutFile : TFsPutFile;
|
||||
FsDeleteFile : TFsDeleteFile;
|
||||
FsRemoveDir : TFsRemoveDir;
|
||||
FsExecuteFile : TFsExecuteFile;
|
||||
FsMkDir : TFsMkDir;
|
||||
FsStatusInfo : TFsStatusInfo;
|
||||
FsSetDefaultParams : TFsSetDefaultParams;
|
||||
FsContentPluginUnloading : TFsContentPluginUnloading;
|
||||
//---------------------
|
||||
FsSetAttr:TFsSetAttr;
|
||||
FsSetTime:TFsSetTime;
|
||||
FsExtractCustomIcon:TFsExtractCustomIcon;
|
||||
FsRenMovFile:TFsRenMovFile;
|
||||
FsDisconnect:TFsDisconnect;
|
||||
FsGetPreviewBitmap:TFsGetPreviewBitmap;
|
||||
FsLinksToLocalFiles:TFsLinksToLocalFiles;
|
||||
FsGetLocalName:TFsGetLocalName;
|
||||
//---------------------
|
||||
FsContentGetDetectString:TFsContentGetDetectString;
|
||||
FsContentGetSupportedField:TFsContentGetSupportedField;
|
||||
FsContentGetValue:TFsContentGetValue;
|
||||
FsContentSetDefaultParams:TFsContentSetDefaultParams;
|
||||
FsContentStopGetValue:TFsContentStopGetValue;
|
||||
FsContentGetDefaultSortOrder:TFsContentGetDefaultSortOrder;
|
||||
FsContentGetSupportedFieldFlags:TFsContentGetSupportedFieldFlags;
|
||||
FsContentSetValue:TFsContentSetValue;
|
||||
FsContentGetDefaultView:TFsContentGetDefaultView;
|
||||
{ Dialog API }
|
||||
SetDlgProc: TSetDlgProc;
|
||||
//---------------------
|
||||
procedure WFXStatusInfo(RemoteDir: String; InfoStartEnd, InfoOperation: Integer);
|
||||
public
|
||||
constructor Create;
|
||||
destructor Destroy; override;
|
||||
function LoadModule(const sName: String):Boolean;override; {Load plugin}
|
||||
procedure UnloadModule;override;
|
||||
function VFSInit(Data: PtrInt):Boolean;override;
|
||||
procedure VFSDestroy;override;
|
||||
function VFSCaps : TVFSCaps;override;
|
||||
|
||||
function VFSConfigure(Parent: THandle):Boolean;override;
|
||||
|
||||
function VFSMisc: PtrUInt; override;
|
||||
end;
|
||||
|
||||
{ TWFXModuleList }
|
||||
|
||||
TWFXModuleList = class(TStringList)
|
||||
private
|
||||
function GetAEnabled(Index: Integer): Boolean;
|
||||
function GetAFileName(Index: Integer): String;
|
||||
function GetAName(Index: Integer): String;
|
||||
procedure SetAEnabled(Index: Integer; const AValue: Boolean);
|
||||
procedure SetAFileName(Index: Integer; const AValue: String);
|
||||
procedure SetAName(Index: Integer; const AValue: String);
|
||||
public
|
||||
procedure Load(Ini: TIniFileEx); overload;
|
||||
procedure Save(Ini: TIniFileEx); overload;
|
||||
function FindFirstEnabledByName(Name: String): Integer;
|
||||
|
||||
property Name[Index: Integer]: String read GetAName write SetAName;
|
||||
property FileName[Index: Integer]: String read GetAFileName write SetAFileName;
|
||||
property Enabled[Index: Integer]: Boolean read GetAEnabled write SetAEnabled;
|
||||
end;
|
||||
|
||||
function GetErrorMsg(iErrorMsg: LongInt): UTF8String;
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
uOSUtils, uLng, FileUtil, uGlobsPaths, fDialogBox;
|
||||
|
||||
const
|
||||
WfxIniFileName = 'wfx.ini';
|
||||
|
||||
function GetErrorMsg(iErrorMsg: LongInt): UTF8String;
|
||||
begin
|
||||
case iErrorMsg of
|
||||
WFX_ERROR:
|
||||
Result:= 'Unknown error!';
|
||||
WFX_NOTSUPPORTED,
|
||||
FS_FILE_NOTSUPPORTED:
|
||||
Result:= rsMsgErrNotSupported;
|
||||
FS_FILE_NOTFOUND:
|
||||
Result:= 'File not found!';
|
||||
FS_FILE_READERROR:
|
||||
Result:= rsMsgErrERead;
|
||||
FS_FILE_WRITEERROR:
|
||||
Result:= rsMsgErrEWrite;
|
||||
FS_FILE_USERABORT:
|
||||
Result:= rsMsgErrEAborted;
|
||||
end;
|
||||
end;
|
||||
|
||||
{ TWFXModule }
|
||||
|
||||
procedure TWFXModule.WFXStatusInfo(RemoteDir: String; InfoStartEnd, InfoOperation: Integer);
|
||||
begin
|
||||
if Assigned(FsStatusInfo) then
|
||||
FsStatusInfo(PChar(UTF8ToSys(RemoteDir)), InfoStartEnd, InfoOperation);
|
||||
end;
|
||||
|
||||
constructor TWFXModule.Create;
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
destructor TWFXModule.Destroy;
|
||||
begin
|
||||
//TODO:Remove this and use VFSDestroy
|
||||
//------------------------------------------------------
|
||||
if Assigned(FsContentPluginUnloading) then
|
||||
FsContentPluginUnloading;
|
||||
//------------------------------------------------------
|
||||
UnloadModule;
|
||||
end;
|
||||
|
||||
function TWFXModule.LoadModule(const sName: String): Boolean;
|
||||
begin
|
||||
FModuleHandle := mbLoadLibrary(sName);
|
||||
Result := (FModuleHandle <> 0);
|
||||
if FModuleHandle = 0 then exit;
|
||||
FModuleFileName:= sName;
|
||||
{ Mandatory }
|
||||
FsInit := TFsInit(GetProcAddress(FModuleHandle,'FsInit'));
|
||||
FsFindFirst := TFsFindFirst(GetProcAddress(FModuleHandle,'FsFindFirst'));
|
||||
FsFindNext := TFsFindNext(GetProcAddress(FModuleHandle,'FsFindNext'));
|
||||
FsFindClose := TFsFindClose(GetProcAddress(FModuleHandle,'FsFindClose'));
|
||||
{ Optional }
|
||||
FsGetDefRootName := TFsGetDefRootName(GetProcAddress(FModuleHandle,'FsGetDefRootName'));
|
||||
FsExecuteFile := TFsExecuteFile(GetProcAddress(FModuleHandle,'FsExecuteFile'));
|
||||
FsGetFile := TFsGetFile(GetProcAddress(FModuleHandle,'FsGetFile'));
|
||||
FsPutFile := TFsPutFile(GetProcAddress(FModuleHandle,'FsPutFile'));
|
||||
FsDeleteFile := TFsDeleteFile(GetProcAddress(FModuleHandle,'FsDeleteFile'));
|
||||
FsMkDir := TFsMkDir(GetProcAddress(FModuleHandle,'FsMkDir'));
|
||||
FsRemoveDir := TFsRemoveDir(GetProcAddress(FModuleHandle,'FsRemoveDir'));
|
||||
FsStatusInfo := TFsStatusInfo(GetProcAddress(FModuleHandle,'FsStatusInfo'));
|
||||
FsSetDefaultParams := TFsSetDefaultParams(GetProcAddress(FModuleHandle,'FsSetDefaultParams'));
|
||||
FsContentPluginUnloading := TFsContentPluginUnloading(GetProcAddress(FModuleHandle,'FsContentPluginUnloading'));
|
||||
//---------------------
|
||||
FsSetAttr := TFsSetAttr (GetProcAddress(FModuleHandle,'FsSetAttr'));
|
||||
FsSetTime := TFsSetTime (GetProcAddress(FModuleHandle,'FsSetTime'));
|
||||
FsExtractCustomIcon := TFsExtractCustomIcon (GetProcAddress(FModuleHandle,'FsExtractCustomIcon'));
|
||||
FsRenMovFile := TFsRenMovFile (GetProcAddress(FModuleHandle,'FsRenMovFile'));
|
||||
FsDisconnect := TFsDisconnect (GetProcAddress(FModuleHandle,'FsDisconnect'));
|
||||
FsGetPreviewBitmap := TFsGetPreviewBitmap (GetProcAddress(FModuleHandle,'FsGetPreviewBitmap'));
|
||||
FsLinksToLocalFiles := TFsLinksToLocalFiles (GetProcAddress(FModuleHandle,'FsLinksToLocalFiles'));
|
||||
FsGetLocalName := TFsGetLocalName (GetProcAddress(FModuleHandle,'FsGetLocalName'));
|
||||
//---------------------
|
||||
FsContentGetDetectString := TFsContentGetDetectString (GetProcAddress(FModuleHandle,'FsContentGetDetectString'));
|
||||
FsContentGetSupportedField := TFsContentGetSupportedField (GetProcAddress(FModuleHandle,'FsContentGetSupportedField'));
|
||||
FsContentGetValue := TFsContentGetValue (GetProcAddress(FModuleHandle,'FsContentGetValue'));
|
||||
FsContentSetDefaultParams := TFsContentSetDefaultParams (GetProcAddress(FModuleHandle,'FsContentSetDefaultParams'));
|
||||
FsContentStopGetValue := TFsContentStopGetValue (GetProcAddress(FModuleHandle,'FsContentStopGetValue'));
|
||||
FsContentGetDefaultSortOrder := TFsContentGetDefaultSortOrder (GetProcAddress(FModuleHandle,'FsContentGetDefaultSortOrder'));
|
||||
FsContentGetSupportedFieldFlags := TFsContentGetSupportedFieldFlags (GetProcAddress(FModuleHandle,'FsContentGetSupportedFieldFlags'));
|
||||
FsContentSetValue := TFsContentSetValue (GetProcAddress(FModuleHandle,'FsContentSetValue'));
|
||||
FsContentGetDefaultView := TFsContentGetDefaultView (GetProcAddress(FModuleHandle,'FsContentGetDefaultView'));
|
||||
{ Dialog API }
|
||||
SetDlgProc:= TSetDlgProc(GetProcAddress(FModuleHandle,'SetDlgProc'));
|
||||
end;
|
||||
|
||||
procedure TWFXModule.UnloadModule;
|
||||
begin
|
||||
if FModuleHandle <> 0 then
|
||||
FreeLibrary(FModuleHandle);
|
||||
FModuleHandle := 0;
|
||||
{ Mandatory }
|
||||
FsInit := nil;
|
||||
FsFindFirst := nil;
|
||||
FsFindNext := nil;
|
||||
FsFindClose := nil;
|
||||
{ Optional }
|
||||
FsGetDefRootName := nil;
|
||||
FsGetFile := nil;
|
||||
FsPutFile := nil;
|
||||
FsDeleteFile := nil;
|
||||
FsRemoveDir := nil;
|
||||
FsExecuteFile := nil;
|
||||
FsMkDir := nil;
|
||||
FsStatusInfo := nil;
|
||||
FsSetDefaultParams:=nil;
|
||||
//---------------------
|
||||
FsSetAttr := nil;
|
||||
FsSetTime := nil;
|
||||
FsExtractCustomIcon := nil;
|
||||
FsRenMovFile := nil;
|
||||
FsDisconnect := nil;
|
||||
FsGetPreviewBitmap := nil;
|
||||
FsLinksToLocalFiles := nil;
|
||||
FsGetLocalName := nil;
|
||||
//---------------------
|
||||
FsContentGetDetectString := nil;
|
||||
FsContentGetSupportedField := nil;
|
||||
FsContentGetValue := nil;
|
||||
FsContentSetDefaultParams := nil;
|
||||
FsContentStopGetValue := nil;
|
||||
FsContentGetDefaultSortOrder := nil;
|
||||
FsContentGetSupportedFieldFlags := nil;
|
||||
FsContentSetValue := nil;
|
||||
FsContentGetDefaultView := nil;
|
||||
{ Dialog API }
|
||||
SetDlgProc:= nil;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSInit(Data: PtrInt): Boolean;
|
||||
var
|
||||
dps: pFsDefaultParamStruct;
|
||||
SetDlgProcInfo: TSetDlgProcInfo;
|
||||
sPluginDir: WideString;
|
||||
sPluginConfDir: WideString;
|
||||
begin
|
||||
if Assigned(FsSetDefaultParams) then
|
||||
begin
|
||||
GetMem(dps,SizeOf(tFsDefaultParamStruct));
|
||||
dps.DefaultIniName:=gpIniDir + WfxIniFileName;
|
||||
dps.PluginInterfaceVersionHi:=1;
|
||||
dps.PluginInterfaceVersionLow:=50;
|
||||
dps.size:=SizeOf(tFsDefaultParamStruct);
|
||||
FsSetDefaultParams(dps);
|
||||
FreeMem(dps,SizeOf(tFsDefaultParamStruct));
|
||||
end;
|
||||
|
||||
// Dialog API
|
||||
if Assigned(SetDlgProc) then
|
||||
begin
|
||||
sPluginDir := UTF8Decode(ExtractFilePath(FModuleFileName));
|
||||
sPluginConfDir := UTF8Decode(gpIniDir);
|
||||
|
||||
with SetDlgProcInfo do
|
||||
begin
|
||||
PluginDir:= PWideChar(sPluginDir);
|
||||
PluginConfDir:= PWideChar(sPluginConfDir);
|
||||
InputBox:= @fDialogBox.InputBox;
|
||||
MessageBox:= @fDialogBox.MessageBox;
|
||||
DialogBox:= @fDialogBox.DialogBox;
|
||||
DialogBoxEx:= @fDialogBox.DialogBoxEx;
|
||||
SendDlgMsg:= @fDialogBox.SendDlgMsg;
|
||||
end;
|
||||
|
||||
SetDlgProc(SetDlgProcInfo);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TWFXModule.VFSDestroy;
|
||||
begin
|
||||
//TODO: need to invoke this func
|
||||
if Assigned(FsContentPluginUnloading) then
|
||||
FsContentPluginUnloading;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSCaps: TVFSCaps;
|
||||
begin
|
||||
Result := [];
|
||||
if Assigned(FsGetFile) then
|
||||
Include(Result, VFS_CAPS_COPYOUT);
|
||||
if Assigned(FsPutFile) then
|
||||
Include(Result, VFS_CAPS_COPYIN);
|
||||
if Assigned(FsDeleteFile) then
|
||||
Include(Result, VFS_CAPS_DELETE);
|
||||
if Assigned(FsMkDir) then
|
||||
Include(Result, VFS_CAPS_MKDIR);
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSConfigure(Parent: System.THandle): Boolean;
|
||||
begin
|
||||
try
|
||||
WFXStatusInfo(PathDelim, FS_STATUS_START, FS_STATUS_OP_EXEC);
|
||||
Result:= (FsExecuteFile(Parent, PathDelim, 'properties') = FS_EXEC_OK);
|
||||
WFXStatusInfo(PathDelim, FS_STATUS_END, FS_STATUS_OP_EXEC);
|
||||
except
|
||||
Result:= False;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWFXModule.VFSMisc: PtrUInt;
|
||||
var
|
||||
pPlgName : PChar;
|
||||
begin
|
||||
New(pPlgName);
|
||||
if Assigned(FsGetDefRootName) then
|
||||
begin
|
||||
FsGetDefRootName(pPlgName, 256);
|
||||
Result := PtrUInt(pPlgName);
|
||||
end
|
||||
else
|
||||
Result:=0;
|
||||
end;
|
||||
|
||||
{ TWFXModuleList }
|
||||
|
||||
function TWFXModuleList.GetAEnabled(Index: Integer): Boolean;
|
||||
begin
|
||||
Result:= Boolean(Objects[Index]);
|
||||
end;
|
||||
|
||||
function TWFXModuleList.GetAFileName(Index: Integer): String;
|
||||
begin
|
||||
Result:= ValueFromIndex[Index];
|
||||
end;
|
||||
|
||||
function TWFXModuleList.GetAName(Index: Integer): String;
|
||||
begin
|
||||
Result:= Names[Index];
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAEnabled(Index: Integer; const AValue: Boolean);
|
||||
begin
|
||||
Objects[Index]:= TObject(AValue);
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAFileName(Index: Integer; const AValue: String);
|
||||
begin
|
||||
ValueFromIndex[Index]:= AValue;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.SetAName(Index: Integer; const AValue: String);
|
||||
var
|
||||
sValue : String;
|
||||
begin
|
||||
sValue:= ValueFromIndex[Index];
|
||||
Self[Index]:= AValue + '=' + sValue;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.Load(Ini: TIniFileEx);
|
||||
var
|
||||
I: Integer;
|
||||
sCurrPlugin: String;
|
||||
begin
|
||||
Ini.ReadSectionRaw('FileSystemPlugins', Self);
|
||||
for I:= 0 to Count - 1 do
|
||||
if Pos('#', Name[I]) = 0 then
|
||||
begin
|
||||
Enabled[I]:= True;
|
||||
end
|
||||
else
|
||||
begin
|
||||
sCurrPlugin:= Name[I];
|
||||
Name[I]:= Copy(sCurrPlugin, 2, Length(sCurrPlugin) - 1);
|
||||
Enabled[I]:= False;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TWFXModuleList.Save(Ini: TIniFileEx);
|
||||
var
|
||||
I: Integer;
|
||||
begin
|
||||
Ini.EraseSection('FileSystemPlugins');
|
||||
for I := 0 to Count - 1 do
|
||||
begin
|
||||
if Enabled[I] then
|
||||
begin
|
||||
Ini.WriteString('FileSystemPlugins', Name[I], FileName[I])
|
||||
end
|
||||
else
|
||||
begin
|
||||
Ini.WriteString('FileSystemPlugins', '#' + Name[I], FileName[I]);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
function TWFXModuleList.FindFirstEnabledByName(Name: String): Integer;
|
||||
begin
|
||||
Result:=0;
|
||||
while Result < Count do
|
||||
begin
|
||||
if Enabled[Result] and (DoCompareText(Names[Result], Name) = 0) then
|
||||
Exit
|
||||
else
|
||||
Result := Result + 1;
|
||||
end;
|
||||
if Result=Count then Result:=-1;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue