Recent

Author Topic: TZipper with UTF-8 support  (Read 2279 times)

DimProfi

  • Full Member
  • ***
  • Posts: 126
    • http://www.dimprofi.de
TZipper with UTF-8 support
« on: April 07, 2013, 03:18:32 am »
I made a tiny patch of TZipper to support UTF8. May be its usefull for somebody  8)


Just search and replace all:

Code: [Select]
uses
  ...
  ,FileUtil
  ,lazutf8classes

Code: [Select]
FindFirst -> FindFirstUTF8
Code: [Select]
TFileStream -> TFileStreamUTF8
Code: [Select]
ZFileName:ShortString -> ZFileName:string;
Code: [Select]
function TDeflater.ZipBitFlag: Word;
begin
...
Result:=Result or %100000000000;
end;



I'm sure, that FPC team will made it in another way, without Lazarus units, but i cant wait now  ;)
« Last Edit: April 07, 2013, 04:42:37 am by dimprofi »
Lazarus 1.2/FPC 2.6.4 (x86/x86_64/win32/win64/Linux) :: Be smart - use predictable {$INTERFACES CORBA}! :)

 

TinyPortal © 2005-2018