FiveTech Support Forums

FiveWin / Harbour / xBase community
Board index FiveWin para Harbour/xHarbour TScan32 de Rafa Carmona
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
TScan32 de Rafa Carmona
Posted: Wed Oct 26, 2005 06:52 AM

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.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Posts: 326
Joined: Sun Oct 09, 2005 05:22 PM
TScan32 de Rafa Carmona
Posted: Thu Oct 27, 2005 01:19 AM

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.

Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
TScan32 de Rafa Carmona
Posted: Thu Oct 27, 2005 07:58 PM

can you send me also ( silvio_falconi@tin.it)

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

Best Regards

Best Regards, Saludos



Falconi Silvio
Posts: 731
Joined: Fri Oct 07, 2005 07:42 AM
Re:
Posted: Fri Oct 28, 2005 08:23 AM

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 <!-- s;) --><img src="{SMILIES_PATH}/icon_wink.gif" alt=";)" title="Wink" /><!-- s;) -->
  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.
Saludos

Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Posts: 728
Joined: Fri Oct 07, 2005 07:38 AM
TScan32 de Rafa Carmona
Posted: Fri Oct 28, 2005 08:38 AM

Gracias, Rafa. Lo pruebo y te cuento.
Aprovecho desde aqui para agradecerte las fabulosas contribuciones que haces con clases como esta.

Un saludo.

Angel Salom
Visionwin Software - https://www.visionwin.com
------------------------------------------------------------
fwh 19.05 - harbour 3.2 - bcc 7.4
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
TScan32 de Rafa Carmona
Posted: Fri Oct 28, 2005 10:23 AM

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

Best Regards, Saludos



Falconi Silvio
Posts: 731
Joined: Fri Oct 07, 2005 07:42 AM
TScan32 de Rafa Carmona
Posted: Fri Oct 28, 2005 12:13 PM
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.
Saludos

Rafa Carmona ( rafa.thefullARROBAgmail.com___quitalineas__)
Posts: 3107
Joined: Fri Oct 07, 2005 06:28 PM
TScan32 de Rafa Carmona
Posted: Fri Oct 28, 2005 05:10 PM

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

Best Regards, Saludos



Falconi Silvio
Posts: 654
Joined: Fri Oct 21, 2005 05:54 AM
TScan32 de Rafa Carmona
Posted: Thu Mar 23, 2006 01:54 AM

Please send a copy of TScan to me also.

Regards

  • Ramesh Babu P
Posts: 219
Joined: Fri Nov 04, 2005 02:34 PM
TScan32 de Rafa Carmona
Posted: Thu Mar 23, 2006 03:12 PM

Please!, can you make it public for all the people ?

Por favor, pueden ponerla pública para todos ?

Juan Carlos Salinas Ojeda

México. D.F.

-------------------------------------------------
Posts: 8515
Joined: Tue Dec 20, 2005 07:36 PM
TScan32 de Rafa Carmona
Posted: Fri Mar 24, 2006 11:31 AM

Hello FiveWinners!

Por Favor, Donde Encuentro TSCAN32??

João Santos - São Paulo - Brasil - Phone: +55(11)95150-7341
Posts: 1279
Joined: Mon Feb 06, 2006 04:28 PM
Rafa Carmona TScan32
Posted: Thu Mar 30, 2006 04:55 PM

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

Saludos/Regards,

José Murugosa

"Los errores en programación, siempre están entre la silla, el teclado y la IA!!"
Posts: 257
Joined: Tue May 16, 2006 04:46 PM
TScan32 de Rafa Carmona
Posted: Fri Nov 24, 2006 04:26 PM

Me apunto también para recibir la clase para escanear. Mi correo:

rodolfoerbg@gmail.com

'chas gracias por anticipado.

RodolfoRBG
FWH 1307, xHarbour123 BCC582
rodolfoerbg@gmail.com
Posts: 366
Joined: Wed Aug 30, 2006 05:25 PM
TScan32 de Rafa Carmona
Posted: Fri Nov 24, 2006 04:42 PM

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

Gracias y Saludos

Ruben Fernandez - Uruguay

FWH 11.06, Harbour, Borland 5.82

Continue the discussion