Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > Общие вопросы Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 15.11.2013, 09:40   #31
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Цитата:
в папку с проектом бросил MDIVWCTL.DLL, MSPGIMME.DLL, зарегистрировал, все равно сообщение "Класс не зарегистрирован", помогите пожалуйста
Cистемные требования и зависимости:
- MDIVWCTL.DLL, MSPGIMME.DLL в каталоге с библиотекой.
- Установленный Microsoft Office Document Imaging из пакета
Microsoft Office SharePoint Designer для регистрации классов MODI
http://www.microsoft.com/ru-ru/downl....aspx?id=21581
(распространяется бесплатно).

Цитата:
Тут где-то в сообщениях
http://programmersforum.ru/showpost....3&postcount=14
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 15.11.2013, 22:07   #32
komp324
 
Регистрация: 24.06.2008
Сообщений: 6
Радость

Цитата:
Воспользовался программой GOCR.
Да читал про нее, но мне показалось много действий, сначала мой tif нужно конвертировать в pnm, затем его распознавать, сохранять. Да и по результатам распознавания отзывы не очень, а Вас устроили результаты?
Скачал консольную программу tesseract ocr + leptonica попробовал распознать текст получилось с хорошим результатом, сейчас думаю из delphi обращаться к командной строке этой программы.
Цитата:
если надо могу скинуть код.
буду признателен )) вдруг мое с tesseract'ом не получится, буду копать тогда в сторону GOCR
Цитата:
Cистемные требования и зависимости:
В инете нарыл, что Microsoft Office Document Imaging с Windows 7 x64 не дружит, а на XP у меня
Цитата:
вроде все проходит, но modi.Images.Count - 1=0
и текста никакого не получаю
вот такая пока картина. Всем спасибо за ответы ) если будет еще какая-то информация, прошу написать
komp324 вне форума Ответить с цитированием
Старый 16.11.2013, 10:03   #33
raxp
Старожил
 
Регистрация: 29.09.2009
Сообщений: 9,713
По умолчанию

Цитата:
Да читал про нее, но мне показалось много действий, сначала мой tif нужно конвертировать в pnm, затем его распознавать, сохранять
вы бы сначала прочитали то, что я приложил. Потому как приложил и батничек и автоутилиту для всех этих действий, вам и делать то ничего не нужно.

Цитата:
а на XP у меня
Цитата: вроде все проходит, но modi.Images.Count - 1=0
и текста никакого не получаю
подсказывать уже не хочу, вы невнимательны.
Разработки и научно-технические публикации :: Видеоблог :: Твиттер
Radar systems engineer & Software developer of industrial automation
raxp вне форума Ответить с цитированием
Старый 18.11.2013, 08:34   #34
ivt22
Пользователь
 
Регистрация: 23.07.2013
Сообщений: 81
По умолчанию

Цитата:
Сообщение от komp324 Посмотреть сообщение
Да читал про нее, но мне показалось много действий, сначала мой tif нужно конвертировать в pnm, затем его распознавать, сохранять. Да и по результатам распознавания отзывы не очень, а Вас устроили результаты?
Скачал консольную программу tesseract ocr + leptonica попробовал распознать текст получилось с хорошим результатом, сейчас думаю из delphi обращаться к командной строке этой программы.

буду признателен )) вдруг мое с tesseract'ом не получится, буду копать тогда в сторону GOCR

В инете нарыл, что Microsoft Office Document Imaging с Windows 7 x64 не дружит, а на XP у меня

вот такая пока картина. Всем спасибо за ответы ) если будет еще какая-то информация, прошу написать

Функция для ожидания завершения работы прграммы

Код:
{* Функция, которая позволяет дождаться завершения
работы консольной программы *}
function ExecAndWait(const FileName,
                     Params: ShortString;
                     const WinState: Word): boolean; export;
var
  StartInfo: TStartupInfo;
  ProcInfo: TProcessInformation;
  CmdLine: ShortString;

begin
  { Помещаем имя файла между кавычками, с соблюдением всех пробелов в именах Win9x }
  CmdLine := '"' + Filename + '" ' + Params;
  FillChar(StartInfo, SizeOf(StartInfo), #0);
  with StartInfo do
  begin
    cb := SizeOf(TStartupInfo);
    dwFlags := STARTF_USESHOWWINDOW;
    wShowWindow := WinState;
  end;
  Result := CreateProcess(nil, PChar( String( CmdLine ) ), nil, nil, false,
                          CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS, nil,
                          PChar(ExtractFilePath(Filename)),StartInfo,ProcInfo);
  { Ожидаем завершения приложения }
  if Result then
  begin
    WaitForSingleObject(ProcInfo.hProcess, INFINITE);
    { Free the Handles }
    CloseHandle(ProcInfo.hProcess);
    CloseHandle(ProcInfo.hThread);
  end;
end;
Отправляем в командную строку. Переводим ПНГ то ПНМ

Код:
ExecAndWait('C:\GOCR\png2pnm\png2pnm.exe',' D:\finaly\data\1.png D:\finaly\data\1.pnm',SW_HIDE);
Дальше распознаем ПНГ файлы
Код:
ExecAndWait('C:\windows\system32\cmd.exe','/c C:\GOCR\gocr.exe -i D:\finaly\data\1.PNM -c >D:\finaly\data\1.txt',SW_HIDE);
ivt22 вне форума Ответить с цитированием
Старый 25.11.2013, 15:15   #35
Кольша
Далеко не
Участник клуба
 
Аватар для Кольша
 
Регистрация: 11.08.2011
Сообщений: 1,512
По умолчанию

raxp, если вам не трудно залейте куда нибудь Описание API вызова библиотеки ModiTextRecognize.DLL или скиньте на почту ovchinnikovnikola@mail.ru
Кольша вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
вытащить текст из тегов lezgin Общие вопросы Delphi 15 20.01.2013 14:02
вытащить текст с веб страницы patch JavaScript, Ajax 4 01.10.2012 12:19
Как вытащить текст из диаграммы? kta87 Microsoft Office Excel 5 28.08.2012 21:44
вытащить текст из ячейки Tirendus Microsoft Office Excel 18 29.01.2012 19:51
вытащить текст internet explorer_server nbutikov Win Api 5 25.02.2010 21:42