|
Usuários |
|
44 Usuários Online
|
|
[Dicas]
OCR com Delphi |
Publicado por jumper : Quinta, Novembro 13, 2008 - 11:03 GMT-3 (2244 leituras)
 7 Comentários  Enviar para um amigo  Versão para impressão
|
Este artigo mostra como implementar OCR no Delphi, utilizando a tecnologia que vem com o Office, que neste caso é a versão 2007, mas pode-se encontrá-la também no Office XP.
Primeiro, certifique-se de ter o ocr(activex) instalado no seu
computador. Caso não tenha, procure-o no cd de instalação
do Office, em "Ferramentas do Office",
"Microsoft Office Document Imaging", "Digitalização,
OCR e Filtro de Serviço de Indexação".
A função abaixo mostra como usar esta tecnologia:
function JP_OCR(ARQUIVO: STRING): STRING;
var
midoc,miword: OleVariant;
s: string;
i: integer;
begin
midoc := CreateOleObject('MODI.Document');
midoc.create(ARQUIVO);
midoc.images[0].ocr(22,0,0);
s := '';
for i := 0 to midoc.images[0].layout.words.count-1 do
begin
miword := midoc.images[0].layout.words[i];
s := s+' '+miword.text;
end;
result := s;
end;
Para usar a função, basta chamá-la passando o arquivo
de imagem como parâmetro,
que ela retornará o texto lido na imagem, ex:
ShowMessage( JP_OCR('C:\texto.tif') );
Abraços!
Por: João Paulo (jumper)
Contato: joaopaulo_jpo@hotmail.com
|
|
 Comentários | |
| | Comentários pertencem aos seus respectivos autores. Não somos responsáveis pelo seus conteúdos. |
por: marcosdegodoy (marcosdegodoy@hotmail.com)
: Nov 15, 2008 - 04:03
(Informações sobre o membro | Enviar uma mensagem)
|
João Paulo saudações!
Foi coincidência eu ter encontrado esse fórum, eu estava procurando um código parecido com esse, mas eu precisaria que ao invés que o arquivo fosse gerado para outro arquivo, lesse de uma parte da tela e enviasse para o teclado em tempo real como se alguém estivesse digitando. Será que isso é possível em delphi? achei uma unit tocrd e outro programinha subrip, mas não entendi bem.
|
por: lipe18 (lipe18@gmail.com)
: Fev 18, 2009 - 06:13
(Informações sobre o membro | Enviar uma mensagem)
|
Olá , testei o programa porem recebi o seguinte erro:
"Project teste.exe raised class EOleException with message 'Classe nao registrada'. Process stopped. Use Step or Run to continue. ".
O microsoft office document imaging... está correto pois até testei ele e achei muito bom. Porem queria usar essa rotina de, desde já agradeço.
|
por: Vini. (vinicius_gro@hotmail.com)
: Jan 27, 2010 - 04:57
(Informações sobre o membro | Enviar uma mensagem)
|
|
bah cara preciso de uma ajuda tua estou com um problema não consigo adicionar o componente activeX no delphi e quando tento compilar sem ele da um erro de classe não registrada ...
|
|
|
Edição 112 |
|
|
50 Programas Fontes |
|
|
Produtos |
|
|
