如何将剪贴板中的图形数据窗口存放到文件中
图形数据窗口中的曲线图，通过dw_2.Clipboard("gr_1")，
剪贴到剪贴板中，如果打开word文件，即可粘贴到word文件中编辑。
我想直接将剪贴板中的曲线图内容存放到文件中****.jpg或****.bmp，
该如何编程。
问题点数：50、回复次数：9Top
1 楼mittee（最后一条大白鲨[无限深情凝视花花版]）回复于 2003-11-04 20:22:55 得分 10
把它粘贴到画板里，呵可Top
2 楼dingzhaofeng（Alading）回复于 2003-11-04 21:05:30 得分 10
现将该图片保存到blob中，然后使用文件另存！Top
3 楼lmby（鹿门布衣）回复于 2003-11-04 22:12:11 得分 25
借助一个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)
Top
4 楼pb_yu（pb鱼）回复于 2003-11-05 11:10:10 得分 0
谢谢诸位， 特别感谢 lmby(鹿门布衣)
不过我按 lmby(鹿门布衣) 的方法还不行，不知道ole控件是否用的是画图Top
5 楼qqjj7758（QQJJ）回复于 2003-11-05 11:18:47 得分 5
upTop
6 楼pb_yu（pb鱼）回复于 2003-11-05 15:57:45 得分 0
upTop
7 楼pb_yu（pb鱼）回复于 2003-11-06 11:28:44 得分 0
ole_1.Paste()
text1 = ole_1.objectdata
messagebox*('',string(len(text1)))
显示为0
我不知道ole_1是不是使用的画图的控件
请帮帮我
Top
8 楼pb_yu（pb鱼）回复于 2003-11-06 17:07:49 得分 0
upTop
9 楼lmby（鹿门布衣）回复于 2003-11-06 18:41:10 得分 0
4画图Top
