asp组件编写的问题,哪位高手指点?

zwhu 2003-04-28 06:23:30
请教您一个问题,谢谢
  我在做一个在能在web页上的生成饼图、柱图等图表的东东,想到了使用delphi来写一个组件,我是这样做的:
创建activex library,工程名为:chart
创建active server object,取名为:showchart
为这个组件创建一个createchart的方法,delphi自动生成unit1.pas
然后我新建一个form,取名为chartset
在新建的chartset上我放了一个tchart控件,并让它生成一个饼图
接下来,我在unit1.的createchart中写如下代码:
var
jpg:tjpegimage;
bmp:tbitmap;
begin
form2.Chart1.Width:=500;
form2.Chart1.Height:=350;
form2.chart1.Series[0].Add(100,'呵呵');
form2.chart1.Series[0].Add(100,'呵呵');
form2.chart1.Series[0].Add(100,'呵呵');
form2.chart1.Series[0].Add(100,'呵呵');
form2.Chart1.SaveToBitmapFile('e:\heartsong.bmp');
bmp:=tbitmap.Create;
bmp.LoadFromFile('e:\heartsong.bmp');
jpg:=tjpegimage.create;
jpg.Assign(bmp);
jpg.CompressionQuality:=90;
jpg.Compress;
jpg.SaveToFile('e:\heartsong.jpg');
jpg.Free;
response.Write('呵呵');
编译注册dll,asp调用组件却不能生成我所需要的jpg图片,能否帮小弟我一个忙啊!谢谢
...全文
26 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

1,593

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 网络通信/分布式开发
社区管理员
  • 网络通信/分布式开发社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