【HSP3】OCRをしてみたー

Microsoft Office Document Imaging 12.0 Type Library 使用。 (MDIVWCTL.DLL) コードは最小限しか書いてません。手抜きともいう。

hinekure_inovia
2012/2/14 1:15

タグ：
タグはありません

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
#define CLSID_MODI "{40942A6C-1520-4132-BDF8-BDC1F71F547B}"
#define IID_IDocument "{D4073843-A58A-469A-A8E2-CFF3FF77EE4E}"
#define IID_ILayout "{C300C846-A3FD-4A5B-AD65-4A6AB46B7821}"
#define IID_IImage "{AC0D48A6-886D-4EB5-A8A1-093D60B9A84A}"
#usecom IDocument IID_IDocument CLSID_MODI
#usecom ILayout IID_ILayout CLSID_MODI
#usecom IImage IID_IImage CLSID_MODI
    screen 1
    picload "ocr.bmp"
    gsel 0, 1
    
    newcom pDoc, IDocument
    pDoc->"Create" "ocr.bmp"
    pDoc->"OCR" 17, 0, 0    // 9 英語、17 日本語
    pImg = pDoc("Images")
    mes "検出: "+pImg("Count")  // 検出した数
    repeat pImg("Count")
        pImg = pDoc("Images", cnt)
        querycom ppImg, pImg, IImage
        pLayout = ppImg("Layout")
        querycom ppLayout, pLayout, ILayout
        mes ppLayout("Text")
    loop
XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX

このコードをツイートする