【HSP3】OCRをしてみたー

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

hinekure_inovia
2012/2/14 1:15

タグ：
タグはありません

#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

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