Codeunit 3970 Image Impl. in 27

// ------------------------------------------------------------------------------------------------
// Copyright (c) Microsoft Corporation. All rights reserved.
// Licensed under the MIT License. See License.txt in the project root for license information.
// ------------------------------------------------------------------------------------------------

namespace System.Utilities;

using System;
using System.Text;

codeunit 3970 "Image Impl."
{
    Access = Internal;
    InherentEntitlements = X;
    InherentPermissions = X;

    var
        TempBlob: Codeunit "Temp Blob";
        ImageCodec: DotNet ImageCodecInfo;
        ImageNotInitializedErr: Label 'The image could not be loaded.';
        WidthErr: Label 'Parameter Width must be greater than 0';
        HeightErr: Label 'Parameter Height must be greater than 0';
        XErr: Label 'The X parameter must be between 0 and the image width, which is %1.', Comment = '%1 = image width (number)';
        YErr: Label 'The Y parameter must be between 0 and the image height, which is %1.', Comment = '%1 = image width (number)';
        AlphaErr: Label 'The Alpha parameter must be between 0 and 255.';
        RedErr: Label 'The Red parameter must be between 0 and 255.';
        GreenErr: Label 'The Green parameter must be between 0 and 255.';
        BlueErr: Label 'The Blue parameter must be between 0 and 255.';
        FormatErr: Label 'Image is not in valid format';
        ImageTooLargeErr: Label 'The image is too large. Images can be up to 5 MB.';
        UnsupportedFormatErr: Label 'Format is currently not supported';
        QualityEncodeGuidTxt: Label '1d5be4b5-fa4a-452d-9cdd-5db35105e7eb', Locked = true;
        ImageCroppedTxt: Label 'Image cropped to x: %1, y: %2, width: %3, height: %4, format: %5', Locked = true;
        ImageResizeTxt: Label 'Image with width: %1, height: %2, format: %3 was resized', Locked = true;
        ImageCreatedTxt: Label 'Image created with size: %1, width: %2, height: %3, format: %4', Locked = true;
        ImageTooLargeTxt: Label 'Image uploaded with size: %1', Locked = true;
        FormatTxt: Label 'Image input data is in wrong format';
        ImageCatTxt: Label 'Image Module', Locked = true;

    procedure Clear(Alpha: Integer; Red: Integer; Green: Integer; Blue: Integer)
    var
        Image: DotNet Image;
        Graphics: DotNet Graphics;
        Color: DotNet Color;
    begin
        if (Alpha < 0) or (Alpha > 255) then
            Error(AlphaErr);
        if (Red < 0) or (Red > 255) then
            Error(RedErr);
        if (Green < 0) or (Green > 255) then
            Error(GreenErr);
        if (Blue < 0) or (Blue > 255) then
            Error(BlueErr);

        LoadImage(Image);

        Graphics := Graphics.FromImage(Image);

        Color := Color.FromArgb(Alpha, Red, Green, Blue);
        Graphics.Clear(Color);
        Graphics.Dispose();

        EncodeToImage(Image);
    end;

    procedure Crop(X: Integer; Y: Integer; Width: Integer; Height: Integer)
    var
        DstRectangle: DotNet Rectangle;
        SrcRectangle: DotNet Rectangle;
        Graphics: DotNet Graphics;
        GraphicsUnit: DotNet GraphicsUnit;
        BitmapDst: DotNet Bitmap;
        Image: DotNet Image;
        CurrentWidth, CurrentHeight : Integer;
    begin
        if Width < 1 then
            Error(WidthErr);
        if Height < 1 then
            Error(HeightErr);

        LoadImage(Image);
        CurrentWidth := Image.Width();
        CurrentHeight := Image.Height();

        if (X < 0) or (X > CurrentWidth) then
            Error(XErr, CurrentWidth);
        if (Y < 0) or (Y > CurrentHeight) then
            Error(YErr, CurrentHeight);

        Session.LogMessage('0000FLN', StrSubstNo(ImageCroppedTxt, X, Y, CurrentWidth, CurrentHeight, GetFormatAsString()), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageCatTxt);

        SrcRectangle := SrcRectangle.Rectangle(X, Y, Width, Height);
        DstRectangle := DstRectangle.Rectangle(0, 0, Width, Height);
        BitmapDst := BitmapDst.Bitmap(Width, Height);
        Graphics := Graphics.FromImage(BitmapDst);

        Graphics.SmoothingMode := Graphics.SmoothingMode::AntiAlias;
        Graphics.InterpolationMode := Graphics.InterpolationMode::HighQualityBicubic;
        Graphics.PixelOffsetMode := Graphics.PixelOffsetMode::HighQuality;

        Graphics.DrawImage(Image, DstRectangle, SrcRectangle, GraphicsUnit::Pixel);
        Graphics.Dispose();

        EncodeToImage(BitmapDst);
        BitmapDst.Dispose();
    end;

    procedure Resize(Width: Integer; Height: Integer)
    var
        BitmapDst: DotNet Bitmap;
        Graphics: DotNet Graphics;
        Rectangle: DotNet Rectangle;
        Image: DotNet Image;
    begin
        Session.LogMessage('0000FLO', StrSubstNo(ImageResizeTxt, GetWidth(), GetHeight(), GetFormatAsString()), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageCatTxt);

        if Width < 1 then
            Error(WidthErr);
        if Height < 1 then
            Error(HeightErr);

        LoadImage(Image);

        Rectangle := Rectangle.Rectangle(0, 0, Width, Height);
        BitmapDst := BitmapDst.Bitmap(Width, Height);
        BitmapDst.SetResolution(Image.HorizontalResolution, Image.VerticalResolution);

        Graphics := Graphics.FromImage(BitmapDst);
        Graphics.SmoothingMode := Graphics.SmoothingMode::AntiAlias;
        Graphics.InterpolationMode := Graphics.InterpolationMode::HighQualityBicubic;
        Graphics.PixelOffsetMode := Graphics.PixelOffsetMode::HighQuality;
        Graphics.DrawImage(Image, Rectangle);
        Graphics.Dispose();

        EncodeToImage(BitmapDst);
        BitmapDst.Dispose();
    end;

    procedure ToBase64(): Text
    var
        Base64Converter: Codeunit "Base64 Convert";
        InStream: InStream;
    begin
        TempBlob.CreateInStream(InStream, TextEncoding::UTF8);

        exit(Base64Converter.ToBase64(InStream));
    end;

    procedure FromBase64(Base64Text: Text)
    var
        Base64Converter: Codeunit "Base64 Convert";
        Outstream: OutStream;
    begin
        TempBlob.CreateOutStream(Outstream, TextEncoding::UTF8);
        Base64Converter.FromBase64(Base64Text, Outstream);

        CreateAndVerifyImage();
    end;

    procedure FromStream(InStream: InStream)
    var
        OutStream: OutStream;
    begin
        TempBlob.CreateOutStream(OutStream);
        CopyStream(OutStream, InStream);
        CreateAndVerifyImage();
    end;

    procedure GetFormat(): Enum "Image Format"
    var
        Format: DotNet ImageFormat;
        Image: DotNet Image;
        EnumFormat: Enum "Image Format";
    begin
        LoadImage(Image);

        Format := Image.RawFormat();
        if Format.Equals(Image.RawFormat.Bmp()) then
            exit(EnumFormat::Bmp);
        if Format.Equals(Image.RawFormat.Emf()) then
            exit(EnumFormat::Emf);
        if Format.Equals(Image.RawFormat.Exif()) then
            exit(EnumFormat::Exif);
        if Format.Equals(Image.RawFormat.Gif()) then
            exit(EnumFormat::Gif);
        if Format.Equals(Image.RawFormat.Icon()) then
            exit(EnumFormat::Icon);
        if Format.Equals(Image.RawFormat.Jpeg()) then
            exit(EnumFormat::Jpeg);
        if Format.Equals(Image.RawFormat.Png()) then
            exit(EnumFormat::Png);
        if Format.Equals(Image.RawFormat.Tiff()) then
            exit(EnumFormat::Tiff);
        if Format.Equals(Image.RawFormat.Wmf()) then
            exit(EnumFormat::Wmf);

        Error(UnsupportedFormatErr);
    end;

    procedure SetFormat(Format: Enum "Image Format")
    var
        DstTempBlob: Codeunit "Temp Blob";
        Image: DotNet Image;
        ImageFormat: DotNet ImageFormat;
        OutStream: OutStream;
    begin
        case Format of
            Enum::"Image Format"::Bmp:
                ImageFormat := ImageFormat.Bmp();
            Enum::"Image Format"::Emf:
                ImageFormat := ImageFormat.Emf();
            Enum::"Image Format"::Exif:
                ImageFormat := ImageFormat.Exif();
            Enum::"Image Format"::Gif:
                ImageFormat := ImageFormat.Gif();
            Enum::"Image Format"::Icon:
                ImageFormat := ImageFormat.Icon();
            Enum::"Image Format"::Jpeg:
                ImageFormat := ImageFormat.Jpeg();
            Enum::"Image Format"::Png:
                ImageFormat := ImageFormat.Png();
            Enum::"Image Format"::Tiff:
                ImageFormat := ImageFormat.Tiff();
            Enum::"Image Format"::Wmf:
                ImageFormat := ImageFormat.Wmf();
        end;

        LoadImage(Image);

        DstTempBlob.CreateOutStream(OutStream);
        Image.Save(OutStream, ImageFormat);
        Image.Dispose();

        TempBlob := DstTempBlob;

        CreateAndVerifyImage();
    end;

    procedure GetFormatAsString(): Text
    var
        FormatConverter: DotNet ImageFormatConverter;
        Image: DotNet Image;
    begin
        LoadImage(Image);

        FormatConverter := FormatConverter.ImageFormatConverter();
        exit(FormatConverter.ConvertToString(Image.RawFormat()));
    end;

    procedure GetWidth(): Integer
    var
        Image: DotNet Image;
    begin
        LoadImage(Image);

        exit(Image.Width());
    end;

    procedure GetHeight(): Integer
    var
        Image: DotNet Image;
    begin
        LoadImage(Image);

        exit(Image.Height());
    end;

    procedure RotateFlip(RotateFlipType: Enum "Rotate Flip Type")
    var
        Image: DotNet Image;
        BitmapDst: DotNet Bitmap;
    begin
        LoadImage(Image);

        BitmapDst := BitmapDst.Bitmap(Image);
        BitmapDst.RotateFlip(RotateFlipType.AsInteger());

        EncodeToImage(BitmapDst);
    end;

    procedure Save(OutStream: OutStream)
    var
        InStream: InStream;
    begin
        TempBlob.CreateInStream(InStream, TextEncoding::UTF8);
        CopyStream(OutStream, InStream);
    end;

    local procedure CreateAndVerifyImage()
    var
        Image: DotNet Image;
        Size, Width, Height : Integer;
        MaxSize: Integer;
    begin
        MaxSize := 52428800; // 50MB
        if TempBlob.Length() > MaxSize then begin
            Session.LogMessage('0000FMA', StrSubstNo(ImageTooLargeTxt, TempBlob.Length()), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageCatTxt);
            System.Clear(TempBlob);
            Error(ImageTooLargeErr);
        end;

        if not LoadImage(Image) then begin
            Session.LogMessage('0000FMB', FormatTxt, Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageCatTxt);
            System.Clear(TempBlob);
            Error(FormatErr);
        end;

        SetCodec(Image, ImageCodec);

        Size := TempBlob.Length();
        Width := GetWidth();
        Height := GetHeight();
        Session.LogMessage('0000FLP', StrSubstNo(ImageCreatedTxt, Size, Width, Height, GetFormatAsString()), Verbosity::Normal, DataClassification::SystemMetadata, TelemetryScope::ExtensionPublisher, 'Category', ImageCatTxt);
    end;

    [TryFunction]
    local procedure LoadImage(var Image: DotNet Image)
    var
        ImageInStream: InStream;
    begin
        if not TempBlob.HasValue() then
            Error(ImageNotInitializedErr);

        TempBlob.CreateInStream(ImageInStream, TextEncoding::UTF8);
        Image := Image.FromStream(ImageInStream);
    end;

    local procedure SetCodec(Image: DotNet Image; var LocalImageCodec: DotNet ImageCodecInfo)
    var
        Codecs: DotNet ArrayList;
        Codec: DotNet ImageCodecInfo;
    begin
        Codecs := Codec.GetImageEncoders();
        foreach Codec in Codecs do
            if Image.RawFormat.Guid() = Codec.FormatID then
                LocalImageCodec := Codec;
    end;

    local procedure EncodeToImage(Bitmap: DotNet Bitmap)
    var
        EncoderParameters: DotNet EncoderParameters;
        EncoderParameterArray: DotNet Array;
        EncoderParameter: DotNet EncoderParameter;
        Encoder: DotNet Encoder;
        OutStream: OutStream;
    begin
        Encoder := Encoder.Encoder(QualityEncodeGuidTxt);
        EncoderParameter := EncoderParameter.EncoderParameter(Encoder, 100);

        EncoderParameterArray := EncoderParameterArray.CreateInstance(GetDotNetType(EncoderParameter), 1);
        EncoderParameterArray.SetValue(EncoderParameter, 0);

        EncoderParameters := EncoderParameters.EncoderParameters(1);
        EncoderParameters.Param := EncoderParameterArray;

        TempBlob.CreateOutStream(OutStream);
        Bitmap.Save(OutStream, ImageCodec, EncoderParameters);
    end;

    procedure GetRotateFlipType() RotateFlipType: Enum "Rotate Flip Type";
    var
        Image: DotNet Image;
        PropertyItem: DotNet PropertyItem;
        BitConverter: DotNet BitConverter;
        PropertyList: DotNet IList;
        OrientationPropertyId: Integer;
        OrientationValue: Integer;
    begin
        OrientationPropertyId := 274; // exif property tag orientation, ID = 0x0112 which corresponds to integer value 274 (https://go.microsoft.com/fwlink/?linkid=2211500)

        LoadImage(Image);
        PropertyList := Image.PropertyIdList();
        if not PropertyList.Contains(OrientationPropertyId) then
            exit(Enum::"Rotate Flip Type"::RotateNoneFlipNone);

        PropertyItem := Image.GetPropertyItem(OrientationPropertyId);
        OrientationValue := BitConverter.ToUInt16(PropertyItem.Value, 0);
        case OrientationValue of
            1:
                RotateFlipType := RotateFlipType::RotateNoneFlipNone;
            2:
                RotateFlipType := RotateFlipType::RotateNoneFlipX;
            3:
                RotateFlipType := RotateFlipType::Rotate180FlipNone;
            4:
                RotateFlipType := RotateFlipType::Rotate180FlipX;
            5:
                RotateFlipType := RotateFlipType::Rotate90FlipX;
            6:
                RotateFlipType := RotateFlipType::Rotate90FlipNone;
            7:
                RotateFlipType := RotateFlipType::Rotate270FlipX;
            8:
                RotateFlipType := RotateFlipType::Rotate270FlipNone;
            else
                RotateFlipType := RotateFlipType::RotateNoneFlipNone;
        end;
    end;
}