mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
421 lines
7.7 KiB
ObjectPascal
421 lines
7.7 KiB
ObjectPascal
unit ufsplugin; {Plugin definitions version 1.5}
|
|
|
|
interface
|
|
|
|
uses SysUtils;
|
|
|
|
{ ids for FsGetFile }
|
|
|
|
const FS_FILE_OK=0;
|
|
|
|
FS_FILE_EXISTS=1;
|
|
|
|
FS_FILE_NOTFOUND=2;
|
|
|
|
FS_FILE_READERROR=3;
|
|
|
|
FS_FILE_WRITEERROR=4;
|
|
|
|
FS_FILE_USERABORT=5;
|
|
|
|
FS_FILE_NOTSUPPORTED=6;
|
|
|
|
FS_FILE_EXISTSRESUMEALLOWED=7;
|
|
|
|
FS_EXEC_OK=0;
|
|
|
|
FS_EXEC_ERROR=1;
|
|
|
|
FS_EXEC_YOURSELF=-1;
|
|
|
|
FS_EXEC_SYMLINK=-2;
|
|
|
|
FS_COPYFLAGS_OVERWRITE=1;
|
|
|
|
FS_COPYFLAGS_RESUME=2;
|
|
|
|
FS_COPYFLAGS_MOVE=4;
|
|
|
|
FS_COPYFLAGS_EXISTS_SAMECASE=8;
|
|
|
|
FS_COPYFLAGS_EXISTS_DIFFERENTCASE=16;
|
|
|
|
|
|
|
|
{ flags for tRequestProc }
|
|
|
|
const
|
|
|
|
RT_Other=0;
|
|
|
|
RT_UserName=1;
|
|
|
|
RT_Password=2;
|
|
|
|
RT_Account=3;
|
|
|
|
RT_UserNameFirewall=4;
|
|
|
|
RT_PasswordFirewall=5;
|
|
|
|
RT_TargetDir=6;
|
|
|
|
RT_URL=7;
|
|
|
|
RT_MsgOK=8;
|
|
|
|
RT_MsgYesNo=9;
|
|
|
|
RT_MsgOKCancel=10;
|
|
|
|
{ flags for tLogProc }
|
|
|
|
const msgtype_connect=1;
|
|
|
|
msgtype_disconnect=2;
|
|
|
|
msgtype_details=3;
|
|
|
|
msgtype_transfercomplete=4;
|
|
|
|
msgtype_connectcomplete=5;
|
|
|
|
msgtype_importanterror=6;
|
|
|
|
msgtype_operationcomplete=7;
|
|
|
|
{ flags for FsStatusInfo }
|
|
|
|
const FS_STATUS_START=0;
|
|
|
|
FS_STATUS_END=1;
|
|
|
|
FS_STATUS_OP_LIST=1;
|
|
|
|
FS_STATUS_OP_GET_SINGLE=2;
|
|
|
|
FS_STATUS_OP_GET_MULTI=3;
|
|
|
|
FS_STATUS_OP_PUT_SINGLE=4;
|
|
|
|
FS_STATUS_OP_PUT_MULTI=5;
|
|
|
|
FS_STATUS_OP_RENMOV_SINGLE=6;
|
|
|
|
FS_STATUS_OP_RENMOV_MULTI=7;
|
|
|
|
FS_STATUS_OP_DELETE=8;
|
|
|
|
FS_STATUS_OP_ATTRIB=9;
|
|
|
|
FS_STATUS_OP_MKDIR=10;
|
|
|
|
FS_STATUS_OP_EXEC=11;
|
|
|
|
FS_STATUS_OP_CALCSIZE=12;
|
|
|
|
FS_STATUS_OP_SEARCH=13;
|
|
|
|
FS_STATUS_OP_SEARCH_TEXT=14;
|
|
|
|
FS_STATUS_OP_SYNC_SEARCH=15;
|
|
|
|
FS_STATUS_OP_SYNC_GET=16;
|
|
|
|
FS_STATUS_OP_SYNC_PUT=17;
|
|
|
|
FS_STATUS_OP_SYNC_DELETE=18;
|
|
|
|
{Flags for FsExtractCustomIcon}
|
|
|
|
const FS_ICONFLAG_SMALL=1;
|
|
|
|
FS_ICONFLAG_BACKGROUND=2;
|
|
|
|
FS_ICON_USEDEFAULT=0;
|
|
|
|
FS_ICON_EXTRACTED=1;
|
|
|
|
FS_ICON_EXTRACTED_DESTROY=2;
|
|
|
|
FS_ICON_DELAYED=3;
|
|
|
|
const FS_BITMAP_NONE=0;
|
|
|
|
FS_BITMAP_EXTRACTED=1;
|
|
|
|
FS_BITMAP_EXTRACT_YOURSELF=2;
|
|
|
|
FS_BITMAP_EXTRACT_YOURSELF_ANDDELETE=3;
|
|
|
|
FS_BITMAP_CACHE=256;
|
|
|
|
const
|
|
MAXDWORD = DWORD($FFFFFFFF);
|
|
|
|
type
|
|
TInt64Rec = packed record
|
|
case Boolean of
|
|
True : (Value : Int64);
|
|
False : (Low,High : DWORD);
|
|
end;
|
|
|
|
bool = type boolean;
|
|
type
|
|
{$IFDEF MSWINDOWS}
|
|
FILETIME = Windows.FILETIME;
|
|
{$ELSE}
|
|
FILETIME = record
|
|
dwLowDateTime : DWORD;
|
|
dwHighDateTime : DWORD;
|
|
end;
|
|
{$ENDIF}
|
|
LPFILETIME = ^FILETIME;
|
|
_FILETIME = FILETIME;
|
|
TFILETIME = FILETIME;
|
|
PFILETIME = ^FILETIME;
|
|
|
|
|
|
{$ifdef UNICODE}
|
|
TBYTE = word;
|
|
TCHAR = widechar;
|
|
BCHAR = word;
|
|
{$else}
|
|
TBYTE = byte;
|
|
TCHAR = char;
|
|
BCHAR = BYTE;
|
|
{$endif}
|
|
|
|
WIN32_FIND_DATA = record
|
|
dwFileAttributes : DWORD;
|
|
ftCreationTime : TFILETIME;
|
|
ftLastAccessTime : TFILETIME;
|
|
ftLastWriteTime : TFILETIME;
|
|
nFileSizeHigh : DWORD;
|
|
nFileSizeLow : DWORD;
|
|
dwReserved0 : DWORD;
|
|
dwReserved1 : DWORD;
|
|
cFileName : array[0..(MAX_PATH)-1] of TCHAR;
|
|
cAlternateFileName : array[0..13] of TCHAR;
|
|
end;
|
|
tWIN32FINDDATA = WIN32_FIND_DATA;
|
|
HICON = THANDLE;
|
|
|
|
|
|
type
|
|
|
|
tRemoteInfo=record
|
|
|
|
SizeLow,SizeHigh:longint;
|
|
|
|
LastWriteTime:TFileTime;
|
|
|
|
Attr:longint;
|
|
|
|
end;
|
|
|
|
pRemoteInfo=^tRemoteInfo;
|
|
|
|
type
|
|
|
|
tFsDefaultParamStruct=record
|
|
|
|
size,
|
|
|
|
PluginInterfaceVersionLow,
|
|
|
|
PluginInterfaceVersionHi:longint;
|
|
|
|
DefaultIniName:array[0..MAX_PATH-1] of char;
|
|
|
|
end;
|
|
|
|
pFsDefaultParamStruct=^tFsDefaultParamStruct;
|
|
|
|
{ callback functions }
|
|
|
|
type
|
|
|
|
TProgressProc=function(PluginNr:integer;SourceName,
|
|
|
|
TargetName:pchar;PercentDone:integer):integer; stdcall;
|
|
|
|
TLogProc=procedure(PluginNr,MsgType:integer;LogString:pchar); stdcall;
|
|
|
|
TRequestProc=function(PluginNr,RequestType:integer;CustomTitle,CustomText,
|
|
|
|
ReturnedText:pchar;maxlen:integer):boolean; stdcall;
|
|
|
|
{ Function prototypes - the callback functions MUST be implemented exactly like this! }
|
|
|
|
{
|
|
|
|
function FsInit(PluginNr:integer;pProgressProc:tProgressProc;pLogProc:tLogProc;
|
|
|
|
pRequestProc:tRequestProc):integer; stdcall;
|
|
|
|
function FsFindFirst(path :pchar;var FindData:tWIN32FINDDATA):thandle; stdcall;
|
|
|
|
function FsFindNext(Hdl:thandle;var FindData:tWIN32FINDDATA):bool; stdcall;
|
|
|
|
function FsFindClose(Hdl:thandle):integer; stdcall;
|
|
|
|
function FsMkDir(RemoteDir:pchar):bool; stdcall;
|
|
|
|
function FsExecuteFile(MainWin:thandle;RemoteName,Verb:pchar):integer; stdcall;
|
|
|
|
function FsRenMovFile(OldName,NewName:pchar;Move,OverWrite:bool;
|
|
|
|
RemoteInfo:pRemoteInfo):integer; stdcall;
|
|
|
|
function FsGetFile(RemoteName,LocalName:pchar;CopyFlags:integer;
|
|
|
|
RemoteInfo:pRemoteInfo):integer; stdcall;
|
|
|
|
function FsPutFile(LocalName,RemoteName:pchar;CopyFlags:integer):integer; stdcall;
|
|
|
|
function FsDeleteFile(RemoteName:pchar):bool; stdcall;
|
|
|
|
function FsRemoveDir(RemoteName:pchar):bool; stdcall;
|
|
|
|
function FsDisconnect(DisconnectRoot:pchar):bool; stdcall;
|
|
|
|
function FsSetAttr(RemoteName:pchar;NewAttr:integer):bool; stdcall;
|
|
|
|
function FsSetTime(RemoteName:pchar;CreationTime,LastAccessTime,
|
|
|
|
LastWriteTime:PFileTime):bool; stdcall;
|
|
|
|
procedure FsStatusInfo(RemoteDir:pchar;InfoStartEnd,InfoOperation:integer); stdcall;
|
|
|
|
procedure FsGetDefRootName(DefRootName:pchar;maxlen:integer); stdcall;
|
|
|
|
function FsExtractCustomIcon(RemoteName:pchar;ExtractFlags:integer;
|
|
|
|
var TheIcon:hicon):integer; stdcall;
|
|
|
|
procedure FsSetDefaultParams(dps:pFsDefaultParamStruct); stdcall;
|
|
|
|
function FsGetPreviewBitmap(RemoteName:pchar,width,height:integer,
|
|
|
|
var ReturnedBitmap:hbitmap):integer; stdcall;
|
|
|
|
function FsLinksToLocalFiles:bool; stdcall;
|
|
|
|
function FsGetLocalName(RemoteName:pchar;maxlen:integer):bool; stdcall;
|
|
|
|
}
|
|
|
|
{****************************** content plugin part *****************************}
|
|
|
|
const ft_nomorefields=0;
|
|
|
|
ft_numeric_32=1;
|
|
|
|
ft_numeric_64=2;
|
|
|
|
ft_numeric_floating=3;
|
|
|
|
ft_date=4;
|
|
|
|
ft_time=5;
|
|
|
|
ft_boolean=6;
|
|
|
|
ft_multiplechoice=7;
|
|
|
|
ft_string=8;
|
|
|
|
ft_fulltext=9;
|
|
|
|
ft_datetime=10;
|
|
|
|
// for ContentGetValue
|
|
|
|
ft_nosuchfield=-1;
|
|
|
|
ft_fileerror=-2;
|
|
|
|
ft_fieldempty=-3;
|
|
|
|
ft_ondemand=-4;
|
|
|
|
ft_delayed=0;
|
|
|
|
// for ContentSetValue
|
|
|
|
ft_setsuccess=0;
|
|
|
|
setflags_first_attribute=1; {First attribute of this file}
|
|
|
|
setflags_last_attribute=2;
|
|
|
|
setflags_only_date=4;
|
|
|
|
CONTENT_DELAYIFSLOW=1; // ContentGetValue called in foreground
|
|
|
|
type tContentDefaultParamStruct=record
|
|
|
|
size,
|
|
|
|
PluginInterfaceVersionLow,
|
|
|
|
PluginInterfaceVersionHi:longint;
|
|
|
|
DefaultIniName:array[0..MAX_PATH-1] of char;
|
|
|
|
end;
|
|
|
|
pContentDefaultParamStruct=^tContentDefaultParamStruct;
|
|
|
|
type tdateformat=record
|
|
|
|
wYear,wMonth,wDay:word;
|
|
|
|
end;
|
|
|
|
pdateformat=^tdateformat;
|
|
|
|
type ttimeformat=record
|
|
|
|
wHour,wMinute,wSecond:word;
|
|
|
|
end;
|
|
|
|
ptimeformat=^ttimeformat;
|
|
|
|
{ Function prototypes: }
|
|
|
|
{
|
|
|
|
procedure FsContentGetDetectString(DetectString:pchar;maxlen:integer); stdcall;
|
|
|
|
function FsContentGetSupportedField(FieldIndex:integer;FieldName:pchar;
|
|
|
|
Units:pchar;maxlen:integer):integer; stdcall;
|
|
|
|
function FsContentGetValue(FileName:pchar;FieldIndex,UnitIndex:integer;FieldValue:pbyte;
|
|
|
|
maxlen,flags:integer):integer; stdcall;
|
|
|
|
procedure FsContentSetDefaultParams(dps:pContentDefaultParamStruct); stdcall;
|
|
|
|
procedure FsContentStopGetValue(FileName:pchar); stdcall;
|
|
|
|
function FsContentGetDefaultSortOrder(FieldIndex:integer):integer; stdcall;
|
|
|
|
function FsContentGetSupportedFieldFlags(FieldIndex:integer):integer; stdcall;
|
|
|
|
function FsContentSetValue(FileName:pchar;FieldIndex,UnitIndex,FieldType:integer;
|
|
|
|
FieldValue:pbyte;flags:integer):integer; stdcall;
|
|
|
|
function FsContentGetDefaultView(ViewContents,ViewHeaders,ViewWidths,
|
|
|
|
ViewOptions:pchar;maxlen:integer):bool; stdcall;
|
|
|
|
}
|
|
|
|
implementation
|
|
|
|
end.
|