在窗口放一个kodak控件,然后调用代码如下:(我写的代码,你参考一下吧)
boolean lb_scan
lb_scan = OLE_1.object.ScannerAvailable()
if lb_scan then
OLE_1.object.Image = ls_wjlj
ll_rows = OLE_1.object.StartScan()
if ll_rows > 0 then
messagebox("提示", "内存不足导致扫描失败,请调低扫描分辨率!")
end if
else
messagebox("提示", "扫描仪尚未准备好,请重新设置!")
end if