Escaneo
100 views
Skip to first unread message
Daniel Garcia
Mar 5, 2013, 5:34:48 PM3/5/13
to Nilton Cesar Puglia Menaré, publicesvfoxpro, Guillermo MDQ, Douglas Sánchez, Jorge Carazzo
Saludo y buenas tardes...
Alguien de ustedes sabe como Escanear atravez del ZORRO?....
Alguien de ustedes sabe como Escanear atravez del ZORRO?....
Ing.Daniel Bojorge
Mar 5, 2013, 5:45:52 PM3/5/13
to publice...@googlegroups.com
No lo he probado, pero talvez te sea de utilidad
Dios L@s Bendiga
Saludos,
Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Saludos,
Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Nicaragua
"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
sergio alejandro garcia mendez
Mar 5, 2013, 5:46:19 PM3/5/13
to publice...@googlegroups.com
Que necesitas ya que el escaner no tenes que hacer nada especial prueba un codigo de barras en el un archivo txt y veras que hace la idea es en vez de usar el teclado.
--
Sergio A. García
correo tayi...@gmail.com
El 5 de marzo de 2013 16:34, Daniel Garcia <invierta...@gmail.com> escribió:
Saludo y buenas tardes...
Alguien de ustedes sabe como Escanear atravez del ZORRO?....
--
Sergio A. García
correo tayi...@gmail.com
Ing.Daniel Bojorge
Mar 5, 2013, 5:46:29 PM3/5/13
to publice...@googlegroups.com
Y como siempre, si no está en PORTAL FOX, puede que no exista
Dios L@s Bendiga
Saludos,
Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Saludos,
Daniel (Con 1 Estrella DCE de Microsoft)
www.debsconsultores.com
Nicaragua
"Si ustedes permanecen unidos a mí, y si permanecen fieles a mis enseñanzas, pidan lo que quieran y se les dará.
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
(Juan 15:7 DHH)
Bendito el varón que se fía en el SEÑOR, y cuya confianza es el SEÑOR.
(Jeremías 17:7 RV2000)
Daniel Sánchez
Mar 5, 2013, 7:59:24 PM3/5/13
to Comunidad de Visual Foxpro en Español
En un formulario 
en el ini del formulario
LPARAMETERS cNameImagen
thisform.text1.Value=cNameImagen
DECLARE INTEGER TWAIN_SelectImageSource IN 'Eztw32.DLL' INTEGER hWnd
DECLARE INTEGER TWAIN_GetSourceList IN 'Eztw32.DLL'
DECLARE INTEGER TWAIN_GetNextSourceName IN 'Eztw32.DLL' STRING @cSourceName
DECLARE INTEGER TWAIN_OpenSource IN 'Eztw32.DLL' STRING cSourceName
DECLARE INTEGER TWAIN_AcquireNative IN 'Eztw32.DLL' INTEGER nAppWind, INTEGER nPixelTypes
DECLARE INTEGER TWAIN_WriteNativeToFilename IN 'Eztw32.DLL' INTEGER nDIB, STRING cFilename
DECLARE INTEGER TWAIN_FreeNative IN 'Eztw32.DLL' INTEGER nDIB
DECLARE INTEGER TWAIN_SetMultiTransfer IN 'Eztw32.DLL' INTEGER nFlag
En el click del boton digitalizar
LOCAL lnImageHandle, lnReply
lnReply=-1
lcfile=ALLTRIM(thisform.text1.Value )
* Captura la imágen
lnImageHandle = TWAIN_AcquireNative(0,0)
IF lnImageHandle>0
* copia la imagen a un archivo bmp
lnReply = TWAIN_WriteNativeToFilename(lnImageHandle,"myscanner.bmp")
*/ahora lo recupero para salvarlo en jpg
local mybitmap as xfcbitmap
&& create a bitmap object
mybitmap =_screen.System.DRAWING.bitmap.new("myscanner.bmp")
&& save the bitmap in different formats
* mybitmap.save("mypng.png", _screen.System.DRAWING.imaging.imageformat.png)
* mybitmap.save("mybmp.bmp", _screen.System.DRAWING.imaging.imageformat.bmp)
* mybitmap.save("mytiff.tif", _screen.System.DRAWING.imaging.imageformat.tiff)
mybitmap.save("myscanner.jpg", _screen.System.DRAWING.imaging.imageformat.jpeg)
ENDIF
* Libera la memoria del manejador de la imágen
TWAIN_FreeNative(lnImageHandle)
* Chequear errores
IF lnReply = 0
ELSE
*MESSAGEBOX("No se pudo digitalizar la imagen deseada",64,ctitlemessagebox,2000)
ENDIF
thisform.Release
Y necesitas esta dll eztw32.dll que debes poner en la carpeta de tu aplicación.
Saludos
El 5 de marzo de 2013 17:34, Daniel Garcia <invierta...@gmail.com> escribió:
Saludo y buenas tardes...
Alguien de ustedes sabe como Escanear atravez del ZORRO?....
--
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú
Daniel Sánchez Escobar
Investigación y Desarrollo
Reset Software & Sistemas
Móvil +051-949398047
Trujillo - Perú
0 new messages