Information générale
Catégorie:
Codage, syntaxe et commandes
Titre:
Paper Scanning Problem
Dear All
I am using the following code to scan image from HP Scanjet 200. Scanning process is OK, no problem at all but when I want to view on Form its shown reverse effect of the Image. I am enclosing here an image for your ready ref.
LOCAL cdg As Object
cdg = CREATEOBJECT("Wia.CommonDialog")
dev = cdg.ShowSelectDevice
cPath = dev.Properties(24).Value
Img = cdg.ShowAcquireImage
IF ISNULL(Img)
WAIT WINDOW TIMEOUT 1 "User Cancelled"
RETURN .F.
ENDIF
Img.SaveFile(FULLPATH(mImg)+".Png")
WAIT WINDOW TIMEOUT 1 "Image Saved Successfully"
Thisform.txtImg.Value = mImg+".Png"
mFile = ALLTRIM(Thisform.txtImg.Value)
Thisform.Image1.Picture = mFile
Thisform.cmdSave.Enabled = .T.
This.Enabled = .F.
Thanks in advance
Ahsan Rana
Répondre
Voir le fil de ce thread
Voir le fil de ce thread à partir de ce message seulement
Voir tous les messages de ce thread
Voir tous les messages de ce thread à partir de ce message seulement