VFP 愛用者社區

[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