DECLARE Integer TWAIN_SelectImageSource IN eztw32.dll Integer hWnd
DECLARE Integer TWAIN_AcquireNative IN eztw32.dll Integer hwnd, Integer wPixTypes
DECLARE Integer TWAIN_WriteNativeToFilename IN eztw32.dll Integer hdib, String FileName
DECLARE INTEGER TWAIN_FreeNative IN Eztw32.DLL INTEGER nDIB
hwnd=0
* if you want the user to select a Twain device if more than one installed
*TWAIN_SelectImageSource (THISFORM.HWnd)
TWAIN_SelectImageSource (hwnd)
* do the scanning
*hdib = TWAIN_AcquireNative (THISFORM.HWnd,4)
hdib = TWAIN_AcquireNative (hwnd,4)
IF hDib=0
* User closed without photo
* Release the image handle
TWAIN_FreeNative(hdib)
RETURN .F.
ENDIF
cfile = "MyScan.tif"
* save file
TWAIN_WriteNativeToFilename(hdib,cFile)
TWAIN_FreeNative(hdib)
جميع ماسبق تم تحميلة بالبحث بالانتر نت شاكر لكل من ساهم فى الموضوع