Tesseract OCR (Optical Character Recognition) desde Delphi
 

Hola a todos,

No sé si conocéis el proyecto Tesseract OCR (Optical Character Recognition). Si es así, probablemente, sabéis que no parece sencillo encontrar una forma de trabajar con Tesseract desde Delphi, aparte de cierto componente de WinSoft. Pues bien, es el caso que, por razones que no vienen al caso, he dado unas cuentas vueltas a este asunto, hasta que, por fin, he llevado a cabo una clase para Delphi que permite utilizar Tesseract OCR.

No existen DLL's de Tesseract desde la versión 2.0. Hasta donde yo llego, sólo es posible conseguir un archivo ejecutable que funciona a través de la línea de comandos. Ahora bien, he pensado que podría utilizar este ejecutable, pero, de la forma más transparente posible. Hacer esto, aunque acaso no muy elegante, aporta alguna ventaja, como, en principio, poder utilizar siempre la última versión de Tesseract. Además el asunto parece funcionar razonablemente bien, y, yo no pretendo esconder de ninguna manera este "diseño", pues lo considero hasta "legítimo".

Pues bien, el caso es que he conseguido mi objetivo, aunque, centrándome en el proyecto en que tenía pensado incorporar la clase de que hablo. ¿Qué quiere esto decir? Está documentado en la propia clase, pero, básicamente, significa que el proceso de Tesseract es ejecutado de forma secuencial, esto es, no he sido capaz de utilizar hilos, aunque lo he hecho así al principio, lo cierto es que el proyecto al que la clase va destinada es un poco tiquismiquis: se trata de una DLL que se ejecuta en un programa "host", y, esto causa algunas veces (como en este caso) problemas raros, incomprensibles y de complicada depuración.

Sin embargo, aunque el proceso de Tesseract no se ejecuta en su propio hilo, sí que se hace de forma que la aplicación "responda" al usuario, y, de hecho, la clase permite cancelar la tarea que estemos llevando a cabo. En fin, no me quiero enrrollar más, simplemente, me ha apetecido compartir esto con vosotros. En el archivo que a continuación enlazaré podréis encontrar la clase "TTesseract" (con comentarios en mi pobre inglés), así como todos los archivos necesarios y el código fuente de un ejemplo de uso, así como su correspondiente archivo binario.

Cualquier comentario o sugerencia será bienvenida. Para descargar "TTesseract", por favor, sigue este enlace. Huelga decir que, si lo estimáis oportuno, podéis hacer uso de esta clase de la forma en que queráis, aunque, bajo la licencia Apache 2.0, la misma en que está licenciado Tesseract ORC.

Gracias :)

¡De nada Casimiro! ;)

Pues sí. Gracias :) Aunque todavía no entiendo bien de qué va la cosa. O creo que no entendí tu explicación :o. Probé el sample pero supongo que está para inglés pues no reconoce acentos.

Sugerencia para el sample: que el resultado lo ponga en un memo y así veamos que no es otra imagen la que estás poniendo :p

// Saludos

Hola,

Gracias a ti Román. A ver, vamos por partes, como dijo Jack el destripador. :D

Para usar el lenguaje español (a ver si te reconoce algún acento) usa algo así:

Código Delphi [-]
      FTesseract.RunTesseract
      (
        FileName,
        tpsmFullyAutomaticWithNoOSD,
        'spa', // Indicamos el lenguaje español, tal vez hagamos constantes de esto...
        '.\tesseract-config'
      );

Respecto del ejemplo, sí, supongo que pueden hacerse algunas mejoras, gracias por la sugerencia de usar un "TMemo".

Hola,

Sólo para decir que he actualizado el ejemplo un tanto y creo que ahora te gustará un poco más Román. ;)

¡Ah! Ahora lo pruebo, pero por lo pronto creo que algo no hago bien:

:eek:

¿Será por haberlo compilado con D7 que no tiene unicode?

Por cierto que, al recompilar, todas las rutas se descuadran y tuve que ponerlas absolutas. Como que el SetDir no le gusta o no sé qué pasa.

// Saludos

Hola,

Usar rutas relativas es una tontería... pero no tiene que ser así, de manera que el "SetDir" no habría porqué usarlo. En cuanto al resultado que obtienes, Román, depende a veces del "page segmentation", de la calidad de la imagen, de la fuente, del lenguaje, y, supongo que de un largo etcétera más. No sé hasta qué punto habrá que asumir este tipo de resultados. Sé que Tesseract puede ser "entrenado", pero, eso es algo que queda fuera del alcance de la clase.

