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框架程序設計視頻教程

[]  []  

From:http://tw.wingwit.com/Article/program/PB/201311/24590.html