paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-29 22:20:28 +02:00
Code Issues Packages Projects Releases Wiki Activity

* Enable use of EFS flag when zipping files

Browse Source 
git-svn-id: trunk@44149 -
This commit is contained in:
michael 2020-02-11 09:44:49 +00:00
parent e7d2c93ca7
commit 981751b7fe
1 changed files with 8 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

10
packages/paszlib/src/zipper.pp
View File

@ -72,7 +72,6 @@ Type
Local_File_Header_Type = Packed Record //1 per zipped file
Signature : LongInt; //4 bytes
Extract_Version_Reqd : Word; //if zip64: >= 45
{$warning TODO implement EFS/language enooding using UTF-8}
Bit_Flag : Word; //"General purpose bit flag in PKZip appnote
Compress_Method : Word;
Last_Mod_Time : Word;
@ -434,6 +433,7 @@ Type
FOnEndOfFile : TOnEndOfFileEvent;
FOnStartFile : TOnStartFileEvent;
FCurrentCompressor : TCompressor;
FUseLanguageEncoding: Boolean;
function CheckEntries: Integer;
procedure SetEntries(const AValue: TZipFileEntries);
Protected
@ -488,6 +488,8 @@ Type
Property InMemSize : Int64 Read FInMemSize Write FInMemSize;
Property Entries : TZipFileEntries Read FEntries Write SetEntries;
Property Terminated : Boolean Read FTerminated;
// EFS/language encoding using UTF-8
Property UseLanguageEncoding : Boolean Read FUseLanguageEncoding Write FUseLanguageEncoding;
end;
{ TFullZipFileEntry }
@ -1605,12 +1607,16 @@ function TZipper.UpdateZipHeader(Item: TZipFileEntry; FZip: TStream;
var
IsZip64 : boolean; //Must the local header be in zip64 format?
// Separate from zip64 status of entire zip file.
ZFileName : String;
ZFileName : RawByteString;
Begin
ZFileName := Item.ArchiveFileName;
IsZip64 := false;
With LocalHdr do
begin
if FUseLanguageEncoding then begin
SetCodePage(ZFileName, CP_UTF8, True);
Bit_Flag := Bit_Flag or EFS_LANGUAGE_ENCODING_FLAG;
end;
FileName_Length := Length(ZFileName);
Crc32 := ACRC;
if LocalZip64Fld.Original_Size > 0 then