B4J Library jMagicImage - Read exif and metadata data, convert, compress image, also some basic image filters

jMagicImage

Author: Author: Magiclen - B4j Wrapper: Pendrush
Version: 1.10

• jMagicImage
  • Functions:
    • BinaryImage
      Method to create a binary image (only black and white colors).
      MagicImage1.LoadImage(File.Combine(File.DirApp, "nasa.png"))
      MagicImage1.BinaryImage()
      Dim PngFilePathBinaryImage As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "nasa2-binary.png"))
      Log("PngFilePathBinaryImage: " & PngFilePathBinaryImage)
    • BlurImage (BlurLevel As Int)
      Method to blur an image. You can also decide how much you want to blur.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim BlurLevel As Int = 20
      MagicImage1.BlurImage(BlurLevel)
      Dim PngFilePathBlur As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2-blur.png"))
      Log("PngFilePathBlur: " & PngFilePathBlur)
    • Crop (Width As Int, Height As Int, X As Int, Y As Int)
      Method to crop an image.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "nasa.png"))
      MagicImage1.Crop(200, 200, 50, 50)
      Dim PngFilePathCropImage As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "nasa2-crop.png"))
      Log("PngFilePathCropImage: " & PngFilePathCropImage)
    • ExportToBMP (ExportFilePath As String) As String
      Export image to BMP format.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim BmpFilePath As String = MagicImage1.ExportToBMP(File.Combine(File.DirApp, "test5.bmp"))
      Log("BmpFilePath: " & BmpFilePath)
    • ExportToGIF (ExportFilePath As String) As String
      Export image to GIF format.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim GifFilePath As String = MagicImage1.ExportToGIF(File.Combine(File.DirApp, "test4.gif"))
      Log("GifFilePath: " & GifFilePath)
    • ExportToJPEG (ExportFilePath As String, Quality As Float) As String
      Export image to JPEG format. You can also decide its quality to compress the file size.
      Quality as float from 0.01 to 1.0
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim Quality As Float = 0.5
      Dim JpegFilePath As String = MagicImage1.ExportToJPEG(File.Combine(File.DirApp, "test1.jpg"), Quality)
      Log("JpegFilePath:" & JpegFilePath)
    • ExportToPNG (ExportFilePath As String) As String
      Export image to PNG format.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim PngFilePath As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2.png"))
      Log("PngFilePath: " & PngFilePath)
    • ExportToTIFF (ExportFilePath As String, Quality As Float, Lossless As Boolean) As String
      Export image to TIFF format. You can also decide its compression quality to decrease the file size, and lossless or lossy.
      Quality as float from 0.01 to 1.0
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim Quality As Float = 0.1
      Dim TiffFilePath As String = MagicImage1.ExportToTIFF(File.Combine(File.DirApp, "test3.tiff"), Quality, True)
      Log("TiffFilePath: " & TiffFilePath)
    • GaussianBlur (GaussianBlurLevel As Int)
      Method to gaussian blur an image. You can also decide how much you want to blur.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim GaussianBlurLevel As Int = 30
      MagicImage1.GaussianBlur(GaussianBlurLevel)
      Dim PngFilePathGaussianBlur As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2-gaussian-blur.png"))
      Log("PngFilePathGaussianBlur: " & PngFilePathGaussianBlur)
    • GetImageAsInputStream As java.io.InputStream
      Return current image as InputStream.
    • GrayImage
      Method to create a grayscale image.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      MagicImage1.GrayImage
      Dim PngFilePathGrey As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2-gray.png"))
      Log("PngFilePathGrey: " & PngFilePathGrey)
    • Initialize
      Initialize library
    • LoadImage (ImagePath As String)
      Load image file
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
    • NegativeImage
      Method to create a negative image.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      MagicImage1.NegativeImage
      Dim PngFilePathNegative As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2-negative.png"))
      Log("PngFilePathNegative: " & PngFilePathNegative)
    • ReadMetadataFromFile (FilePath As String) As String
      Read metadata from file in JSON format
      Dim JsonData As String = MagicImage1.ReadMetadataFromFile(File.Combine(File.DirApp, "test.png"))
      Log(JsonData)
    • Resize (MaxSide As Int, Sharpen As Float, OnlyShrink As Boolean, SharpenOnlyShrink As Boolean)
      Method to resize an image. It can also sharpen the image resized automatically.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "nasa.png"))
      MagicImage1.Resize(1000, 10, False, False)
      Dim PngFilePathResize As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "nasa2-resize.png"))
      Log("PngFilePathResize: " & PngFilePathResize)
    • SharpenImage (SharpenLevel As Float)
      Method to sharpen an image. You can also decide how much you want to sharpen.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "test.png"))
      Dim SharpenLevel As Float = 3
      MagicImage1.SharpenImage(SharpenLevel)
      Dim PngFilePathSharpen As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "test2-sharpen.png"))
      Log("PngFilePathSharpen: " & PngFilePathSharpen)
    • Shrink (MaxWidth As Int, MaxHeight As Int, Sharpen As Float)
      Method to shrink an image. It can also sharpen the image resized automatically.
      MagicImage1.LoadImage(File.Combine(File.DirApp, "nasa.png"))
      MagicImage1.Shrink(100, 100, 1)
      Dim PngFilePathShrink As String = MagicImage1.ExportToPNG(File.Combine(File.DirApp, "nasa2-shrink.png"))
      Log("PngFilePathShrink: " & PngFilePathShrink)

Click to expand...