DECLARE INTEGER TWAIN_WriteNativeToFilename IN Eztw32.DLL INTEGER nDIB, STRING cFilename
DECLARE INTEGER TWAIN_FreeNative IN Eztw32.DLL INTEGER nDIB
LOCAL lcFile, lnImageHandle, lnReply
lcFile = "scan_image.bmp"
_pft=ALLTRIM(asup21.path_srv_temp)
ConvFile=_pft+'s1'+SUBSTR(SYS(2015), 3, 10)+'.jpg'
* Get the image
*lnImageHandle = TWAIN_AcquireNative(_screen.HWnd,0)
lnImageHandle = TWAIN_AcquireNative(0,0)
IF lnImageHandle>0
	* Write the image to a disk file
	lnReply = TWAIN_WriteNativeToFilename(lnImageHandle,lcFile)
ELSE
	lnReply=1
ENDIF
* Release the image handle
TWAIN_FreeNative(lnImageHandle)
* Check for errors
CLEAR DLLS
IF lnReply = 0
  * image successfully written to file
	IF thisformset.convert(lcFile,ConvFile)
		Well=CreateObject("WScript.Shell") && создается обьект Shell
		Well.RUN(ConvFile,1,.T.)	&& запускается просмотр файла программой по умолчанию
		RELEASE Well	&& удаляется обьект Shell
	ENDIF
	thisformset.form4.text1.Value=ConvFile 
ELSE
	MESSAGEBOX('Нет данных со сканера',64,'')
ENDIF