TScan32 de Rafa Carmona

TScan32 de Rafa Carmona

Postby AngelSalom » Wed Oct 26, 2005 6: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
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Postby Alfredo Arteaga » Thu Oct 27, 2005 1: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.
User avatar
Alfredo Arteaga
 
Posts: 326
Joined: Sun Oct 09, 2005 5:22 pm
Location: Mexico

Postby Silvio » Thu Oct 27, 2005 7:58 pm

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

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

Best Regards
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Re:

Postby thefull » Fri Oct 28, 2005 8: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 ;)
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__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Postby AngelSalom » Fri Oct 28, 2005 8: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
User avatar
AngelSalom
 
Posts: 727
Joined: Fri Oct 07, 2005 7:38 am
Location: Benicarló (Castellón ) - España

Postby Silvio » 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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby thefull » 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__)
User avatar
thefull
 
Posts: 731
Joined: Fri Oct 07, 2005 7:42 am
Location: Barcelona

Postby Silvio » Fri Oct 28, 2005 5: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
User avatar
Silvio
 
Posts: 3107
Joined: Fri Oct 07, 2005 6:28 pm
Location: Teramo,Italy

Postby RAMESHBABU » Thu Mar 23, 2006 1:54 am

Please send a copy of TScan to me also.

Regards

- Ramesh Babu P
User avatar
RAMESHBABU
 
Posts: 626
Joined: Fri Oct 21, 2005 5:54 am
Location: Secunderabad (T.S), India

Postby VeRCE » Thu Mar 23, 2006 3: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.
-------------------------------------------------
User avatar
VeRCE
 
Posts: 219
Joined: Fri Nov 04, 2005 2:34 pm
Location: Mexico D.F.

Postby karinha » 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
User avatar
karinha
 
Posts: 7855
Joined: Tue Dec 20, 2005 7:36 pm
Location: São Paulo - Brasil

Rafa Carmona TScan32

Postby jose_murugosa » Thu Mar 30, 2006 4: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
User avatar
jose_murugosa
 
Posts: 1181
Joined: Mon Feb 06, 2006 4:28 pm
Location: Uruguay

Postby RodolfoRBG » Fri Nov 24, 2006 4: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
User avatar
RodolfoRBG
 
Posts: 257
Joined: Tue May 16, 2006 4:46 pm
Location: San Luis Potosi, SLP, Mexico

Postby Ruben Fernandez » Fri Nov 24, 2006 4: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
Ruben Fernandez
 
Posts: 366
Joined: Wed Aug 30, 2006 5:25 pm
Location: Uruguay


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: No registered users and 61 guests