Skip to main content

Notifications

Announcements

No record found.

Small and medium business | Business Central, N...
Suggested answer

Files created post zipping is corrupted

(0) ShareShare
ReportReport
Posted on by 889

Hi,

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
  • Suggested answer
    Marco Mels Profile Picture
    Marco Mels on at
    RE: Files created post zipping is corrupted

    Hello,

    We currently do not have dedicated Dev support via the Dynamics 365 Business Central forums, but I wanted to provide you some additional resources to assist. If you need assistance with debugging or coding I would recommend discussing this on one of our communities.

    www.yammer.com/dynamicsnavdev

    dynamicsuser.net/.../developers

    I will open this up to the community in case they have something to add.

    Thanks.

Under review

Thank you for your reply! To ensure a great experience for everyone, your content is awaiting approval by our Community Managers. Please check back later.

Helpful resources

Quick Links

December Spotlight Star - Muhammad Affan

Congratulations to a top community star!

Top 10 leaders for November!

Congratulations to our November super stars!

Tips for Writing Effective Verified Answers

Best practices for providing successful forum answers ✍️

Leaderboard

#1
André Arnaud de Calavon Profile Picture

André Arnaud de Cal... 291,419 Super User 2024 Season 2

#2
Martin Dráb Profile Picture

Martin Dráb 230,492 Most Valuable Professional

#3
nmaenpaa Profile Picture

nmaenpaa 101,156

Leaderboard

Featured topics

Product updates

Dynamics 365 release plans