Data compression Codeunit 425

(0) Share

Report

Posted on by AntonioTorre

574

I am trying to download all item pictures. I am using new codeunit 425 data compression but I cannot make it work.

Seems like it creates correctly zip object but I cant download it (it downloads not the zip file but the last picture). Is there any documentation (apart from Microsoft github) that explain or has examples of the methods of this codeunit.

My code is:

codeunit 50999 ItemPictureBulkExtract

{

trigger OnRun()

var

PicInStream: InStream;

Index: Integer;

TenantMedia: Record "Tenant Media";

FileName: Text;

datacompresion: Codeunit "Data Compression";

ZipFileName: Text;

ZipOutStream: OutStream;

ZipInStream: InStream;

blobStorage: Codeunit "Temp Blob";

begin

datacompresion.CreateZipArchive();

repeat

with item do begin

if Picture.Count > 0 then begin

for Index := 1 to Picture.Count do begin

if TenantMedia.Get(Picture.Item(Index)) then begin

TenantMedia.calcfields(Content);

if TenantMedia.Content.HasValue then begin

FileName := "No." + '-' + format(Index) + GetTenantMediaFileExtension(TenantMedia);

TenantMedia.Content.CreateInStream(PicInstream);

datacompresion.AddEntry(PicInStream, FileName);

end;

until Item.Next() = 0;

blobStorage.CreateOutStream(ZipOutStream);

datacompresion.SaveZipArchive(ZipOutStream);

datacompresion.CloseZipArchive();

blobStorage.CreateInStream(ZipInStream);

DownloadFromStream(ZipInStream, '', '', '', FileName)

end;

}

I have the same question (0)

All responses (4)

Answers (0)

Sort by

Suggested answer

Marco Mels Microsoft Employee on at

Like (1)

Report
Copy link

Link copied!

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.

Was this reply helpful? Yes No
Suggested answer

Stefano Demiliani 37,172 Most Valuable Professional on at

Like (0)

Report
Copy link

Link copied!

The code seems ok. I'm using the same code for bulk exporting all the item pictures I have on my database and it works.

The only strange things I saw here:

DownloadFromStream(ZipInStream, '', '', '', FileName) --> why are you using FileName? Instead, you should use the ZIP file name variable (ZipFileName) othewrise you have a file (ZIP) that is called like your last image file.

Was this reply helpful? Yes No
AntonioTorre 574 on at

Like (1)

Report
Copy link

Link copied!

Stefano, there is a saying in Spain that says: "The trees dont let you see the forest"....

You are right: the code was working fine, but at the very end, as I was getting a file called picxxxx.jpg and I did not open it I did not realize that it was in fact the zip file but with that wrong name.

Thank you, it is working now!

Was this reply helpful? Yes No
Community Member on at

Like (1)

Report
Copy link

Link copied!

Hi,

I have written same code as above and also corrected below line. No image or zipfile is downloaded.

DownloadFromStream(ZipInStream, '', '', '', ZipFileName).

Below is the complete code

if ItemCode = '' then

            error('Add item filter');

        MyItem.SetFilter("No.", '%1', ItemCode);

        ZipFileName := 'Picture.zip';

        datacompresion.CreateZipArchive();

        repeat

            with MyItem do begin

                if Picture.Count > 0 then begin

                    ItemCnt := ItemCnt + 1;

                    for Index := 1 to Picture.Count do begin

                        PicCount := PicCount + 1;

                        FileName := '';

                        if TenantMedia.Get(Picture.Item(Index)) then begin

                            TenantMedia.calcfields(Content);

                            if TenantMedia.Content.HasValue then begin

                                FileName := "No." + '-' + format(Index) + GetTenantMediaFileExtension(TenantMedia);

                                TenantMedia.Content.CreateInStream(PicInstream);

                                datacompresion.AddEntry(PicInStream, FileName);



                            end;

                        end;

                    end;

                end;

            end;

        until MyItem.Next() = 0;

        Message('Items processed ' + Format(ItemCnt) + ' Pictures processed ' + Format(PicCount));

        blobStorage.CreateOutStream(ZipOutStream);

        datacompresion.SaveZipArchive(ZipOutStream);

        datacompresion.CloseZipArchive();

        blobStorage.CreateInStream(ZipInStream);

        DownloadFromStream(ZipInStream, 'Download zip file', '', '', ZipFileName);

Not sure what is wrong with this code.

Was this reply helpful? Yes No