Глобальная блокировка файлов в ZipForge

[Jekerterim]

Добрый день!

Пытаюсь на Delphi XE2 автоматизировать анализ внутренних рабочих отчетов. В .zip-архиве находится файл details.txt, который надо извлечь и в дальнейшем работать. Но .zip-архив остается заблокированным в эксклюзивном режиме после окончания работы следующей функции:

uses
  ZipForge;


function ReadDetails(archivePath : WideString) : WideString;
var
  archiver : TZipForge;
  buffer : String;
begin
  Result := '';
  archiver := TZipForge.Create(nil);
  archiver.FileName := archivePath;

  try
    archiver.OpenArchive(fmOpenRead);
    archiver.ExtractToString('details.txt', buffer);
    result := UTF8ToUnicodeString(buffer);
  finally
    archiver.Free();
  end;
end;

Я пытался исправить ситуацию через TFileStream и флагами fmOpenRead or fmShareDenyNone, но тоже безрезультатно.

[Аватар]

CloseArchive ??

[Jekerterim]

Да, пробовал, примерно так:

uses
  ZipForge;


function ReadDetails(archivePath : WideString) : WideString;
var
  archiver : TZipForge;
  buffer : String;
begin
  Result := '';
  archiver := TZipForge.Create(nil);
  archiver.FileName := archivePath;

  try
    // ++++
    archiver.OpenArchive(fmOpenRead or fmShareDenyNone);
    archiver.ExtractToString('details.txt', buffer);
    result := UTF8ToUnicodeString(buffer);
  finally
    // +++++
    archiver.CloseArchive;
    archiver.Free();
  end;
end;

но эффект тот же самый.

[Serge_Bliznykov]

Как Вы видите, что "остается заблокированным в эксклюзивном режиме" ?
После чего всё таки наступает разблокировка? После выхода из программы?
Пошагово проходили?
В документации по библиотеке/оф.сайте проблему искали?
Использование ZipForge обязательно?
Попробуйте вместо ZipForge воспользоваться любой другой библиотекой доступа к zip-архивам, в конце концов на ZipForge свет клином не сошёлся!

[Jekerterim]

Сообщение от Serge_Bliznykov

Как Вы видите, что "остается заблокированным в эксклюзивном режиме" ?

Потому что получаю такое сообщение об ошибке:

raises exception class EFOpenError with message 'Cannot open file "...". Процесс не может получить доступ к файлу, так как этот файл занят другим процессом.'

Сообщение от Serge_Bliznykov

После чего всё таки наступает разблокировка? После выхода из программы?

После выхода из программы.

Сообщение от Serge_Bliznykov

Пошагово проходили?

Да.

Сообщение от Serge_Bliznykov

В документации по библиотеке/оф.сайте проблему искали?

На Stackoverflow, но предложенный там вариант тоже не сработал.

Сообщение от Serge_Bliznykov

Использование ZipForge обязательно? Попробуйте вместо ZipForge воспользоваться любой другой библиотекой доступа к zip-архивам, в конце концов на ZipForge свет клином не сошёлся!

Вы правы, на этой библиотеке свет клином не сошелся. Но проблема разрешилась сама собой: заменой fmOpenRead на fmOpenRead or fmShareDenyWrite