I was able to get what I wanted in VB.net 2008,
after playing with your merge example. Will try it in VB6 some more (where a spend MOST of my time). I may cry help again if I fail there, or fail to convert my Fax viewing and approval app from VB6 to .Net.Loic,
Have you had a chance to review below? Thanks.
Loic,
My apologies
, I have searched the forum and used the samples (VB) but have no luck.I want to add a smaller image (like an ink stamp: Approved + my signature) to a full page TIF scanned image.
The Merge Images example looks like it uses same size images, and when I use that code, I can only see the full page image (second image) (code below).
Can you point me to an example?
the iReturn value for this is 3
Thanks.
- Code: Select all
Sub MergeFiles()
Dim oGdPicture As GdpicturePro.cGdPicture
Dim oGdPicture2 As GdpicturePro.cGdPicture
Dim nARGBWhiteColor As Long
Dim iReturn As Long
Set oGdPicture = New GdpicturePro.cGdPicture
Set oGdPicture2 = New GdpicturePro.cGdPicture
oGdPicture.SetLicenceNumber ("123.....") 'Demo code version
oGdPicture2.SetLicenceNumber ("123....") 'Demo code version
nARGBWhiteColor = oGdPicture.ColorGetARGBValueFromARGB(255, 255, 255, 255)
oGdPicture.LoadFromFile ("S:\Roger\RJHApproved1.tif")
oGdPicture2.LoadFromFile ("N:\Documents\ALSF3587\ALSF3587_0603090213_022.tif")
oGdPicture.SetTransparencyColorEffect (nARGBWhiteColor)
iReturn = oGdPicture2.DrawImage(oGdPicture.GetNativeImage(), 1, 1, oGdPicture2.GetWidth, oGdPicture2.GetHeight)
oGdPicture2.SaveAsTIFF ("C:\Temp\merged.tif")
Call oGdPicture.CloseNativeImage
Call oGdPicture2.CloseNativeImage
Set oGdPicture = Nothing
Set oGdPicture2 = Nothing
End Sub