herchart2.asp

Asp网页绘制图形控件 适用语言 Delphi & Kylix PHP/ASP/PERL

<%
   Response.ContentType="image/bmp"
   '创建图表对象
   Set DelphiASPObj = Server.CreateObject("AspChart.WebChart")
   '设置生成图表的宽度和高度
   DelphiASPObj.Width=310
   DelphiASPObj.Height=200
  '是否显示坐标轴 True:显示 False:不显示
   DelphiASPOBJ.AxisVisible =True
   '是否显示图例
   DelphiASPOBJ.LengedVisible=False
   '图表外观是否以3D形式显示
   DelphiASPOBJ.View3D =True
   '图表的横坐标是显示的数字还是显示的文字
   '当为1时显示为文字，在增加数据时如下面AddXY的调用格式
   DelphiASPOBJ.XAxisType=1
   '图表的类型:0：直线 1：柱状图2：饼状图 3:水平柱状图 4:区域填充图 5:点形图
   DelphiASPOBJ.ChartType=3
   '图表的纵坐标文字
   DelphiASPOBj.LeftAxisText="(单位:吨)"
   '图表的横坐标文字
   DelphiASPOBJ.BottomAxisText="生产月份"
   '图表的标题
   DelphiASPOBJ.ChartTitle="生产统计图"

   '以下AddXY方法为向图表显示的数据。
   '注意：当XAxisType值为1 时，本方法的第一个参数是数字，第二个是文字
   '当XAxisType值为0 时  ，本方法的第一个，第二个参数都为数字
   DelphiASPObj.AddXY 0,"一月"
   DelphiASPObj.AddXY 80,"二月"
   DelphiASPObj.AddXY 160,"三月"
   DelphiASPObj.AddXY 240,"四月"
   DelphiASPObj.AddXY 310,"五月"

   '获取返回的图形
   ret=  DelphiASPObj.GetChart
   '向客户端绘图
   Response.BinaryWrite ret
   
   Response.End
%>