Respondiendo a esto, digo que no puede ser, puesto que yo uso Delphi 2007 y sólo me aseguré de que funciona con XE2, con alguna cosilla que se me ha atragantado: no sé porqué no puedo usar la función "GetTempPath" en XE2. De todas formas, no hay unicode por medio, aunque sí que usa la función "UTF8Decode", en lugar de cargar el archivo de salida como UTF8, que, es algo que puede hacerse en XE2. Aparentemente, "UTF8Decode" funciona en Delphi 2007 y XE2, por eso lo he dejado así.

Que bien dec!!!
Ahora mismo estoy trabajando en un proyecto para escanear documentos y estoy utilizando el componente de Winsoft que mencionas en pruebas.
Ya mismo descargaré tu componente y lo miraré.

Muchas gracias

Después de pelearme un rato con los directorios he hecho estas modificaciones en el componente para que trabaje con rutas absolutas.
Todavía no entiendo porqué, pero supongo que al ejecutarse mediante CreateProcess, debe tomar como ruta la del usuario %USERPROFILE%=C:\Document and Settings\NombreUsuario\

Código Delphi [-]
constructor TTesseract.Create( tesseractDllPath, tessDataDirPath : string );
begin
  inherited Create();
  FCancelTask := false;
  FTaskIsRunning := false;
  FTemporalFilePath := GetTemporalFilePath();
  // We assert the needed file and dir later, not here
  FTesseractDllPath := ExpandUNCFileName(tesseractDllPath);
  FTesseractDataDirPath := IncludeTrailingPathDelimiter( ExpandUNCFileName(tessDataDirPath) );
end;

Hola,

Gracias por tus comentarios duilioisola. En realidad el asunto de las rutas relativas/absolutas no tiene que ver con el componente. Verás, no sé porqué, en el ejemplo me dio por utilizar rutas relativas. Es una tontería, porque, uno puede averiguar dónde está el ejecutable del ejemplo y conformar rutas absolutas a partir de ahí. Pero, fuera de eso, las rutas relativas/absolutas, hasta donde yo llego, no entran en el funcionamiento del componente. He podido probar el asunto en Windows 7 y 8, y, me consta que también funciona bien en Windows XP.

Gracias de nuevo por tus comentarios, y, ojalá mis humildes esfuerzos puedan ser de utilidad para ti. ;)

Hola,

Se me olvidó comentar, para quien esté interesado, que, he hecho algunos cambios.

No demasiado importantes, pero, en fin, lo digo por si queréis descargarlo de nuevo.

Estoy muy interesado en probarlo pero el enlace no descarga nada, lleva a la página de NeoPlugins. Dec, hay alguna posibilidad que se reponga?

Garcias.

Hola,

Puedes bajarlo desde este enlace:

http://neoplugins.com/clubdelphi/ttesseract.zip

Muchas gracias. :)

David,

Excelente :) ^\||/

Saludos,

Nelson.

Hola,

¡No hay de qué! Sin embargo, me gustaría comentar que mi trabajo en este componente podría muy bien considerarse una "chapuza"... dicho de otro modo, que, no me quedo del todo satisfecho haciendo las cosas como se hacen. Cierto que funciona, pero, una cosa no quita la otra. Así pues voy a recomendar buscar más información sobre este asunto, y, echar un vistazo a otros componentes como, por ejemplo, el que se ofrece en Winsoft.sk.

Hola de nuevo,

Que digo que no me quedo a gusto con mi anterior mensaje. Igual la palabra no es "chapuza" sino "trampa". Ciertamente, lo que parece una DLL es en realidad un ejecutable de tipo consola que funciona como tal. No obstante, el componente para Delphi en cuestión permite utilizar dicho ejecutable como acostumbramos en Delphi, jugando con propiedades, eventos, etc. Así que retiro la palabra "chapuza" (la retiro yo, no quienes tengan otra opinión) y me quedo con la palabra "trampa", que, siendo parecido, no me suena igual. :)

David,

:rolleyes:

En mi humilde opinión creo que es un gran aporte :) ^\||/

Saludos,

Nelson.

A esto le llamamos cantinflear :p :D

Pero digo lo anterior de forma amistosa. La verdad es que para mi, trampa y chapuza son lo mismo pero tu componente no es ni lo uno ni lo otro, pues además, no siendo lo uno tampoco podría ser lo otro puesto que lo uno es lo mismo que lo otro.

¡Que muy bueno tu trabajo pues! :)

// Saludos