Clase TScanner - Interface de escaneo

[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

[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

Code: Select all  Expand view  RUN

msginfo("aqui")
 

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

[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....

[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

[Bayron]

Alvaro,

[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

[Bayron]

Alvaro,
Lamentablemente no cuento con otro scanner, pero al poder lo pruebo.....

[Armando]

Amigos:

Probado en una multifuncional Epson Stylus CX3900 y va de 100%.

Saludos

[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

[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

[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

[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 view  RUN

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

[Sistem]

clase TScanner el link d download, alguien?

[]s

[AIDA]

Aqui esta

http://www.fivetechsoft.com/files/utilities/QScanner2.exe

Saluditos

[AngelSalom]

https://app.box.com/shared/sov0hjb6t2