Вопросы по zipper (архивация файлов)
Добавлено: 11.03.2020 14:35:36Здравствуйте.
У меня Lazarus на Linux Debian.
Программа
компилируется без ошибок.
Выполнение вылетает на инструкциях (смотрите в коде напротив них комментарии с текстом ошибки):
ToZip.ZipFiles(List);
UnZip.Examine();
Предполагаю, проблема с работоспособностью библиотеки zlib, хотя и странно.
Кто-то сталкивался с такой проблемой, и что можете посоветовать? (кроме использовать иные библиотеки)
У меня Lazarus на Linux Debian.
Программа
- Код: Выделить всё
procedure TForm1.Button1Click(Sender: TObject);
var ToZip: TZipper;
UnZip: TUnZipper;
List : TStringList;
begin ToZip:= TZipper.Create();
ToZip.FileName:= '/1/MyFile1.zip'; // (Каталог "/1/" существует и доступен для записи)
List:= TStringList.Create();
List.Add( '/1/MyFile1.txt'); // (Файл "/1/MyFile1.txt" существует и доступен для чтения)
ToZip.ZipFiles(List); // Ошибка ECreateError: "Unable to create file '/1/MyFile1.zip'"
UnZip:= TUnZipper.Create();
UnZip.FileName:= '/1/MyFile2.zip'; // (Архивный файл "/1/MyFile2.zip" существует, проверен на распаковываемость и доступен для чтения)
UnZip.Examine(); // Ошибка: "Unable to open file '/1/MyFile2.zip'"
end;
компилируется без ошибок.
Выполнение вылетает на инструкциях (смотрите в коде напротив них комментарии с текстом ошибки):
ToZip.ZipFiles(List);
UnZip.Examine();
Предполагаю, проблема с работоспособностью библиотеки zlib, хотя и странно.
Кто-то сталкивался с такой проблемой, и что можете посоветовать? (кроме использовать иные библиотеки)
