Описание:
У меня проблемы с получением библиотеки сжатия JCL для открытия любых составных архивов. Он представляет ошибку «(0000001) Неверная функция», как определено в borlands 'windows.pas';
scenerios:
Один архив, сжатый с использованием примера сжатия JCL.
-Будет распакован как в примере JCL, так и в 7zip gui.
Составной архив из 7 файлов, сжатых с использованием примера сжатия JCL.
-Будет распакован только в 7zip gui.Не удалось распаковать с использованием примера JCL.
Один архив, сжатый с использованием графического интерфейса 7zip.
-Будет распакован как в примере JCL, так и в 7zip gui.
Составной архив, сжатый более 7 файлов с использованием 7zip gui.
-Будет распакован только в 7zip gui. Не удается распаковать с использованием JCL
Дополнительная информация
Демонстрация сжатия JCL входит в состав библиотеки JCL.
JCL: 2.2.1.3970
7zip dll: 9.20.0.0 и 9.65.0.0
Пример имени файла в составном архивном наборе: "Test Archive.7z.002"
Пробовал со сжатием .tar и .7z
Использовались файлы разных размеров. 2048 байт и 2048 КБ
Delphi 2009.
Это код, который я использую. Это из демонстрации сжатия JCL. Ошибка возникает в строке «TJclDecompressArchive (FArchive) .ListFiles».
procedure TFormMain.ActionOpenROExecute(Sender: TObject);
var
ArchiveFileName, Password: string;
AFormat: TJclDecompressArchiveClass;
SplitArchive: Boolean;
begin
if OpenDialogArchiveRO.Execute then
begin
CloseArchive;
ArchiveFileName := OpenDialogArchiveRO.FileName;
SplitArchive := AnsiSameText(ExtractFileExt(ArchiveFileName), '.001');
if SplitArchive then
ArchiveFileName := ChangeFileExt(ArchiveFileName, '');
AFormat := GetArchiveFormats.FindDecompressFormat(ArchiveFileName);
if AFormat <> nil then
begin
if SplitArchive then
ArchiveFileName := ArchiveFileName + '.%.3d';
InputQuery('Archive password', 'Value', Password);
FArchive := AFormat.Create(ArchiveFileName, 0, SplitArchive);
FArchive.Password := Password;
FArchive.OnProgress := ArchiveProgress;
if FArchive is TJclDecompressArchive then
TJclDecompressArchive(FArchive).ListFiles
else
if FArchive is TJclUpdateArchive then
TJclUpdateArchive(FArchive).ListFiles;
ListView1.Items.BeginUpdate;
try
while ListView1.Items.Count < FArchive.ItemCount do
ListView1.Items.Add;
finally
ListView1.Items.EndUpdate;
end;
end
else
ShowMessage('not a supported format');
end;
end;
Пример JCL знает о файлах и открывает их. (В изображении использован формат zip. Та же проблема).
Возможно, кто-то сталкивался с этим раньше?.
Кто-нибудь может указать мне правильное направление, пожалуйста?.
Спасибо за ваше время.
Скотт М.