如何控制 Microsoft Office Document Imaging 做光學辨識? |
尚未結案
|
雪豆豆
一般會員 發表:19 回覆:22 積分:13 註冊:2002-08-18 發送簡訊給我 |
在 Office 2003 的工具內有包含一套 Microsoft Office Document Imaging
其內建ScanSoft 的 OmniPage 光學辨識引擎. 能夠輕易辨識 英文及繁簡体中文
有沒有人知道怎樣用 delphi 控制 MODI 來進行光學辨識呢?
底下是幾篇 C++ 與 VB 的控制程式 http://www.google.com.tw/search?q=cache:Nw2kNt4Ne3sJ:www.spotlight.de/zforen/msa/m/msa-1078303589-19254.html+MODI.Document&hl=zh-TW http://www.tech-archive.net/Archive/DotNet/microsoft.public.dotnet.framework.interop/2004-06/0089.html
|
timhuang
尊榮會員 發表:78 回覆:1815 積分:1608 註冊:2002-07-15 發送簡訊給我 |
|
雪豆豆
一般會員 發表:19 回覆:22 積分:13 註冊:2002-08-18 發送簡訊給我 |
出現類別未登錄的錯誤喔.. 不過這我之前已經寫好了.. 忘記上來結個案
貼出程式碼給大家參考
可以讀 Jpg 檔. 不一定要 TIF uses .... MODI_TLB <== 加入這個 Type Library procedure TForm1.Button1Click(Sender: TObject);
Var doc :IDocument;
Img :IImage;
Layout :ILayout;
begin
doc := IDispatch(CreateOleObject('MODI.Document')) as IDocument;
doc.create('c:\page0002.jpg');
doc.OCR(miLANG_CHINESE_TRADITIONAL,true,true);
Img := IDispatch(doc.Images[0]) as IImage;
Layout := IDispatch(Img.Layout) as ILayout;
Memo1.Lines.Add(Layout.Text);
doc.Close(false);
Img := nil;
Layout := nil;
end;
|
dky
一般會員 發表:12 回覆:30 積分:13 註冊:2004-06-24 發送簡訊給我 |
|
dky
一般會員 發表:12 回覆:30 積分:13 註冊:2004-06-24 發送簡訊給我 |
|
dky
一般會員 發表:12 回覆:30 積分:13 註冊:2004-06-24 發送簡訊給我 |
|
Ktop_Robot
站務副站長 發表:0 回覆:3511 積分:0 註冊:2007-04-17 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |