如何在pb中控制扫描仪

[mysdragon]

请问各位高手：
如何在pb中控制扫描仪，并将扫描的文件以我给定的名称和位置存放

[szwwhui]

不错，用柯达的OLE控件，来控制扫描仪工作的，注意，WINｘｐ中就没法用了。

[mysdragon]

谢谢两位！
同时想再请教一下：
pufan ：你用的是什么控件？在哪里下载？
szwwwhui：柯达的OLE控件在哪里下载？

[pufan]

系统自带.

[pufan]

long ll_i,ll_rt
string ls_imgpath

ls_imgpath = "d:\temp\img"//扫描图像存放路径
ole_scan.object.scroll=true//是否选中滚动
ole_scan.object.showsetupbeforescan=false//是否在扫描前显示扫描以设置界面

ll_i=ole_1.object.openscanner()//打开扫描仪，成功返回0
if ll_i=0 then
ole_1.object.filetype=1//扫描图像的类型: tif,bmp,jpg.....
ole_1.object.image=ls_imgpath//扫描图像存放路径
ole_1.object.MultiPage=false//首否多页
ole_1.object.pageoption=6//页选项，6就是改写所有页面（改写文件）
ole_1.object.scanto=4//扫描到，4就是只使用文件模版
do
ole_1.object.startscan()//开始扫描
ll_rt=messagebox("请确认！！","扫描仪没有纸了，是否继续扫描？",INFORMATION!,YESNO!,1)
loop until ll_rt=2

ole_scan.object.closescanner()//关闭扫描仪

else
messagebox("错误！","扫描仪打开错误，请检查扫描仪！")
end if

[pufan]

ole_scan.object.saveas(gs_current_dir+"pic\temp.jpg",6,7,1,0,true)//save函数