mORMot Open Source

Hi Forum,

I'd like to unzip ODF Documents created with OOo, LO or AO using TZipRead with BDS 2006. For some files - e.g. the mimetype file - in the container, unzipping works, but not for the XML files - the ones I need.

This is the code I'm using:

with TZipRead.Create(PathAndFileNameOfAnOdfDocument) do
try
  TmpStr := UnZip(NameToIndex('mimetype')); // works
  TmpStr := UnZip(NameToIndex('content.xml')); // "NameToIndex" returns an index >= 0 but "UnZip" leads to error "SynZip -2"
finally
  Free;
end;

The error occurs in "SynZip.pas" (V 1.18) in the "Check" function.

Is it possible to "fix" that? Or am I doing it wrong?

Regards
hirnstroem