gdAD est un objet Automation dynamique
gdAD = allouer un objet Automation "GdPicture.GdPictureImaging"
gdAD>>SetLicenseNumber("xxxxxxxxxxx")
i est un entier = Handle(Fenêtre1)
Info(i)
gdAD>>TwainSelectSource(i)
gdAD>>TwainSelectSource_2(i)gdAD est un objet Automation dynamique
gdAD = allouer un objet Automation "GdPicture.GdPictureImaging"
gdAD>>SetLicenseNumber("XXX")
i est un entier sur 4 octets = Handle(Fenêtre1)
iImage est un entier
iHandleFile est un entier
sNom, sNomPDF sont des chaînes
gdAD>>TwainCloseSource()
gdAD>>TwainSelectSource_2(i)
SI PAS gdAD>>TwainOpenSource_2(i,"Canon DR-2580C TWAIN") ALORS
Erreur(gdAD>>TwainGetLastResultCode(),gdAD>>TwainGetLastConditionCode())
RepriseSaisie(Btn_Param)
FIN
gdAD>>TwainSetAutoFeed(False)
gdAD>>TwainSetAutoScan(False)
gdAD>>TwainSetPixelType(0)
gdAD>>TwainSetResolution(150)
gdAD>>TwainSetPaperSize(6)
gdAD>>TwainSetImageFileFormat(6)
gdAD>>TwainSetHideUI(True)
SI Int_RV ALORS
gdAD>>TwainEnableDuplex(True)
SINON
gdAD>>TwainEnableDuplex(False)
FIN
Info(gdAD>>TwainGetState())
sNom = fRepEnCours() + "\Test-" + DateDuJour() + HeureSys() + ".tiff"
POUR i = 1 A sai_nbpage
iImage = gdAD>>TwainAcquireToGDPictureImage_2(i)
SI iImage <> 0 ALORS
SI i = 1 ALORS
iHandleFile = iImage
gdAD>>TiffSaveAsMultiPageFile(iHandleFile,sNom,65536)
SINON
gdAD>>TiffAddToMultipageFile(iHandleFile,iImage)
FIN
gdAD>>ReleaseGDPictureImage(iImage)
FIN
FIN
gdAD>>TiffCloseMultiPageFile(iHandleFile)
gdAD>>ReleaseGDPictureImage(iHandleFile)
sNomPDF = fRepEnCours() + "\Test-" + DateDuJour() + HeureSys() + ".pdf"
iHandleFile = gdAD>>CreateGdPictureImageFromFile(sNom)
gdAD>>PdfCreateFromMultipageTIFF(iHandleFile,sNomPDF,True,"Title","Author","Subject","Keywords","Creator")
gdAD>>TwainCloseSource()
gdAD>>ReleaseGDPictureImage(iHandleFile)
Return to COM interoperability
Users browsing this forum: No registered users and 1 guest