Powerbuilder中Kodak图像扫描控件应用技巧[2]

解决方法及实例

基于上述原因我们可以在PB中把图像的文件头修改为PB认识的格式从而让PB能够处理从Kodak图像扫描控件扫描出来的图像文件具体例程如下

long ll_ill_rt

string ls_imgpath

ls_imgpath = GetCurrentDirectory（ ）+ /sfz//扫描图像存放路径

ole_objectscroll=true//是否选中滚动

ole_objectshowsetupbeforescan=true//是否在扫描前显示扫描以设置界面

ll_i=ole_objectopenscanner（）//打开扫描仪成功返回

IF ll_i= THEN

ole_objectfiletype= //扫描图像的类型 tifbmpjpg……

ole_objectimage=ls_imgpath//扫描图像存放路径

ole_objectMultiPage=false//是否多页

ole_objectpageoption=//页选项就是改写所有页面（改写文件）

ole_objectscanto=//扫描到就是只使用文件模版

ole_objectstartscan（）//开始扫描

ole_objectclosescanner（）//关闭扫描仪

integer fhretloopsi

blob bb

string txtnamenamed

txtname= ls_imgpath+bmp

long flen

flen=filelength（txtname）

fh = FileOpen（txtnameStreamMode!）

IF flen > THEN

IF Mod（flen） = THEN

loops = flen/

ELSE

loops = （flen/） +

END IF

ELSE

loops =

END IF

IF fh <> THEN

emp_pic=b

for i= to loops

FileRead（fhb）

Emp_pic=Emp_pic+b

next

FileClose（fh）

b=emp_pic

b=emp_pic

b=blobmid（b）+blob（char（））+blobmid （b）

Emp_pic=b

p_SetPicture（Emp_pic）

END IF

ELSE

messagebox（错误！扫描仪打开错误请检查扫描仪！）

END IF

编辑推荐

ASP NET开发培训视频教程

Microsoft NET框架程序设计视频教程

[] []