如何将graph中的图形保存成bmp格式的文件

[mark_sl]

up

[pufan]

用Clipboard()函数复制到剪贴板,然后复制到blob,filewrite()至*.bmp.

[mark_sl]

能写一下具体的代码吗?谢谢

[balloonman2002]

借助一个OLE控件
blob text1
string ls_path
int li_FileNum
blob temp
int n,i,ret
long start

gr_products_data.Clipboard()
//dw_emp_data.Clipboard("gr_employees")
ole_1.Paste()
text1 = ole_1.objectdata

ls_path="c:\1.bmp"
li_FileNum = FileOpen(ls_path, streammode!,Write!, LockReadWrite!,Replace!)
if Li_filenum<0 then
messagebox("错误","创建相片文件时发生错误")
return
end if
n=len(text1)/32765+1
for i=1 to n
start=(i - 1)*32765+1
temp=blobmid(text1,start,32765)
if isnull(temp) or temp=blob('') then
exit
end if
ret=FileWrite(Li_FileNum, temp)
IF ret <0 THEN
messagebox("错误","写相片文件时发生错误")
fileclose(li_filenum)
return
end if
next
fileclose(li_filenum)

[mark_sl]

这样生成的文件打不开阿，这是为什么？请赐教，谢谢

[Leon1509]

我也遇到了这个问题！
mark_sl(黄土飞扬)，你的问题解决了吗？怎么解决的。

另外，pufan()能给个代码例子吗？