怎么能在delphi中打开excel,在其中画图后保存在数据库中。还可以在程序中读出该图(100分)

  • 主题发起人 主题发起人 godyang
  • 开始时间 开始时间
G

godyang

Unregistered / Unconfirmed
GUEST, unregistred user!
怎么能在delphi中打开excel,在其中画图后保存在数据库中。还可以在程序中读出该图
我想做的是这个事情,不知道该怎么做。
 
excel画图?
 
亏拉,亏拉。
不知道问了下问题就给扣了100分
第一次有代价啊
 
在excel里面画个图,
保存在数据库中
然后在delphi中image 将它读出来
 
从delphi中copy你保存图片的cell或者rang,然后在你的程序里面加上
uses
clipbrd;

img1.Picture.Assign(Clipboard);
剩下的你应该会了吧
 
不是很明白。
我还是头一次想这样用
clipbrd;
是做什么用
 
Clipbrd是剪贴板
 
不是简单的一个图片,那样我就直接用数据库保存了。
是用excel中的自定义图形那些直线和几个说明性的文字构成的一个图表
因为没有做过相关的东西,请详细说下。
 
给你一段代码,自己看吧.(我提的问题连看的人都没有,今天实在没兴趣呆下去了):
var
Excel: Variant;
oxlApp: Variant;
ExcelFileName: string;
begin
//提示等待ShowProgress
Screen.Cursor := crHourGlass;
try
ExcelFileName := 'c:/book1.xls';
Screen.Cursor := crHourGlass;

//创建Excel,并打开对应的Excel模板文件.注意这里只是创建,并不显示出来,
try
Excel := CreateOleObject('excel.application');
Excel.Workbooks.Open(ExcelFileName);
except {3953, "不能创建Excel对象,请确认是否已经正常安装Excel!"}
raise Exception.Create(LoadStr(3953));
end;
oxlApp := Excel.WorkSheets[1];
oxlApp.Cells.Item[1, 1].Select;
oxlApp.copy;
img1.Picture.Assign(Clipboard);
Excel.Visible := True;
finally
Screen.Cursor := crDefault;
end;

end;
 
I can't understand.
sorry all the same
 
多人接受答案了。
 

Similar threads

后退
顶部