**********==程式1
option
explicit''
利用微軟ocr控制項, 只需要不到10行**就能夠實現自已的ocr文字識別軟體.
'1. 新增控制項,需要安裝office2003, 沒有安裝office2003的可以從別人機子上拷貝相關檔案,註冊regsvr32.exe mdivwctl.dll,
'控制項一般在這個目錄下:c:\program files\common files\microsoft shared\modi.0, 只需要相關的幾個檔案就可以了, 此資料夾全部檔案大概在21m左右.
'2.工程->部件->新增這個控制項:microsoft office document imaging 11.0 type library
'ocr的主要功能
private
function
ocrimagefile(byval strname
asstring)as
boolean
dimmidoc
asobject
'初始化並載入文件
setmidoc
=createobject("
modi.document")
'建立物件&"
\1.bmp" '
載入檔案
screen.mousepointer
=vbhourglass
'設定游標忙
'識別err.clear
midoc.images(
0).ocr
2052
,true
,true
text1.text
=midoc.images(
0).layout.text
ocrimagefile
=true
end function
private
subcommand1_click()
dimbolp
asboolean
bolp=&
"\1.bmp")
end sub
********************= 程式2
option
explicit''
利用微軟ocr控制項, 只需要不到10行**就能夠實現自已的ocr文字識別軟體.
'1. 新增控制項,需要安裝office2003, 沒有安裝office2003的可以從別人機子上拷貝相關檔案,註冊regsvr32.exe mdivwctl.dll,
'控制項一般在這個目錄下:c:\program files\common files\microsoft shared\modi.0, 只需要相關的幾個檔案就可以了, 此資料夾全部檔案大概在21m左右.
'2.工程->部件->新增這個控制項:microsoft office document imaging 11.0 type library
'ocr的主要功能
private
function
ocrimagefile(byval strname
asstring)as
boolean
dimmodidocument
asnew
modi.document
dimmodiimages
asnew
modi.images
dimmodiimage
asnew
modi.image
dimmodilayout
asnew
modi.layout
dimimagecount
asinteger
dimi
asinteger
modidocument.ocr milang_chinese_simplified,
false
,false
setmodiimage
=modidocument.images
fori=0
toimagecount
setmodiimage
=modiimages.item(i)
setmodilayout
=modiimage.layout
text1.text
=modilayout.text
next
i modidocument.close
false
:set
modidocument
=nothing
ifimagecount
>
0then
ocrimagefile
=true
else
ocrimagefile
=false
endif
end function
private
subcommand1_click()
dimbolp
asboolean
bolp=&
"\1.bmp")
end sub
vb呼叫儲存過程
public sub procexe byval procname as string,byval pch as string dim cn as adodb.connection dim cmd as adodb.command cn.connectionstring cn.open set cm...
vb呼叫vc dll檔案
關於dll的建立與呼叫使用vc 的嚮導即可。具體操作如下 開啟選單 file new 選擇 projects win32 dynamic link library 選擇 a dll project 即可。這時系統會自動生成3個檔案 cpp，stdafx.cpp，stdafx.h。之後將入口函式dll...
VB呼叫儲存過程
dim adocomm as new adodb.command dim prmretval as adodb.parameter dim prmid as adodb.parameter adocomm.activeconnection conn adocomm.commandtype adcmd...