VFP 愛用者社區

[Ruey]

來源:myf1


Kodak柯達圖檔掃描控件

imaging.scanctrl掃描後的圖形可以傳到imaging.editctrl控制項中，然後可以在imaging.editctrl中對圖形進行編輯(旋轉、拷貝、格式轉換--當然可以轉換為jpg格式了，用它的saveas方法、保存等），保存為檔後就可以保存到資料庫中了。如果是網路系統，只保存檔的位置，又怎麼調用呢？


VFP中使用TWAIN掃描器的常式。只要你安裝了 IMAGE FOR WINDOWS，系統中就會有KODAK系列控制項。下麵是用KODAK的"Image Scan
Control"ActiveX控制項寫的掃描程式



寫在COMMANDBUTTON的CLICK中即可運行。
oImgscan=Thisform.olecontrol1 &&上述控制項
if !oImgscan.ScannerAvailable()
messagebox("未安裝TWAIN驅動程式！")
else
oImgscan.ShowSelectScanner &&選擇掃描器對話方塊 按確定返回值=0
oImgscan.ShowScanPreferences &&選擇掃描選項對話方塊 按確定返回值=0
oImgscan.ScanTo=2 && 0顯示 1顯示並寫入檔 2寫入檔 3寫到暫存檔案並顯示 4寫入暫存檔案 5傳真
oImgscan.Image="d:\img"
* oImgscan.FileType= &&0(缺省)TIFF;1 AWD(Win98);2 BMP
oImgscan.StartScan
if oImgscan.StatusCode=0 &&正常結束
messagebox("掃描正常結束！")
else
messagebox("掃描未正常結束！")
endif
endif


.pageOption
0--創建新檔和添加頁面
1--
2--
3--
4--
5--
6--改寫所有頁面

[keung]

請問那裡可以找到 IMAGE for windows ? 其他 scanner 是否適用於這設定 ? 謝謝!

[ming]

Image for windows 是windows98, me 內帶的控制項
Windows XP 已取消.

[eshow007]

Kodak柯達圖檔掃描控件 啟動scanner後掃描出的bmp檔,為何無法顯示於oleoboundcontrol內,且連ACDSEE也看不到


with thisform.pf.page1

filename = alltrim(.usertextbox1.value)- alltrim(.usertextbox7.value)- strtran(str(val(.usertextbox3.value),2)," ","0")


oImgscan=Thisform.olecontrol1 &&上述控制項
if !oImgscan.ScannerAvailable()
messagebox("未安裝TWAIN驅動程式！")
else
oImgscan.ShowSelectScanner &&選擇掃描器對話方塊 按確定返回值=0
*oImgscan.ShowScanPreferences &&選擇掃描選項對話方塊 按確定返回值=0
oImgscan.ScanTo=1 && 0顯示 1顯示並寫入檔 2寫入檔 3寫到暫存檔案並顯示 4寫入暫存檔案 5傳真
oImgscan.Image="&abc.\x_ray\&filename."
oImgscan.FileType= 3&&1(缺省)TIFF;2 AWD(Win98);3 BMP
oImgscan.pageOption = 1 && 0--創建新檔和添加頁面 1-- 2-- 3-- 4-- 5-- 6--改寫所有頁面
oImgscan.StartScan

if oImgscan.StatusCode=0 &&正常結束
select x_ray
append general pic from &abc.\x_ray\&filename..bmp
messagebox("掃描正常結束！")
else
messagebox("掃描未正常結束！")
endif

endif
endwith

[小柯]

例如:如何另存指定類型的檔案(如*.jpg)、設定壓縮比、解析度(如200dpi)、掃瞄類型(設定:全彩、灰階、黑白)......等,謝謝