二进制赋值问题。在线……

[qqf]

long i,j
blob LB_SCAN
i=ole_scan.object.showselectscanner
//ole_scan.object.ShowScanNew(true)
//ole_scan.object.ShowScanPage(true)
ole_scan.object.ShowScanPreferences
j=ole_scan.object.openscanner
if j=0 then
i=ole_scan.object.startscan
ole_scan.object.destimagecontrol="ole_edit"
ole_edit.object.imagecontrol="ole_scan"
ole_scan.object.closescanner
end if

LB_SCAN=ole_scan.ObjectData
//这句出错，系统提示“Incompatible property objectdata for type ole_scan”
//p_1.setpicture(ole_scan.ObjectData)


帮帮忙，好心的大哥哥大姐姐，可怜可怜我吧……
我的幸福看你们的努力了。

[qqf]

没有人呀，如何读取扫描仪的图片呀，救命呀……

[JIANXIN_LU]

写成这样：ole_scan.Object.ObjectData

[juwuyi]

//我没试过的
integer li_rtn

li_rtn =ole_scan.GetData( ClipFormatBitmap!, LB_SCAN)
IF li_rtn <> 1 THEN RETURN

[tchatcha]

integer li_rtn

li_rtn =ole_scan.GetData( ClipFormatBitmap!, LB_SCAN)
IF li_rtn <> 1 THEN RETURN