Converting jpg images 2 multipage tiff with JPEG compression

[Loïc]

Code: Select all

   Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
      Dim oGdPictureImaging As New GdPictureImaging()
      Dim JpegID As Integer
      Dim TiffID As Integer
      oGdPictureImaging.SetLicenseNumber("XXX") 'Replace xxx by valid key


      JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
      oGdPictureImaging.TiffSaveAsMultiPageFile(JpegID, "c:\multipage.tif", TiffCompression.TiffCompressionJPEG)
      TiffID = JpegID
      JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
      oGdPictureImaging.TiffAddToMultiPageFile(TiffID, JpegID)
      oGdPictureImaging.ReleaseGdPictureImage(JpegID)
      JpegID = oGdPictureImaging.CreateGdPictureImageFromFile("c:\test1.jpg")
      oGdPictureImaging.TiffAddToMultiPageFile(TiffID, JpegID)
      oGdPictureImaging.ReleaseGdPictureImage(JpegID)
      oGdPictureImaging.TiffCloseMultiPageFile(TiffID)
   End Sub