谁有PB连接扫描仪的例子，给我发一分，先谢谢了

[lyq_lawrance]

在pb中如何利用扫描仪，把扫描的图片在PB的程序上显示，可以对图片进行局部减切，并把减切的图片存储在数据库中。

谁有这样的或相关的例子，请给我发一份。
[e-mail]
[e-mail]

[lyq_lawrance]

请高人指教

[青锋-SS]

加分了,还不见高人出现.

[lyq_lawrance]

顶上去~~~~~

[youqiong]

使用kodak控件;

1 把kodak控件的文件(可以在网上下载到)考到你的系统里并注册:

注册文件 reg.bat 如下:
regsvr32 imgadmin.ocx
regsvr32 imgedit.ocx
regsvr32 imgscan.ocx
regsvr32 imgthumb.ocx

2 在窗口中插入OLE kodak控件

3 使用例子:

longll_row

ll_row = dw_1.getRow ()
if ll_row < 0 then return

//----------------- 获得扫描文件 -----------------
string ls_wjlj = gs_currDir + '\tempPic\scan.jpg'
longll_rows = 0
boolean lb_scan

lb_scan = OLE_1.object.ScannerAvailable()
if lb_scan then
OLE_1.object.Image = ls_wjlj
ll_rows = OLE_1.object.StartScan()
if ll_rows > 0 then
messagebox("提示", "内存不足导致扫描失败，请调低扫描分辨率!")
return
end if
else
messagebox("提示", "扫描仪尚未准备好，请重新设置!")
return
end if

//----------------- 上传文件 -----------------
int li_filePtr, li_loops, i
longll_fileLen, ll_bytes_read, ll_new_pos
bloblbb_read, lbb_total
longll_id//自动id 号

ll_id = dw_1.getItemNumber (ll_row, "id")

setPointer (hourGlass!)
li_filePtr = fileOpen (ls_wjlj, STREAMMODE!, READ!, Shared!)
if li_filePtr <> 1 then
messageBox ("错误", "打开图形文件失败!", stopSign!)
return
end if

ll_fileLen = fileLength (ls_wjlj)
if ll_fileLen > 32766 then
li_loops = long ((ll_fileLen - 1)/32766) + 1
else
li_loops = 1
end if
for i = 1 to li_loops step 1
ll_bytes_read = fileRead (li_filePtr, lbb_read)
lbb_total = lbb_total + lbb_read
ll_new_pos = ll_new_pos + ll_bytes_read
fileSeek (li_filePtr, ll_new_pos, FROMBEGINNING!)
next
FileClose (li_filePtr)

sqlca.autocommit = true
wf_update_wxdzp (ll_id, lbb_total ) //使用 sqlca
sqlca.autocommit = false
if SQLCA.SQLCode = 0 then
messageBox ("提示", "保存图片成功！")
//wf_showPic (ll_row)
else
messageBox ("数据库错误", "保存图片失败！~r~n~r~n错误代码：" + &
string (sqlca.sqlDbCode) + "~r~n详细信息：" + &
sqlca.sqlERRText, stopSign!)
end if

[zzffhh]

呵呵，需要第三方控件，有点难度的。

[lyq_lawrance]

youqiong(今夜有风)

谢谢你写的有关代码。
现在的问题是，怎么剪切扫描完的图片，再把图片转换成JPG的图片。

高人们继续呀

[lyq_lawrance]

楼上的，谢谢帮顶。咋就没高人帮解决问题呢？分数少了？

[lzuyh]

顶

[AFIC]

顶

[da21]

留个脚印好找！

[mphoebus]

关注!

[fyx8977]

哪里有kodak控件下呀??

[dreamingfish]

也留个味下次好来

[lngtying]

呵呵,真是好題目,真是好難度!
關注中........

[yuanfeng_2008]

继续

[yangjianw2004]

高手还没到??

[yangjianw2004]

哈哈
我来 接分

[dz25]

给你个扫描的程序

[wugao]

UP

[panda3033]

顶