Code: Select all
oGdPictureImaging.Rotate(imageID, RotateFlipType.Rotate90FlipNone)
Me.GdViewer1.DisplayFromGdPictureImage(imageID)
Me.GdViewer1.ReloadAnnotations()
Me.GdViewer1.Redraw()
Code: Select all
oGdPictureImaging.Rotate(imageID, RotateFlipType.Rotate90FlipNone)
Me.GdViewer1.DisplayFromGdPictureImage(imageID)
Me.GdViewer1.ReloadAnnotations()
Me.GdViewer1.Redraw()
Code: Select all
' Delete any previous page work files in the log directory.
Dim workPath As String = "directoryName"
For Each myFile As String In Directory.GetFiles(workPath, "work*.tif")
File.Delete(myFile)
Next
' Use the original image data and write out a file named orig.tif in the
' directory.
Dim fs As FileStream = New FileStream(workPath & "orig.tif", FileMode.Create)
fs.Write(imageData, 0, imageData.Length - 1)
fs.Flush()
fs.Close()
' Read the orig.tif file and create the individual image files for each page
' using the workxxxx.tif file name. These are placed in the directory.
oGdPictureImaging.TiffOpenMultiPageForWrite(True)
Dim workID As Integer = oGdPictureImaging.TiffCreateMultiPageFromFile(workPath & "orig.tif")
For x As Integer = 1 To oGdPictureImaging.TiffGetPageCount(workID)
oGdPictureImaging.TiffSelectPage(workID, x)
oGdPictureImaging.TiffSaveAsMultiPageFile(workID, workPath & "work" & x.ToString.PadLeft(4, "0") & ".tif", TiffCompression.TiffCompressionCCITT4)
Next
oGdPictureImaging.ReleaseGdPictureImage(workID)
oGdPictureImaging.TiffCloseMultiPageFile(workID)
' Read the original workxxxx.tif files, rotate them and create a new document with the
' name new.tif.
Dim cnt As Integer = 0
Dim multiPageID As Integer = oGdPictureImaging.CreateNewGdPictureImage(oGdPictureImaging.GetWidth(workID),
oGdPictureImaging.GetHeight(workID),
oGdPictureImaging.GetBitDepth(workID),
oGdPictureImaging.ARGBI(255, 0, 0, 0))
Dim inID As Integer
For Each inFile As String In Directory.GetFiles(workPath, "work*.tif")
If cnt = 0 Then
multiPageID = oGdPictureImaging.CreateGdPictureImageFromFile(inFile)
oGdPictureImaging.Rotate(multiPageID, fliptype)
oGdPictureImaging.TiffSaveAsMultiPageFile(multiPageID, workPath & "new.tif", TiffCompression.TiffCompressionCCITT4)
oGdPictureImaging.ReleaseGdPictureImage(multiPageID)
Else
inID = oGdPictureImaging.CreateGdPictureImageFromFile(inFile)
oGdPictureImaging.Rotate(inID, fliptype)
oGdPictureImaging.TiffAddToMultiPageFile(multiPageID, inID)
oGdPictureImaging.ReleaseGdPictureImage(inID)
End If
cnt += 1
Next
oGdPictureImaging.ReleaseGdPictureImage(multiPageID)
oGdPictureImaging.TiffCloseMultiPageFile(multiPageID)
oGdPictureImaging.ClearGdPicture()
Users browsing this forum: No registered users and 2 guests