Thanks
Tom
Code:
Code: Select all
THISFORM.gdTwain.TwainLogStart("c:\tlog.txt")
lcSource = THISFORM.gdTwain.TwainSelectSource(THISFORM.HWnd)
THISFORM.gdTwain.TwainOpenSource(lcSource)
*THISFORM.gdTwain.TwainOpenDefaultSource()
THISFORM.gdTwain.TwainSetCurrentPixelType(2) &&Color
nImageID = THISFORM.gdTwain.TwainAcquireToDib(THISFORM.HWnd)
IF nImageID <> 0
THISFORM.gdViewer.DisplayFromGdiDib(nImageID)
&& TwainAcquireToGdPictureImage
THISFORM.gdTwain.SaveAsJpeg("c:\image.jpg")
THISFORM.gdTwain.TwainCloseSource()
ENDIF
THISFORM.gdTwain.TwainLogStop()
Code: Select all
#GdTwain Log Start. Version: 644
RC: TWRC_SUCCESS
CC: TWCC_SUCCESS
State: 3
-------------------
Start: OpenSource.
RC: TWRC_SUCCESS
CC: TWCC_SUCCESS
State: 3
-------------------
GDTWAIN_Mgr: Start Getting DAT_STATUS
RC: TWRC_ENDOFLIST
CC: TWCC_SUCCESS
State: 3
-------------------
GDTWAIN_Mgr: End Getting DAT_STATUS
RC: TWRC_ENDOFLIST
CC: TWCC_SUCCESS
State: 3
-------------------
End: OpenSource.
RC: TWRC_ENDOFLIST
CC: TWCC_SUCCESS
State: 3
-------------------
SetCapOneValue: Please, open source First!.
RC: TWRC_FAILURE
CC: TWCC_OPERATIONERROR
State: 3
-------------------
Start: AcquireNative.
RC: TWRC_SUCCESS
CC: TWCC_SUCCESS
State: 3
Source: WIA-Canon PowerShot SX100 IS
Manufacturer: Generic
-------------------
End: AcquireNative.
RC: TWRC_SUCCESS
CC: TWCC_SUCCESS
State: 3
-------------------
#GdTwain Log Stop.