mirror of
https://github.com/doublecmd/doublecmd.git
synced 2026-06-21 09:58:13 +00:00
ADD: Pack files in zip plugin
This commit is contained in:
Alexander Koblov
parent
2c56bb15d8
commit
0f5d149525
5 changed files with 1592 additions and 1950 deletions
|
|
@ -1,29 +1,30 @@
|
|||
library Zip;
|
||||
|
||||
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
ZipFunc in 'ZipFunc.pas';
|
||||
|
||||
{$E wcx}
|
||||
|
||||
{$R *.res}
|
||||
exports
|
||||
{mandatory}
|
||||
OpenArchive,
|
||||
ReadHeader,
|
||||
ProcessFile,
|
||||
CloseArchive,
|
||||
SetChangeVolProc,
|
||||
SetProcessDataProc,
|
||||
{optional}
|
||||
DeleteFiles,
|
||||
GetPackerCaps;
|
||||
|
||||
begin
|
||||
{$IFNDEF WIN32}
|
||||
WriteLN('Zip plugin is loaded');
|
||||
{$ENDIF}
|
||||
end.
|
||||
library Zip;
|
||||
|
||||
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
Classes,
|
||||
ZipFunc in 'ZipFunc.pas';
|
||||
|
||||
{$E wcx}
|
||||
|
||||
{$R *.res}
|
||||
exports
|
||||
{mandatory}
|
||||
OpenArchive,
|
||||
ReadHeader,
|
||||
ProcessFile,
|
||||
CloseArchive,
|
||||
SetChangeVolProc,
|
||||
SetProcessDataProc,
|
||||
{optional}
|
||||
PackFiles,
|
||||
DeleteFiles,
|
||||
GetPackerCaps;
|
||||
|
||||
begin
|
||||
{$IFDEF UNIX}
|
||||
WriteLN('Zip plugin is loaded');
|
||||
{$ENDIF}
|
||||
end.
|
||||
|
|
|
|||
|
|
@ -22,14 +22,14 @@
|
|||
<LaunchingApplication PathPlusParams="\usr\X11R6\bin\xterm -T 'Lazarus Run Output' -e $(LazarusDir)\tools\runwait.sh $(TargetCmdLine)"/>
|
||||
</local>
|
||||
</RunParams>
|
||||
<Units Count="8">
|
||||
<Units Count="9">
|
||||
<Unit0>
|
||||
<Filename Value="Zip.dpr"/>
|
||||
<IsPartOfProject Value="True"/>
|
||||
<CursorPos X="1" Y="1"/>
|
||||
<CursorPos X="26" Y="22"/>
|
||||
<TopLine Value="1"/>
|
||||
<EditorIndex Value="0"/>
|
||||
<UsageCount Value="23"/>
|
||||
<UsageCount Value="24"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit0>
|
||||
<Unit1>
|
||||
|
|
@ -42,10 +42,10 @@
|
|||
<Unit2>
|
||||
<Filename Value="ZipFunc.pas"/>
|
||||
<UnitName Value="ZipFunc"/>
|
||||
<CursorPos X="18" Y="6"/>
|
||||
<TopLine Value="1"/>
|
||||
<CursorPos X="11" Y="222"/>
|
||||
<TopLine Value="211"/>
|
||||
<EditorIndex Value="1"/>
|
||||
<UsageCount Value="12"/>
|
||||
<UsageCount Value="13"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit2>
|
||||
<Unit3>
|
||||
|
|
@ -63,7 +63,7 @@
|
|||
<UsageCount Value="10"/>
|
||||
</Unit4>
|
||||
<Unit5>
|
||||
<Filename Value="..\..\..\..\..\Prog\lazarus\fpcsrc\rtl\objpas\sysutils\finah.inc"/>
|
||||
<Filename Value="..\..\..\Prog\lazarus\fpcsrc\rtl\objpas\sysutils\finah.inc"/>
|
||||
<CursorPos X="25" Y="30"/>
|
||||
<TopLine Value="13"/>
|
||||
<UsageCount Value="10"/>
|
||||
|
|
@ -82,20 +82,25 @@
|
|||
<TopLine Value="72"/>
|
||||
<UsageCount Value="10"/>
|
||||
</Unit7>
|
||||
<Unit8>
|
||||
<Filename Value="fparchive\abutils.pas"/>
|
||||
<UnitName Value="AbUtils"/>
|
||||
<CursorPos X="12" Y="516"/>
|
||||
<TopLine Value="496"/>
|
||||
<EditorIndex Value="2"/>
|
||||
<UsageCount Value="11"/>
|
||||
<Loaded Value="True"/>
|
||||
</Unit8>
|
||||
</Units>
|
||||
<JumpHistory Count="3" HistoryIndex="2">
|
||||
<JumpHistory Count="2" HistoryIndex="1">
|
||||
<Position1>
|
||||
<Filename Value="ZipFunc.pas"/>
|
||||
<Caret Line="49" Column="29" TopLine="46"/>
|
||||
<Caret Line="46" Column="20" TopLine="34"/>
|
||||
</Position1>
|
||||
<Position2>
|
||||
<Filename Value="ZipFunc.pas"/>
|
||||
<Caret Line="73" Column="21" TopLine="49"/>
|
||||
<Filename Value="fparchive\abutils.pas"/>
|
||||
<Caret Line="509" Column="3" TopLine="495"/>
|
||||
</Position2>
|
||||
<Position3>
|
||||
<Filename Value="ZipFunc.pas"/>
|
||||
<Caret Line="43" Column="54" TopLine="26"/>
|
||||
</Position3>
|
||||
</JumpHistory>
|
||||
</ProjectOptions>
|
||||
<CompilerOptions>
|
||||
|
|
|
|||
|
|
@ -37,6 +37,7 @@ function CloseArchive (hArcData : THandle) : Integer;{$IFNDEF WIN32}cdecl{$ELSE}
|
|||
procedure SetChangeVolProc (hArcData : THandle; pChangeVolProc1 : PChangeVolProc);{$IFNDEF WIN32}cdecl{$ELSE}stdcall{$ENDIF};
|
||||
procedure SetProcessDataProc (hArcData : THandle; pProcessDataProc1 : PProcessDataProc);{$IFNDEF WIN32}cdecl{$ELSE}stdcall{$ENDIF};
|
||||
{Optional functions}
|
||||
function PackFiles(PackedFile: pchar; SubPath: pchar; SrcPath: pchar; AddList: pchar; Flags: integer): Integer;{$IFNDEF WIN32}cdecl{$ELSE}stdcall{$ENDIF};
|
||||
function DeleteFiles (PackedFile, DeleteList : PChar) : Integer;{$IFNDEF WIN32}cdecl{$ELSE}stdcall{$ENDIF};
|
||||
function GetPackerCaps : Integer;{$IFNDEF WIN32}cdecl{$ELSE}stdcall{$ENDIF};
|
||||
|
||||
|
|
@ -74,6 +75,31 @@ begin
|
|||
end;
|
||||
|
||||
|
||||
{
|
||||
Create file list like "filename1;filename2;filename3"
|
||||
from file list like "filename1#0filename2#0filename3#0#0"
|
||||
}
|
||||
|
||||
function MakeFileList(FileList : PChar) : String;
|
||||
var
|
||||
I : Integer;
|
||||
CurrentChar : Char;
|
||||
begin
|
||||
I := 0;
|
||||
while True do
|
||||
begin
|
||||
CurrentChar := (FileList + I)^;
|
||||
if CurrentChar = #0 then
|
||||
CurrentChar := ';';
|
||||
|
||||
if ((FileList + I)^ = #0) and ((FileList + I + 1)^ = #0) then
|
||||
break;
|
||||
Result := Result + CurrentChar;
|
||||
I := I + 1;
|
||||
end;
|
||||
//WriteLN('MakeFileList = ' + Result);
|
||||
end;
|
||||
|
||||
function OpenArchive (var ArchiveData : tOpenArchiveData) : THandle;
|
||||
begin
|
||||
if not Assigned(Arc) Then
|
||||
|
|
@ -173,13 +199,33 @@ end;
|
|||
|
||||
{Optional functions}
|
||||
|
||||
function PackFiles(PackedFile: pchar; SubPath: pchar; SrcPath: pchar; AddList: pchar; Flags: integer): integer;
|
||||
begin
|
||||
try
|
||||
|
||||
if not Assigned(Arc) Then
|
||||
Arc := TAbZipKit.Create(nil);
|
||||
|
||||
Arc.OpenArchive(PackedFile);
|
||||
Arc.BaseDirectory := SrcPath;
|
||||
|
||||
Arc.AddFiles(MakeFileList(AddList), faAnyFile);
|
||||
Arc.Save;
|
||||
Arc.CloseArchive;
|
||||
FreeAndNil(Arc);
|
||||
Result := 0;
|
||||
except
|
||||
Result := E_BAD_DATA;
|
||||
end;
|
||||
end;
|
||||
|
||||
function DeleteFiles (PackedFile, DeleteList : PChar) : Integer;
|
||||
begin
|
||||
try
|
||||
if not Assigned(Arc) Then
|
||||
Arc := TAbZipKit.Create(nil);
|
||||
Arc.OpenArchive(PackedFile);
|
||||
Arc.DeleteFiles(DeleteList);
|
||||
Arc.DeleteFiles(MakeFileList(DeleteList));
|
||||
Arc.CloseArchive;
|
||||
FreeAndNil(Arc);
|
||||
Result := 0;
|
||||
|
|
|
|||
|
|
@ -1,420 +0,0 @@
|
|||
(* ***** BEGIN LICENSE BLOCK *****
|
||||
* Version: MPL 1.1
|
||||
*
|
||||
* The contents of this file are subject to the Mozilla Public License Version
|
||||
* 1.1 (the "License"); you may not use this file except in compliance with
|
||||
* the License. You may obtain a copy of the License at
|
||||
* http://www.mozilla.org/MPL/
|
||||
*
|
||||
* Software distributed under the License is distributed on an "AS IS" basis,
|
||||
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
|
||||
* for the specific language governing rights and limitations under the
|
||||
* License.
|
||||
*
|
||||
* The Original Code is TurboPower Abbrevia
|
||||
*
|
||||
* The Initial Developer of the Original Code is
|
||||
* TurboPower Software
|
||||
*
|
||||
* Portions created by the Initial Developer are Copyright (C) 1997-2002
|
||||
* the Initial Developer. All Rights Reserved.
|
||||
*
|
||||
* Contributor(s):
|
||||
*
|
||||
* ***** END LICENSE BLOCK ***** *)
|
||||
|
||||
{*********************************************************}
|
||||
{* ABBREVIA: AbFciFdi.pas 3.04 *}
|
||||
{*********************************************************}
|
||||
{* ABBREVIA: Cabinet DLL wrapper *}
|
||||
{* Based on info from the FCI/FDI Library Description, *}
|
||||
{* included in the Microsoft Cabinet SDK *}
|
||||
{*********************************************************}
|
||||
|
||||
unit AbFciFdi;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Types, //!! MVC for BOOL
|
||||
dynlibs, // loadlibrary
|
||||
{$ifdef mswindows}
|
||||
Windows,
|
||||
{$endif}
|
||||
SysUtils, Classes;
|
||||
|
||||
const
|
||||
CabinetDLL = 'cabinet.dll';
|
||||
cpuUnknown = -1;
|
||||
cpu80286 = 0;
|
||||
cpu80386 = 1;
|
||||
cpuDefault = cpuUnknown;
|
||||
|
||||
|
||||
type
|
||||
{FDI errors}
|
||||
FDIError =
|
||||
(FDIError_None, FDIError_Cabinet_Not_Found,
|
||||
FDIError_Not_A_Cabinet, FDIError_Unknown_Cabinet_Version,
|
||||
FDIError_Corrupt_Cabinet, FDIError_Alloc_Fail,
|
||||
FDIError_Bad_Compr_Type, FDIError_MDI_Fail,
|
||||
FDIError_Target_File, FDIError_Reserve_Mismatch,
|
||||
FDIError_Wrong_Cabinet, FDIError_User_Abort);
|
||||
|
||||
{FCI errors}
|
||||
FCIError =
|
||||
(FCIError_NONE, FCIError_Open_SRC,
|
||||
FCIError_Read_SRC, FCIError_Alloc_Fail,
|
||||
FCIError_Temp_File, FCIError_Bad_Compr_Type,
|
||||
FCIError_Cab_File, FCIError_User_Abort,
|
||||
FCIERRor_MCI_Fail);
|
||||
|
||||
{FDI notifications}
|
||||
FDINotificationType =
|
||||
(FDINT_Cabinet_Info, FDINT_Partial_File,
|
||||
FDINT_Copy_File, FDINT_Close_File_Info,
|
||||
FDINT_Next_Cabinet, FDINT_Enumerate);
|
||||
|
||||
{FDI/FCI error structure}
|
||||
PCabErrorRecord = ^CabErrorRecord;
|
||||
CabErrorRecord = record
|
||||
ErrorCode : Integer;
|
||||
ErrorType : Integer;
|
||||
ErrorPresent : Boolean;
|
||||
end;
|
||||
|
||||
{FDI cabinet information structure}
|
||||
PFDICabInfo = ^FDICabInfo;
|
||||
FDICabInfo = record
|
||||
cbCabinet : Longint;
|
||||
cFolders : Word;
|
||||
cFiles : Word;
|
||||
setID : Word;
|
||||
iCabinet : Word;
|
||||
fReserve : BOOL;
|
||||
hasprev : BOOL;
|
||||
hasnext : BOOL;
|
||||
end;
|
||||
|
||||
{FCI cabinet information structure}
|
||||
PFCICabInfo = ^FCICabInfo;
|
||||
FCICabInfo = record
|
||||
cb : Longint;
|
||||
cbFolderThresh : Longint;
|
||||
cbReserveCFHeader : Integer;
|
||||
cbReserveCFFolder : Integer;
|
||||
cbReserveCFData : Integer;
|
||||
iCab : Integer;
|
||||
iDisk : Integer;
|
||||
fFailOnIncompressible : Integer;
|
||||
setID : Word;
|
||||
szDisk : array[0..255] of Char;
|
||||
szCab : array[0..255] of Char;
|
||||
szCabPath : array[0..255] of Char;
|
||||
end;
|
||||
|
||||
{FDI notification structure}
|
||||
PFDINotification = ^FDINotification;
|
||||
FDINotification = record
|
||||
cb : Longint;
|
||||
psz1 : PChar;
|
||||
psz2 : PChar;
|
||||
psz3 : PChar;
|
||||
pv : Pointer;
|
||||
hf : Integer;
|
||||
date : Word;
|
||||
time : Word;
|
||||
attribs : Word;
|
||||
setID : Word;
|
||||
iCabinet : Word;
|
||||
iFolder : Word;
|
||||
fdie : FDIERROR;
|
||||
end;
|
||||
|
||||
{misc defines}
|
||||
HFDI = Pointer;
|
||||
HFCI = Pointer;
|
||||
FARPROC = Pointer;
|
||||
|
||||
|
||||
{== Cabinet DLL routine prototypes ==========================================}
|
||||
type
|
||||
TFDICreate =
|
||||
function (pfnalloc, pfnfree, pfnopen, pfnread, pfnwrite, pfnclose,
|
||||
pfnseek : FARPROC; cpuType : Integer; pError : PCabErrorRecord) : HFDI;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFDIIsCabinet =
|
||||
function(hfdi : HFDI; hf : Integer; pfdici : PFDICabInfo) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFDICopy =
|
||||
function(hfdi : HFDI; pszCabinet, pszCabPath : PChar;
|
||||
flags : Integer; pfnfdin, pfnfdid : FARPROC; Archive : Pointer) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFDIDestroy =
|
||||
function(hfdi : HFDI) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFCICreate =
|
||||
function(pError : PCabErrorRecord; pfnfcifp, pfnalloc, pfnfree,
|
||||
pfnopen, pfnread, pfnwrite, pfnclose, pfnseek, pfndelete,
|
||||
pfnfcigtf : FARPROC; pccab : PFCICabInfo; Archive : Pointer) : HFCI;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFCIAddFile =
|
||||
function(hfci : HFCI; pszFilePath, pszFileName : PChar;
|
||||
fExecute : Boolean; pfnfcignc, pfnfcis, pfnfcigoi : FARPROC;
|
||||
typeCompress : Word) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFCIFlushCabinet =
|
||||
function(hfci : HFCI; fGetNextCab : Boolean;
|
||||
pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFCIFlushFolder =
|
||||
function(hfci : HFCI; pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
cdecl;
|
||||
{----------------------------------------------------------------------------}
|
||||
TFCIDestroy =
|
||||
function(hfci : HFCI) : Boolean;
|
||||
cdecl;
|
||||
|
||||
|
||||
{== DLL routine wrappers ====================================================}
|
||||
function FDICreate(pfnalloc, pfnfree, pfnopen, pfnread,
|
||||
pfnwrite, pfnclose, pfnseek : FARPROC;
|
||||
cpuType : Integer; pError : PCabErrorRecord) : HFDI;
|
||||
{returns an FDI context for opening an existing cabinet}
|
||||
{ pfnalloc - heap allocation callback function }
|
||||
{ pfnfree - heap deallocation callback function }
|
||||
{ pfnopen - open file callback function }
|
||||
{ pfnwrite - write file callback function }
|
||||
{ pfnclose - close file callback function }
|
||||
{ pfnseek - reposition file pointer callback function }
|
||||
{ cpuType - -1: unknown, 0: 80286, 1: 80386 }
|
||||
{ pError - pointer to error record }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDIIsCabinet(hfdi : HFDI; hf : Integer;
|
||||
pfdici : PFDICabInfo) : Boolean;
|
||||
{checks cabinet file for validity}
|
||||
{ hfdi - FDI context }
|
||||
{ hf - cabinet file handle }
|
||||
{ pfdici - pointer to FDI cabinet info structure }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDICopy(hfdi : HFDI; pszCabinet, pszCabPath : PChar;
|
||||
flags : Integer; pfnfdin, pfnfdid : FARPROC;
|
||||
Archive : Pointer) : Boolean;
|
||||
{enumerates every file in the cabinet. The callback function
|
||||
{should indicate whether or not to extract a given file}
|
||||
{ hfdi - FDI context }
|
||||
{ pszCabinet - cabinet file name }
|
||||
{ pszCabPath - cabinet file path }
|
||||
{ flags - currently not used }
|
||||
{ pfnfdin - FDI notifaction callback function }
|
||||
{ pfnfdid - decryption callback (currently not used)}
|
||||
{ Archive - the calling TAbCabArchive instance }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDIDestroy(hfdi : HFDI) : Boolean;
|
||||
{releases FDI context and frees resources}
|
||||
{ hfdi - FDI context }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCICreate(pError : PCabErrorRecord;
|
||||
pfnfcifp, pfnalloc, pfnfree, pfnopen, pfnread, pfnwrite, pfnclose,
|
||||
pfnseek, pfndelete, pfnfcigtf : FARPROC;
|
||||
pccab : PFCICabInfo; Archive : Pointer) : HFCI;
|
||||
{creates a new cabinet file and returns the FCI context}
|
||||
{ pError - pointer to error record }
|
||||
{ pfnfcifp - callback notification when file has been placed in cabinet }
|
||||
{ pfnalloc - callback function to allocate memory }
|
||||
{ pfnfree - callback function to free memory }
|
||||
{ pfnopen - callback function to open a file }
|
||||
{ pfnwrite - callback function to write to a file }
|
||||
{ pfnclose - callback function to close a file }
|
||||
{ pfnseek - callback function to reposition file pointer }
|
||||
{ pfndelete - callback function to delete a file }
|
||||
{ pfnfcigtf - callback function to obtain temp filename }
|
||||
{ pccab - pointer to FCI cabinet infor structure }
|
||||
{ Archive - the calling TAbCabArchive instance }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIAddFile(hfci : HFCI; pszFilePath, pszFileName : PChar;
|
||||
fExecute : Boolean; pfnfcignc, pfnfcis, pfnfcigoi : FARPROC;
|
||||
typeCompress : Word) : Boolean;
|
||||
{adds a file to the cabinet}
|
||||
{ hfci - FCI context }
|
||||
{ pszFilePath - full pathname of file being added }
|
||||
{ pszFileName - just the file name }
|
||||
{ fExecute - flag to indicate if file is executable }
|
||||
{ pfnfcignc - callback function to obtain next cabinet info }
|
||||
{ pfnfcis - callback function to relay progress }
|
||||
{ pfnfcigoi - callback function to open file and get attributes }
|
||||
{ typeCompress - compression type to use }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIFlushCabinet(hfci : HFCI; fGetNextCab : Boolean;
|
||||
pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
{writes current cabinet file out to disk and optionally starts a new one}
|
||||
{ hfci - FCI context }
|
||||
{ fGetNextCab - flag indicating whether to start a new cabinet }
|
||||
{ pfnfcignc - callback function to obtain next cabinet info }
|
||||
{ pfnfcis - callback function to relay progress }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIFlushFolder(hfci : HFCI;
|
||||
pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
{close current compression block and start a new one}
|
||||
{ hfci - FCI context }
|
||||
{ pfnfcignc - callback function to obtain next cabinet info }
|
||||
{ pfnfcis - callback function to relay progress }
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIDestroy(hfci : HFCI) : Boolean;
|
||||
{releases FCI context and frees resources}
|
||||
{ hfdi - FDI context }
|
||||
{----------------------------------------------------------------------------}
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
AbExcept,
|
||||
AbConst;
|
||||
|
||||
|
||||
var
|
||||
CabDLLLoaded : Boolean;
|
||||
CabDLLHandle : THandle;
|
||||
FDICreateProc : TFDICreate;
|
||||
FDIIsCabinetProc : TFDIIsCabinet;
|
||||
FDICopyProc : TFDICopy;
|
||||
FDIDestroyProc : TFDIDestroy;
|
||||
FCICreateProc : TFCICreate;
|
||||
FCIAddFileProc : TFCIAddFile;
|
||||
FCIFlushCabinetProc : TFCIFlushCabinet;
|
||||
FCIFlushFolderProc : TFCIFlushFolder;
|
||||
FCIDestroyProc : TFCIDestroy;
|
||||
|
||||
|
||||
{============================================================================}
|
||||
procedure LoadCabinetDLL;
|
||||
begin
|
||||
if CabDllLoaded then
|
||||
Exit;
|
||||
// CabDllHandle := LoadLibrary(CabinetDLL);
|
||||
if (CabDllHandle = 0) then
|
||||
raise EAbNoCabinetDLL.Create;
|
||||
{$ifdef MSWINDOWS}
|
||||
@FDICreateProc := GetProcAddress(CabDllHandle, 'FDICreate');
|
||||
@FDIIsCabinetProc := GetProcAddress(CabDllHandle, 'FDIIsCabinet');
|
||||
@FDICopyProc := GetProcAddress(CabDllHandle, 'FDICopy');
|
||||
@FDIDestroyProc := GetProcAddress(CabDllHandle, 'FDIDestroy');
|
||||
@FCICreateProc := GetProcAddress(CabDllHandle, 'FCICreate');
|
||||
@FCIAddFileProc := GetProcAddress(CabDllHandle, 'FCIAddFile');
|
||||
@FCIFlushCabinetProc := GetProcAddress(CabDllHandle, 'FCIFlushCabinet');
|
||||
@FCIFlushFolderProc := GetProcAddress(CabDllHandle, 'FCIFlushFolder');
|
||||
@FCIDestroyProc := GetProcAddress(CabDllHandle, 'FCIDestroy');
|
||||
CabDllLoaded := True;
|
||||
{$endif}
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDICreate(pfnalloc, pfnfree, pfnopen, pfnread,
|
||||
pfnwrite, pfnclose, pfnseek : FARPROC;
|
||||
cpuType : Integer; pError : PCabErrorRecord) : HFDI;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FDICreateProc) then
|
||||
Result := FDICreateProc(pfnalloc, pfnfree, pfnopen, pfnread,
|
||||
pfnwrite, pfnclose, pfnseek, cpuType, pError)
|
||||
else
|
||||
Result := nil;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDIIsCabinet(hfdi : HFDI; hf : Integer;
|
||||
pfdici : PFDICabInfo) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FDIIsCabinetProc) then
|
||||
Result := FDIIsCabinetProc(hfdi, hf, pfdici)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDICopy(hfdi : HFDI; pszCabinet, pszCabPath : PChar;
|
||||
flags : Integer; pfnfdin, pfnfdid : FARPROC;
|
||||
Archive : Pointer) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FDICopyProc) then
|
||||
Result := FDICopyProc(hfdi, pszCabinet, pszCabPath, flags,
|
||||
pfnfdin, pfnfdid, Archive)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FDIDestroy(hfdi : HFDI) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FDIDestroyProc) then
|
||||
Result := FDIDestroyProc(hfdi)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCICreate(pError : PCabErrorRecord;
|
||||
pfnfcifp, pfnalloc, pfnfree, pfnopen, pfnread, pfnwrite, pfnclose,
|
||||
pfnseek, pfndelete, pfnfcigtf : FARPROC;
|
||||
pccab : PFCICabInfo; Archive : Pointer) : HFCI;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FCICreateProc) then
|
||||
Result := FCICreateProc(pError, pfnfcifp, pfnalloc, pfnfree, pfnopen,
|
||||
pfnread, pfnwrite, pfnclose, pfnseek, pfndelete, pfnfcigtf,
|
||||
pccab, Archive)
|
||||
else
|
||||
Result := nil;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIAddFile(hfci : HFCI; pszFilePath, pszFileName : PChar;
|
||||
fExecute : Boolean; pfnfcignc, pfnfcis, pfnfcigoi : FARPROC;
|
||||
typeCompress : Word) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FCIAddFileProc) then
|
||||
Result := FCIAddFileProc(hfci, pszFilePath, pszFileName,
|
||||
fExecute, pfnfcignc, pfnfcis, pfnfcigoi, typeCompress)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIFlushCabinet(hfci : HFCI; fGetNextCab : Boolean;
|
||||
pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FCIFlushCabinetProc) then
|
||||
Result := FCIFlushCabinetProc(hfci, fGetNextCab, pfnfcignc, pfnfcis)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIFlushFolder(hfci : HFCI;
|
||||
pfnfcignc, pfnfcis : FARPROC) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FCIFlushFolderProc) then
|
||||
Result := FCIFlushFolderProc(hfci, pfnfcignc, pfnfcis)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
function FCIDestroy(hfci : HFCI) : Boolean;
|
||||
begin
|
||||
LoadCabinetDLL;
|
||||
if Assigned(FCIDestroyProc) then
|
||||
Result := FCIDestroyProc(hfci)
|
||||
else
|
||||
Result := False;
|
||||
end;
|
||||
{----------------------------------------------------------------------------}
|
||||
initialization
|
||||
CabDllLoaded := False;
|
||||
|
||||
end.
|
||||
File diff suppressed because it is too large
Load diff
Loading…
Add table
Add a link
Reference in a new issue