[Warilaidem]

Добрый день!

Пытаюсь на 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, но тоже безрезультатно.

[M.A.D.M.A.N.]

Исходник зипа этого открытый?

[Warilaidem]

Сообщение от M.A.D.M.A.N.

Исходник зипа этого открытый?

Ага, исходники закрытые: сама библиотека распространяется в скомпилированном виде.

[PhoeniX]

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

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

Zip большой? Может, имеет смысл заюзать MemoryStream?

[Warilaidem]

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

Zip большой?

10-20 мегабайт, не больше.

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

Может, имеет смысл заюзать MemoryStream?

Спасибо за идею. Сейчас проверю.