Page 1 of 1

TScan32 de Rafa Carmona

PostPosted: Wed Oct 26, 2005 6:52 am
by AngelSalom
Hola gente!
Estoy implementando la clase TScan32 de Rafa y va de perlas, tan solo una pregunta.
¿Es posible o existe algun modo de indicarle al scanner que me capture una zona determinada del folio?
He visto que esta la funcion Tscan32:RegionSet (nTop,nLeft,nRight,nBottom) pero parece ser que no hace ningún efecto.
Aqui va mi código

-------------------------------------------------------------------------------------
Function RunScan (cFileBmp)
Local oScan
oScan := TScan32():New( cFileBmp )

If oScan:State()<4
oScan:OpenDefault()
Endif

oScan:SetRes (100)
oScan:SetHide (.T.)
oScan:PixelType (TWPT_GRAY) // Gris
oScan:DigitoFile()
oScan:End()
Return (nil)

Un saludo.

PostPosted: Thu Oct 27, 2005 1:19 am
by Alfredo Arteaga
Deseo hacer algunas pruebas con esta clase pero no la encuentro, podrás indicarme de que lugar obtenerla o enviarla a mi correo?

servicios@despachoarteaga.com.mx

Gracias de antemano.

PostPosted: Thu Oct 27, 2005 7:58 pm
by Silvio
can you send me also ( silvio_falconi@tin.it)

p.s. there some possibility to execute OCR function ?

Best Regards

Re:

PostPosted: Fri Oct 28, 2005 8:23 am
by thefull
Angel, en tu codigo no defines ninguna area:

oScan:RegionSet( nLeft,nTop, nRigth, nBottom ), establece el area a escanear.

Puedes preguntar por el area oScan:RegionGet( @L,@T,@R,@B ), y comparar
los valores ANTES y depues del RegionSet.

A mi me funciona, raro es que no te funcione ;-)


Con estos metodos que acontinuacion veremos , podemos seleccionar
una porcion de la region a adquirir.

RegionSet( nLeft,nTop, nRigth, nBottom )
Selecciona una region para adquirir.

METHOD RegionReset()
Restaura a la region que habia por defecto, toda la superficie.

RegionGet( L,T,R,B )
Devuelve en las variables la porciones de la region actualmente definidas.
El uso es muy simple:

Local L,T,R,B // Left,Top,Rigth y Bottom, logicamente ;)
oScan := oScan:New()
oScan:RegionGet(@L,@T,@R,@B), obteniendo el resultado en las misma variables
pasadas por referencia.

RegionGetDefault( L,T,R,B )
Devuelve los valores de la region por defecto. El mismo ejemplo del method
RegionGet es aplicable a este.

PostPosted: Fri Oct 28, 2005 8:38 am
by AngelSalom
Gracias, Rafa. Lo pruebo y te cuento.
Aprovecho desde aqui para agradecerte las fabulosas contribuciones que haces con clases como esta.

Un saludo.

PostPosted: Fri Oct 28, 2005 10:23 am
by Silvio
thank for the tscan class
I Hope if Rafa Carmona let me said how we can use Tscan32 to OCR func
I hope the guru of fivewin and xharbour help us

Regards
silvio

PostPosted: Fri Oct 28, 2005 12:13 pm
by thefull
Silvio wrote:thank for the tscan class
I Hope if Rafa Carmona let me said how we can use Tscan32 to OCR func
I hope the guru of fivewin and xharbour help us

Sorry , i speak spanish, i not find letter in english, please use you traslate.

La tecnologia de OCR, o reconocimiento de caracteres, si bien implica el usar
un dispositivo para capturar o scanear un documento, NO implica que la
clase TScan32 sea capaz de 'reconocer' lo que a escaneado, por ejemplo,
es posible usar, y de hecho asi tengo en el trabajo, una webcam, que
hace el trabajo de capturar el documento y realizar un OCR.

Es decir, en usar un scanner para obtener una imagen en un fichero, no
tiene nada que ver con el OCR.

Si tu preguntas es si he realizado ALGO sobre OCR, directamente no, pero
si he realizado y usado conexiones a DLL que realizan esta tipo de trabajo.

Ahora bien, la licencia de una vale 6000 Euros, nada recomendable, y
varias estan pos los 3000€, y eso solamente para reconocimiento de DNI y pasaportes.

Seria interesante averiaguar o realizar algun tipo de libreria que fuese
capaz de , segun unas plantillas, que es como funcionan realmente esto del OCR, devolvernos unos valores en texto.

Como , cuando, y donde existe esto , no tengo ni idea.

PostPosted: Fri Oct 28, 2005 5:10 pm
by Silvio
thanks...
I understand lating language because I have an uncle in Venezuela..
For the Ocr I found any source for Delphi 6 ma nothing for c++ .
I think there is something in Internet and I continue thr search...

Regards

PostPosted: Thu Mar 23, 2006 1:54 am
by RAMESHBABU
Please send a copy of TScan to me also.

Regards

- Ramesh Babu P

PostPosted: Thu Mar 23, 2006 3:12 pm
by VeRCE
Please!, can you make it public for all the people ?
----------------------------------------------------------
Por favor, pueden ponerla pública para todos ?

PostPosted: Fri Mar 24, 2006 11:31 am
by karinha
Hello FiveWinners!

Por Favor, Donde Encuentro TSCAN32??

Rafa Carmona TScan32

PostPosted: Thu Mar 30, 2006 4:55 pm
by jose_murugosa
Por favor envíenme la clase TScan32 a mí tambien y si es posible también un pequeño ejemplo, me sería de gran utilidad.

Quisiera saber si Rafa tiene un sitio donde encontrar sus clases para xHarbour.

Gracias desde ya.

Una cosa más si me envían un exe o zip o rar a mi casilla cambienle la extensión a .EEE .ZZZ o .RRR respectivamente ya que de otro modo estos archivos no me los permite recibir el servidor de Gmail.

MI e-mail es jmurugosa@gmail.com o también jmurugosa@yahoo.com

PostPosted: Fri Nov 24, 2006 4:26 pm
by RodolfoRBG
Me apunto también para recibir la clase para escanear. Mi correo:

rodolfoerbg@gmail.com

'chas gracias por anticipado.

PostPosted: Fri Nov 24, 2006 4:42 pm
by Ruben Fernandez
Amigos:

Las contribuciones de Rafa Carmona, TheFull están aquí en el foro
sigan este link.

http://fivetechsoft.com/forums/viewtopic.php?t=2501

(Utilidades->TheFull ...)
Saludos

Ruben Fernandez