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

Answered

Copy blob from stream

(0) Share

Report

Posted on by AntonioTorre

574

I have a blob field (subtype bmp). I know this is going to be deprecated by media field type, but I still need it for display a picture in a repeater without using a brick view.

My question is how do I write this blob field with a stream. I mean, in a secondary table I have this blob field and when I link this table with an item no. I want to copy the picture of that item into this blob field. This is my code (inspired in a blog from Stefano Demiliani) but I must be doing something wrong, since picture does not show up.

local procedure loadMainPicture(sku: Code[20])

var

item: Record Item;

media: Record "Tenant Media";

instr: InStream;

outstr: OutStream;

temblob: Codeunit "Temp Blob";

begin

item.get(sku);

if item.Picture.Count = 0 then exit;

media.get(item.Picture.Item(1));

media.Content.CreateInStream(instr);

temblob.CreateInStream(instr);

temblob.CreateOutStream(outstr);

"Main Picture".CreateOutStream(outstr);
Modify;

end;

I have the same question (0)

All responses (5)

Answers (1)

Ethan-Sorenson 225 on at

Like (0)

Report
Astur,

It looks like you are really close, you just need to use CalcFields to actually retrieve the content.

I didn't test this, but it should look something like this.

local procedure loadMainPicture(sku: Code[20])

var
item: Record Item;
media: Record "Tenant Media";
instr: InStream;
outstr: OutStream;
temblob: Codeunit "Temp Blob";
index: Integer;
begin
if item.Picture.Count = 0 then exit;
for index := 1 to Picture.COUNT do begin
if media.Get(Picture.Item(index)) then begin
media.CalcFields(Content);
if media.Content.HasValue() then begin
media.Content.CreateInStream(instr);
temblob.CreateInStream(instr);
temblob.CreateOutStream(outstr);
"Main Picture".CreateOutStream(outstr);
Modify;
end;
end;
end;

Was this reply helpful? Yes No
Genie Cetas 472 on at

Like (0)

Report

Hi Asture,

Normally to read the blob field we have to use the CALCFIELD method and we can use COPYSTREAM method for copy blob from stream. Here I have made some changes in your snippet please refer that.

local procedure loadMainPicture(sku: Code[20])

var

item: Record Item;

media: Record "Tenant Media";

instr: InStream;

outstr: OutStream;

temblob: Codeunit "Temp Blob";

begin

item.get(sku);

if item.Picture.Count = 0 then exit;

media.get(item.Picture.Item(1));

media.CalcFields(Content);

if media.Content.HasValue() then begin

media.Content.CreateInStream(instr);

"Main Picture".CreateOutStream(outstr);

COPYSTREAM(outstr,instr);

Modify;

End

End

I hope the information helps you identify the source of the issue.

Was this reply helpful? Yes No
AntonioTorre 574 on at

Like (0)

Report

I have tried that code and still dont work. Maybe I am missing something.

Was this reply helpful? Yes No
AntonioTorre 574 on at

Like (0)

Report

This is not working since outstr is not initialize. Even I have initialized it, still does not work. Maybe I am doing something wrong, but, have you checked your code? and is it working fine?

Was this reply helpful? Yes No
Verified answer

AntonioTorre 574 on at

Like (0)

Report

I finally got the solution. Sometimes we love to make things harder that what they really are.

If you need to copy one blob to another blob, just do the following:

destinationtable.blobfield := sourcetable.blobfield;

et voilá!

Was this reply helpful? Yes No

Join the conversation

Community site session details

Copy blob from stream

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates

Community site session details

Copy blob from stream

Helpful resources

Quick Links

Responsible AI policies

Neeraj Kumar – Community Spotlight

Congratulations to the November Top 10 Community Leaders!

Subscribe to this forum!

Select categories

Leaderboard > Small and medium business | Business Central, NAV, RMS

Featured topics

Product updates