Вытащить текст из изображения .TIFF.

[ivt22]

Подскажите плз. Не знаю в какой теме писать, напишу здесь.
Есть программа Microsoft Document Imaging ей нужно отправлять изображение .TIFF она его распознает и сохраняет в этом же файле. Как из этого файла допустим средствами Delphi вытянуть текст? Вот что нарыл:

Файлы в формате Tagged Image File Format (TIFF)

TIFF — широко распространенный формат различных графических приложений, включая те, которые используются в сканерах и факсах.TIFF-формат применяется в Microsoft Office Document Imaging , здесь широко используются возможности данного формата включать текст, распознанный программой оптического распознавания текста. При сканировании новых документов они сохраняются в TIFF-формате (с расширением .tif), и любой текст, для которого применялось распознавание текста, сохраняется в TIFF-файле вместе с изображением.

Можно открывать и редактировать TIFF-файлы, созданные в MIcrosoft Office Document Imaging, во многих других графических приложениях. При этом, однако, утрачивается весь содержавшийся в файле текст, для которого применялась программа распознавания текста. Необходимо снова выполнить распознавание текста, если требуется получить доступ к тесту в TIFF-файле с применением Microsoft Office Document Imaging.

Технические детали
В Microsoft Office Document Imaging создаются файлы в следующих форматах:
Монохромный. Один бит на пиксель, сжатие G4
Оттенки серого. 8 бит на пиксель, сжатие JPEG
Цвет. 24 бита RGB, сжатие JPEG
Microsoft Office Document Imaging поддерживает:
Все типы сжатия, перечисленные в списке стандартов спецификации TIFF 6.0.
Различные типы сжатия для каждой страницы многостраничного документа.
Изображения в формате TIFF с 1-разрядной, 4-разрядной, 8-разрядной или 24-разрядной палитрой (в цветах палитры или не входящих в палитру).
Цветовые форматы RGB и CMYK.
Мозаичные изображения.
Microsoft Office Document Imaging не поддерживает:
Цветовой формат YCbCr, за исключением изображений в формате JPEG.
Цветовой формат CIE Lab.
Изображения более чем с пятью компонентами на точку или с размерами компонента более 32 разрядов.
Изображения в формате Planar.

[raxp]

дублировать-то зачем?
этой темы мало http://programmersforum.ru/showthrea...74#post1284074 ?

[ivt22]

Сообщение от raxp

дублировать-то зачем?
этой темы мало http://programmersforum.ru/showthrea...74#post1284074 ?

не я не дублирую, я нашёл куда сохраняется текст, в TIFF файл он сохраняется, а как его оттуда вытащить не знаю

[raxp]

Вы дублируете.

в TIFF файл он сохраняется, а как его оттуда вытащить не знаю

если он туда сохраняется, почему его размер не меняется?

[ivt22]

Сообщение от raxp

Вы дублируете.

если он туда сохраняется, почему его размер не меняется?

Я задал вопрос на форуме Microsoft, больше я ничего узнать не могу.. Вот что мне ответили я же выше цитату привел.

При сканировании новых документов они сохраняются в TIFF-формате (с расширением .tif), и любой текст, для которого применялось распознавание текста, сохраняется в TIFF-файле вместе с изображением.

[Stilet]

любой текст, для которого применялось распознавание текста, сохраняется в TIFF-файле вместе с изображением.

Что за ерунда? С чего это он там будет сохраняться? Это же не PDF.
Кстати зачем использовать Microsoft Document Imaging? Есть зе распознавалки получше.

[ivt22]

вот кое-что нашёл на этом форуме. Только это все в VBA я вообще с ним не знаком, хотелось бы что-то подобное на делфи научиться делать

Столкнулся с проблемой. Есть ПО которое генерирует кучу графических файлов в формате .tif содержащих латиницу и цифры.
Как правило в файле одна строка, полученная с автоматического сканера - (артикул товара).
Требуется загрузить данные в таблицу Excel 2003.
Пробовал Finereader - получается но хочется полной автоматизации процесса. Возможно ли это ?

Да. Вполне возможно. Начиная с 2003 офиса появилось такое средство как MODI (Microsoft Office Document Imaging).
http://msdn.microsoft.com/en-us/libr...ice.11%29.aspx
Вот пример использования:
Код:

Public Sub Test_MODI_OCR_Text_From_TIF()
Dim oMODI As Object
Set oMODI = CreateObject("MODI.Document")
With oMODI
.Create (ThisWorkbook.Path & "\test.tif")
.OCR (9) 'Английский язык
MsgBox .Images.Item(0).Layout.Text
.Close
End With
Set oMODI = Nothing
End Sub

[evg_m]

для этого есть OLEVariant

var
  modi: olevariant;
 fname: TFileName;

fname:=.....;
modi:=CreateOLEObject('MODI.Document'); // получить доступ к MODI
// и далее по идее "пишем" функции MODI
modi.Create(fname); 
modi.OCR(9); // сдается мне что это не хранение а распознавание налету.
showmessage(modi.images.item(0).layout.text);
modi.close;
modi:=nil; // MODI нам  более не нужен

[ivt22]

спасибо большое, мне кажется мы уже близко, но только выскакивает окошко Класс не зарегистрирован(

[Аватар]

MODI инсталлировать нужно