i am new to your product is that can be done through the below code , plz help
Code: Select all
Call Imaging1.TiffAppendPageFromFile(Imaging1.GetNativeImage, cmddlg.FileName)
Code: Select all
Call Imaging1.TiffAppendPageFromFile(Imaging1.GetNativeImage, cmddlg.FileName)
Code: Select all
Dim nImageID As Long
nImageID = object.CreateImageFromFile( "image1.jpg")
object.TiffSaveAsNativeMultiPage ("multipage.tif")
nImageID = object.CreateImageFromFile("image2.jpg")
object.TiffAddToNativeMultipage (nImageID)
object.CloseImage (nImageID)
nImageID = object.CreateImageFromFile("image3.jpg")
object.TiffAddToNativeMultipage (nImageID)
object.CloseImage (nImageID)
object.TiffCloseNativeMultiPage
Code: Select all
Private Sub mnOpen_Click()
Dim Warnmsg As String
Dim imageID As Long
'this means there is an open image on gdviewer
If GdViewer1.GetNativeImage <> 0 Then
Warnmsg = "If you clicked on Yes you will append to the current image." & vbCr & "If you clicked on No the current image will be replaced with the new opened one."
If MsgBox(Warnmsg, vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, Me.Caption) = vbNo Then
CloseImage
cmddlg.FileName = ""
cmddlg.Filter = "*.*"
cmddlg.ShowOpen
If cmddlg.FileName <> "" Then
imageID = Imaging1.CreateImageFromFile(cmddlg.FileName)
If Imaging1.GetStat = 0 Then
Call ShowBitmap
'Call Imaging1.TiffSaveMultiPageToFile(imageID, App.Path & "\temp.tif", CompressionCCITT4)
End If
End If
Else
Dim i As Integer
Dim tifCount As Integer
cmddlg.FileName = ""
cmddlg.Filter = "*.*"
cmddlg.ShowOpen
If cmddlg.FileName <> "" Then
imageID = Imaging2.TiffCreateMultiPageFromFile(cmddlg.FileName)
tifCount = Imaging2.TiffGetPageCount(imageID)
For i = 1 To tifCount
Call Imaging2.TiffSelectPage(imageID, i)
Call Imaging1.TiffAppendPageFromGdPictureImage(GdViewer1.GetNativeImage(), imageID)
Next
Call Imaging2.CloseNativeImage
Imaging2.CloseImage (imageID)
ShowBitmap
ShowBitmapProperties
End If
End If
Else
'there is no displayed image on the gdviewer
CloseImage
cmddlg.FileName = ""
cmddlg.Filter = "*.*"
cmddlg.ShowOpen
If cmddlg.FileName <> "" Then
imageID = Imaging1.CreateImageFromFile(cmddlg.FileName)
If Imaging1.GetStat = 0 Then
Call ShowBitmap
'Call Imaging1.TiffSaveMultiPageToFile(imageID, App.Path & "\temp.tif", CompressionCCITT4)
End If
End If
End If
End Sub
Users browsing this forum: No registered users and 1 guest