General information
Category:
Coding, syntax & commands
Title:
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
Reply
View the map of this thread
View the map of this thread starting from this message only
View all messages of this thread
View all messages of this thread starting from this message only