Resize image in NAV 2018

27 August 2018 iby .NET, C/AL & AL, Development, Navision 0

For a period there was an issue with printing images in reports. They all look kind of distorted / scrambled. After a while I figured out that the reason for this was the image size stored in the blob field. So what to do? Well, I made a new function, which could resize the image automatically.

The following function (procedure) ResizeImages can import a image file, resize the image and then save the file again.
All this is now possible in NAV 2018 thanks to the use of .NET.

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
PROCEDURE ResizeImage(FileName : Text;UpsizeIfSmaller : Boolean;MaintainAspectRatio : Boolean;NewWidth : Integer;NewHeight : Integer);
VAR
   TempBlob : TEMPORARY Record 90000;
   ItemDesignSetup : Record 90000;
   Bitmap : System.Drawing.Bitmap;
   ImageFormat : System.Drawing.Imaging.ImageFormat;
   InStr : InStream;
   OutStr : OutStream;
   AspectRatio : Decimal;
BEGIN
 
   ItemDesignSetup.GET;
 
   IF (NewWidth = 0) OR (NewHeight = 0) THEN BEGIN
      NewWidth := ItemDesignSetup."Resize Width";
      NewHeight := ItemDesignSetup."Resize Height";
   END;
 
   IF (NewWidth = 0) OR (NewHeight = 0) THEN
      EXIT;
 
   TempBlob.INIT;
 
   //Load image
   TempBlob."Temp Resized Picture".IMPORT(FileName);
   TempBlob."Temp Resized Picture".CREATEINSTREAM(InStr);
 
   Bitmap := Bitmap.Bitmap(InStr);
 
   //Calculate new size
   IF NOT UpsizeIfSmaller THEN
      IF (NewWidth >= Bitmap.Width) OR (NewHeight >= Bitmap.Height) THEN
         EXIT;
 
   IF Bitmap.Width / NewWidth < Bitmap.Height / NewHeight THEN
      AspectRatio := Bitmap.Width / NewWidth
   ELSE
      AspectRatio := Bitmap.Height / NewHeight;
 
   IF MaintainAspectRatio THEN BEGIN
      NewHeight := ROUND(Bitmap.Height / AspectRatio, 1, '<');
      NewWidth := ROUND(Bitmap.Width / AspectRatio, 1, '<');
   END;
 
   //Resize image
   CLEAR(TempBlob."Temp Resized Picture");
   TempBlob."Temp Resized Picture".CREATEOUTSTREAM(OutStr);
   Bitmap := Bitmap.Bitmap(Bitmap,NewWidth,NewHeight);
 
   //Save resized image
   Bitmap.Save(OutStr,ImageFormat.Jpeg);
   Bitmap.Save(FileName, ImageFormat.Jpeg);
END;

Related Articles

Be the first to comment

Leave a Reply

Your email address will not be published.


*


This site uses Akismet to reduce spam. Learn how your comment data is processed.