Page 2 of 3
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 3:58 am
by AIDA
Hola
Reitero mi agradecimiento a tu interface del escaner ya lo integre a mi programita y tire a la basura uno que hice que si funciona pero es muy latoso y dificil de ajustar pero el tuyo es genial
pero tengo un problemita despues de scanear y salirme de la aplicacion y trato de usarla otra ves ya no funciona no salen errores simplemente le doy clic al boton que le asigne y no pasa nada
tengo que cerrar todo mi programa e iniciarlo de nuevo y a si funciona otra vez que sera lo que le pasa?
Muchas gracias por todo
Saluditos
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 10:05 am
by alvaro533
Hola Aida,
Si has modificado la clase asegúrate que se sigue ejecutando oScan:End() cuando cierras el diálogo. Otra cosa que puedes hacer es comparar los procesos en el "administrador de tareas" de windows antes y después de utilizar la clase, para ver si hay alguno que se queda activo.
También puedes ir añadiendo una línea del tipo
y la vas moviendo por el código para ver hasta donde se ejecuta.
Le estoy añadiendo un control de brillo y contraste y en breve subiré la clase.
Un saludo,
Alvaro
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:45 am
by Bayron
Alvaro,
He notado que al seleccionar una area mas pequeña que el area del documento, al escanear, se respeta el tamaño seleccionado, pero el area escaneada es siempre al principio del documento y no el area que se marcó...
Gracias nuevamente por este gran aporte....
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 2:29 pm
by alvaro533
Hola Bayron,
No puedo reproducir el error. A mí me escanea sólo el área seleccionada y al tamaño real 100%. El orden es:
1. pulsar botón presvisualizar
2. seleccionar area a escaner en la imagen previsualizada
3. pulsar botón escanear.
Si puedes manda unos pantallazos para ver si puedo localizar el error.
Gracias.
Alvaro
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 8:58 pm
by Bayron
Alvaro,
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 9:41 pm
by alvaro533
Ya veo lo que dices. Creo que la línea que falla es esta:
oScan:RegionSet( nLeft,nTop, nRigth, nBottom )
Debe ser un problema del driver del scanner. Si tienes ocasión pruebalo con otro scanner. Yo solo tengo 2 para probar y en los 2 funciona perfectamente.
Si tienes más de un driver instalado en tu equipo prueba otro cambiandolo pulsando el botón "seleccionar Scanner" (a la izquierda del botón "salir")
Alvaro
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:30 pm
by Bayron
Alvaro,
Lamentablemente no cuento con otro scanner, pero al poder lo pruebo.....
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:59 pm
by Armando
Amigos:
Probado en una multifuncional Epson Stylus CX3900 y va de 100%.
Saludos
Re: Clase TScanner - Interface de escaneo
Posted: Thu May 27, 2010 4:32 am
by AIDA
Hola
Ya revise lo que me dijiste y todo esta bien
no modifique nadita de tu codigo
creo que el problema esta en algo en mi barrita RIBBONBAR por que también pasa lo mismo cuando uso Shell.Explorer
ya no se ejecuta de nuevo después de cerrar el cuadrito del iexplorer
pero muchas gracias, de todas manera seguire viendo que es lo que esta pasando
Gracias por todo
Saluditos
Re: Clase TScanner - Interface de escaneo
Posted: Tue Jun 08, 2010 4:45 pm
by AIDA
Hola
Me prestaron un HP Scanner Scanjet 3770 y a la hora de tratar de scannear me sale lo siguiente en un letrerito :
Twain error
Failed to resolution device rejected setting for resolution
Que podra ser
Saluditos
Re: Clase TScanner - Interface de escaneo
Posted: Sat Jun 12, 2010 4:34 pm
by alvaro533
Hola Aida,
La línea que da el error es:
oScan:SetRes( oSele:nRes )
prueba otros valores.
Si tu scanner tiene varios drivers prueba el twain o twain 5. Yo tengo un Epson 1260 y con el twain5 funciona perfectamente.
Alvaro
Re: Clase TScanner - Interface de escaneo
Posted: Mon Mar 14, 2011 3:16 am
by AIDA
Ya tengo un scanner que funciona muy bien
pero fíjate que puse un directorio fijo para guardar los pdf pero ahora me dice que "Error al copiar fichero, ¿la carpeta de destino existe?"
antes no lo hacia pero ahora si y no se por que
asi lo puse y funcionaba
Code: Select all | Expand
Function scan_aq( oWndD ,cdir,cFile,nofpdf )
Local oImage, oCbx, oCbxR, oFont, oBrush
Local lSave := .t.
Local cType,cRes
Local aTypes := { "1-Escala de grises","2-Color","3-Color avanzado" }
Local aResolutions := { "50","75","100","150","200","300" }
local oDlg,x,nFor
local osay[3]
local oBtn[4]
DEFINE BRUSH oBrush FILE "fondos\gray2.bmp"
dbselectarea( "paso" )
cFile:=PASO->NOMBRE // nombre y directorio fijos para guardar
cdir:=PASO->DIRECCTORI
Saluditos
Re: Clase TScanner - Interface de escaneo
Posted: Mon Aug 10, 2015 6:12 pm
by Sistem
clase TScanner el link d download, alguien?
[]s
Re: Clase TScanner - Interface de escaneo
Posted: Mon Aug 10, 2015 9:02 pm
by AIDA
Re: Clase TScanner - Interface de escaneo
Posted: Tue Aug 11, 2015 8:28 am
by AngelSalom
