Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Paper Scanning Problem
Message
From
13/12/2020 05:39:38
 
 
To
All
General information
Forum:
Visual FoxPro
Category:
Coding, syntax & commands
Title:
Paper Scanning Problem
Miscellaneous
Thread ID:
01677550
Message ID:
01677550
Views:
57
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
Map
View

Click here to load this message in the networking platform