![]() |
![]() |
![]() |
![]() |
![]() |
FTP | ![]() |
![]() |
CCD | ![]() |
![]() |
Buscar | ![]() |
![]() |
Trucos | ![]() |
![]() |
Trabajo | ![]() |
![]() |
Foros | ![]() |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Buscar | Temas de Hoy | Marcar Foros Como Leídos |
![]() |
|
Herramientas | Buscar en Tema | Desplegado |
|
#1
|
|||
|
|||
Mas detalles
Hola. Tienes razon, no di detalles. Bueno pues estoy utilizando dos controles activeX de imaging Kodak, el ImgOCR y el ImgScan. Mi scanner es un acer "scan to web 4300 U". Utiliza el driver MiraScan, pero si quiero hacer un reconocimiento OCR como es mi caso tengo que instalar el scann button. El codigo siguiente escanea una imagen:
procedure TForm1.Button1Click(Sender: TObject); begin if ImgScan1.ScannerAvailable then try ImgScan1.OpenScanner; ImgScan1.ScanTo := 1; ImgScan1.Image:='c:\Imagen.jpeg'; ImgScan1.StartScan; Application.ProcessMessages; finally ImgScan1.CloseScanner ; end; end; Para visualizar la imagen lo hago en un TImage. eso si funciona, pero al querer canvertirlo a texto me marca el error que ya mencione. El codigo que tengo es: procedure TForm1.Button2Click(Sender: TObject); begin Imgocr1.ShowOcrOptions; Imgocr1.Quality := wiAutoDetectQ; Imgocr1.Image:= 'c:\Imagen.jpeg'; Imgocr1.ProcessingMode := 1; //OCR Imgocr1.RetainPictures := false; Imgocr1.RetainPageLayout := true Imgocr1.OutputType := wiWordforWindows; Imgocr1.OutputFile := 'c:\Articulo.rtf'; Imgocr1.LaunchApplication := true; Imgocr1.StartOcr; end; Que podra ser porque ya intente de todo. Se me ha ocurrido que puedo lanzar la aplicacion scannbutton, pues en esa el reconocimiento de OCR si funciona, solo que no se si se pueda. ¿alguna idea? ![]() Gracias por tu tiempo Alfredo. |
#2
|
|||
|
|||
+ detalles aun
![]() Si alguien pudiera orientarme con esto lo agradeceria mucho. |
#3
|
|||
|
|||
Si hay forma, descarga el ActiveX Wrapper de
http://sourceforge.net/projects/freeimage/ ya he visualizado imagenes tiff en delphi con este componente, voy a hacer unas pruebas en la tarde y te informo los detalles por si se te complica la instalación o el uso. Lo que pasa es que lo tengo instalado y funcionando en la oficina. Hasta luego...
__________________
if Vivir = Vivir + Aprender then Aprender = ? Alfredo Borges |
#4
|
|||
|
|||
Gracias
![]() ![]() ShellExecute(Handle, 'open', PChar('Scanbutton'), PChar('c:\Articulo.rtf'), nil, SW_SHOW); Esto no me funciona: Imgocr1.Quality := wiAutoDetectQ; Imgocr1.Image := 'ruta y nombre del archivo'; Imgocr1.ProcessingMode := 1; //Process only OCR zones Imgocr1.RetainPictures := false; //Do not process pictures Imgocr1.RetainPageLayout := true; //Source layout retained in output layout //Set the OCR output file to rtf type and open it in the associated application Imgocr.LaunchApplication; Imgocr1.OutputType := wiWordforWindows; Imgocr1.OutputFile := 'ruta y nombre del archivo'; Imgocr1.StartOcr; GRACIAS SALUDOS Cita:
|
![]() |
Herramientas | Buscar en Tema |
Desplegado | |
|
|
![]() |
|