FiveTech Support Forums

FiveWin / Harbour / xBase community
Board indexAll discussionsLogin (GitHub)
Board index FiveWin para Harbour/xHarbour Clase TScanner - Interface de escaneo
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 03:58 AM

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 :shock: 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 :D

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 10:05 AM
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 (fw): Select all Collapse
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
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:45 AM

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 02:29 PM

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
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 08:58 PM
Alvaro,


=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 09:41 PM

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
Posts: 883
Joined: Thu Dec 24, 2009 12:46 AM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:30 PM

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

=====>

Bayron Landaverry
xBasePHP.com
(215)2226600 Philadelphia,PA, USA
MayaBuilders@gMail.com
Guatemala

FWH25.06--Harbour 3.0.0--BCC7.7--UEstudio 10.10
Windows 10

FiveWin, One line of code and it's done...

Armando
Posts: 3358
Joined: Fri Oct 07, 2005 08:20 PM
Re: Clase TScanner - Interface de escaneo
Posted: Wed May 26, 2010 11:59 PM
Amigos:

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

Saludos
SOI, s.a. de c.v.
estbucarm@gmail.com
http://www.soisa.mex.tl/
http://sqlcmd.blogspot.com/
Tel. (722) 174 44 45
Carpe diem quam minimum credula postero
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase TScanner - Interface de escaneo
Posted: Thu May 27, 2010 04:32 AM

Hola

Ya revise lo que me dijiste y todo esta bien :D no modifique nadita de tu codigo :mrgreen: creo que el problema esta en algo en mi barrita RIBBONBAR por que también pasa lo mismo cuando uso Shell.Explorer :cry: ya no se ejecuta de nuevo después de cerrar el cuadrito del iexplorer :shock: pero muchas gracias, de todas manera seguire viendo que es lo que esta pasando :roll:

Gracias por todo :D

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase TScanner - Interface de escaneo
Posted: Tue Jun 08, 2010 04:45 PM

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 :cry:

Saluditos :wink:

Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
alvaro533
Posts: 230
Joined: Sat Apr 19, 2008 10:28 PM
Re: Clase TScanner - Interface de escaneo
Posted: Sat Jun 12, 2010 04:34 PM

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
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase TScanner - Interface de escaneo
Posted: Mon Mar 14, 2011 03:16 AM
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 (fw): Select all Collapse
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 :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
Sistem
Posts: 226
Joined: Sun May 13, 2012 07:52 AM
Re: Clase TScanner - Interface de escaneo
Posted: Mon Aug 10, 2015 06:12 PM

clase TScanner el link d download, alguien?

[]s

FWH2008 | xHarbour | BCC74 | SQLRDD
AIDA
Posts: 880
Joined: Fri Jan 12, 2007 08:35 PM
Re: Clase TScanner - Interface de escaneo
Posted: Mon Aug 10, 2015 09:02 PM
Aqui esta :-)

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

Saluditos :-)
Que es mejor que programar? creo que nada :)
Atropellada pero aqui ando :P

I love Fivewin

séʌǝɹ ןɐ ɐʇsǝ opunɯ ǝʇsǝ
AngelSalom
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
Re: Clase TScanner - Interface de escaneo
Posted: Tue Aug 11, 2015 08:28 AM
https://app.box.com/shared/sov0hjb6t2
Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Static archive · New replies & topics via GitHub Discussions