熱點推薦:
您现在的位置: 電腦知識網 >> 編程 >> PB編程 >> 正文

Powerbuilder中Kodak圖像掃描控件應用技巧[2]

2013-11-23 17:26:40  來源: PB編程 

    解決方法及實例

  基於上述原因我們可以在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
    推薦文章
    Copyright © 2005-2013 電腦知識網 Computer Knowledge   All rights reserved.