Пишу код в lazarus c использованием paszlib для создания zip архивов, все бы ничего,
но каталоги из интернациональных символов отображаются кракозябрами.
Есть код из официальной документации paszlib:
- Код: Выделить всё
var
OurZipper :TZipper;
flist :TStringList;
ADiskFileName,
AArchiveFileName :String;
MyDirectory:String;
begin
MyDirectory:='C:\MyFolder';
flist:=TStringList.Create;
FindAllFiles(flist, MyDirectory);
for I := 0 to flist.Count-1 do
begin
ADiskFileName:=flist.Strings[i];
AArchiveFileName:=SysToUTF8(ADiskFileName);
AArchiveFileName:=UTF8ToCP866(AArchiveFileName);
OurZipper.Entries.AddFileEntry(ADiskFileName,AArchiveFileName);
end;
OurZipper.ZipAllFiles;
end;
при его запуске нормально отображаются только каталоги из киррилицы, а любые другие - из китайских, греческих символов и т.д. - опять кракозябры.
Подскажите пожалуйста, что надо добавить, что бы все каталоги нормально отображались.
