Share
Report
889Hi,
I am trying to zip multiple files and download it .The files after unzipping is corrupted.
The following is the code
ZipFileName := 'Documents_' + Format(CurrentDateTime) + '.zip';
DataCompression.CreateZipArchive();
DocAttment.Reset;
CurrPage.SetSelectionFilter(DocAttment);
if DocAttment.FindSet() then begin
repeat
TempBlob.CreateOutStream(DocumentStream);
RecRef.GetTable(DocAttment);
FldRef := RecRef.Field(DocAttment.FieldNo("No."));
FldRef.SetRange(DocAttment."No.");
if RecRef.FindFirst() then begin
TempBlob.CreateInStream(IStream);
FullFileName := DocAttment."File Name" + '.' + DocAttment."File Extension";
DataCompression.AddEntry(IStream, FullFileName);
//FileManagement.BLOBExport(TempBlob, STRSUBSTNO('SalesOrder_%1.Pdf', Rec."No."), TRUE);
end;
until DocAttment.Next() = 0;
TempBlob.CreateOutStream(DocumentStream);
DataCompression.SaveZipArchive(DocumentStream);
TempBlob.CreateInStream(IStream);
DownloadFromStream(IStream, '', '', '', ZipFileName);
Please suggest
Regards,
Indira
All responses (
Answers (
