MODI OCR控制操作小程式

quasiceo 2013-11-03

展开全文

MODI OCR控制操作小程式發表人內容timhuang 發表於 2004/08/20 00:19:14

解決 http://delphi./topic.asp?TOPIC_ID=53772 問題,
如何控制 Microsoft Office Document Imaging 做光學辨識?

主要是利用了 ole automation 來進行操作, 相關資料可以參考,

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Mspauto/html/dimthOCR.asp
http:///t952144.html

重要程式片段如下,


procedure TForm1.Button2Click(Sender: TObject);
var
  doc, layout: Variant;
  i: integer;
  str: string;
begin
  if OpenDialog1.FileName = '' then
  begin
    ShowMessage('please select a tiff image file first!');
    exit;
  end;
  doc := CreateOleObject('MODI.Document');
  doc.Create(OpenDialog1.FileName);
  // miLANG_CHINESE_TRADITIONAL = 1028
  // miLANG_CHINESE_SIMPLIFIED = 2052
  // miLANG_SYSDEFAULT = 2048
  Screen.Cursor := crHourGlass;
  doc.OCR(1028);
  Screen.Cursor := crDefault;
  for i:=0 to doc.Images.Count - 1 do
  begin
    str := str + doc.Images.Item[i].Layout.Text;
  end;
  Memo1.Lines.Text := str;

  ShowMessage('Finished!');

  doc.Close;
  doc := UnAssigned;

end;

附上一份 tiff 的圖檔方便大家進行測試!

執行結果如下,

限制及可改進處,
1. 由於 MODI 僅支援 tiff 及 mdi 圖檔型態, 若要辨識其他圖檔, 還請自行處理轉檔部分
2. 最好是給定對於要辨識的語系, 以免容易造成辨識失敗
3. 當然是要有安裝 Microsoft Office Document Imaging 這套軟體才能執行囉!!

<="" a="">timhuang 發表於 2004/08/20 : 00:30:46

附上另一篇相關的文章,
http://msdn.microsoft.com/library/default.asp?url=/library/en-us/Mspauto/html/diobjLayout.asp

<="" a="">receadv 發表於 2004/09/08 : 09:58:16

不好意思!
請問一下,我在使用的時候會出現類別為登錄的錯誤,
這個問題要如何解決呢?

還有另外一點,最近對於ole automation這部分有興趣,
不知道有沒有關於這方面的書籍可以推薦呢?

謝謝!

<="" a="">receadv 發表於 2004/09/08 : 09:58:38

不好意思!
請問一下,我在使用的時候會出現類別為登錄的錯誤,
這個問題要如何解決呢?

還有另外一點,最近對於ole automation這部分有興趣,
不知道有沒有關於這方面的書籍可以推薦呢?

謝謝! <="" a="">timhuang 發表於 2004/09/08 : 12:07:15

站上有相當多有關 ole automation 的文章, 你可以先試著讀一下, 先有概念後, 再下手!
關於會有類別登錄錯誤的問題, 弟也有發生, 但第二次執行時就 ok 了, 不知和 interface 有沒有關係. 若要解決這個問題, 你可以利用 import type library 的方式產生 MODI_TLB 這個 pas 檔, 再引入程式後即可!