Dynamics F/SCM Customer Experience (CRM) Dynamics GP Dynamics Business Central (NAV) Dynamics SL Power Platform Fabric Copilot

[Mario Rossi]

In BC onprem i am trying to return an image inside a page of type API
Found this article but it’s quite old and doesn’t work for me, the result is always an empty string

Qr is a field of type mediaSet inside of table Item
This is the code that i tried:

codeunit xxxxx Helper

{

    procedure GetItemPictureJSON(ItemNo: Text): Text

    var

        Item: Record Item;

        TenantMedia: Record "Tenant Media";

        PictureText: Text;

        PictureInStream: InStream;

        JObject: JsonObject;

        JToken: JsonToken;

        TempBlob: Codeunit "Temp Blob";

        PictureOutStream: OutStream;

        Converter: codeunit "Base64 Convert";

    begin

        Item.Get(ItemNo);

        if item.Qr.Count = 0 then begin

            exit('');

        end;

        TenantMedia.Get(Item.Qr.Item(1));

        TenantMedia.CalcFields(Content);

        if TenantMedia.Content.HasValue then begin

            Clear(PictureText);

            Clear(PictureInStream);

            TenantMedia.Content.CreateInStream(PictureInStream);

            TempBlob.CreateOutStream(PictureOutStream);

            CopyStream(PictureOutStream, PictureInStream);

            PictureText := Converter.ToBase64(PictureInStream);

            JObject.Add('picture', PictureText);

            JObject.SelectToken('picture', JToken);

        end;

        exit(JToken.AsValue().AsText());

    end;

}

——————————
Mario Rossi
Rossi
——————————