Teechart图表应用技术详解—第八章之Teechart应用的ASP脚本-控件新闻-慧都网

Teechart图表应用技术详解—第八章之Teechart应用的ASP脚本

转帖|使用教程|编辑：况鱼杰|2020-02-25 14:52:38.540|阅读 305 次

概述：本教程转自屈景辉的Teechart应用技术详解——快速图表制作工具一书。接下来将会介绍第八章——TeeChart控件的网络应用。本文将会介绍第二节：Teechart应用的ASP脚本

相关链接：

Steema公司和慧都科技针对中国市场联合推出中文版TeeChart for .NET图表控件，一共汉化2000个词条（17000个单词），汉化文档35000个单词，包括控件设计时与运行时的界面汉化以及控件使用向导文档的汉化，总汉化90%以上！

TeeChart for .NET中文版让您在使用和学习上没有任何语言障碍，至少可以节省30%的开发时间。TeeChart for .NET中文版具有易上手，使用方便，稳定性好，性价比高，价格优惠等优势，并且针对Web应用提供无限制服务器分发授权方式，非常有利于产品集成。

点击下载TeeChart for .NET最新试用版

ASP是编写基于网络应用程序的一种脚本语言，可以在任何一种文本编辑器中书写，下面简述使用ASP编写TeeChart应用的基本步骤。

创建图表TChart对象，利用CreateObject创建图表对象。

Set TChart1=CreateObject{"TeeChart.TChart"}

属性设定。对TChart的属性进行设置，以产生满足需要的统计图形。

TChart1.Header.Text(0)="出行发行量统计图“
TChart1.AddSeries（1)
TChart1.Aspect.View3D=0
TChart1.Series(0).Clear
TChart1.Series(0).Add 2500,"电子类",RGB(255,128,128)
TChart1.Series(0).Add 3900,"计算机类”,RGB(255,128,128)
TChart1.Series(0).Add 2700,“医学类”,RGB(255,128,128)
TChart1.Series(0).Add 3500,“电工类”,RGB(255,128,128)
TChart1.Series(0).Add 3200,“职教类”,RGB(255,128,128)
TChart1.Series(0).ColorEachPoint=True

生成统计图像文件，利用TeeChart的导出特性Export可以把生成的图表保存为一个JPEG格式的图形文件，调用格式如下：

TChart.Export.SaveToJPEGFile（FileName,Gray,Performance,Quality,Width,Height）

其中：

FileName：JPEG文件存放的绝对路径和立件名面不是Is中的相对路径。
Gray：是否保存为黑白图像。
Performance：生成的PEG文件是质量优先还是速度优先。
Quality：是一个0到100的整数,100时PEG质量最好但文件最大；Quality越小则生成文件越小且图像质量也随之下降。

所以，生成统计图像文件的话句应为：

TChart1.Export.SaveToJPEGEile server.mappath{"MyChart"}jpg"),False,
JPEGBestQuality,100,TChart1.Width,TChart1.Height

这样，生成的统计图形就以JPEG格式存于文件 MyChart.JPG中了。

释放对象。当生成统计图形文件后，就可以将初始状态创建的 TChart对象删除，以节省系统资源。

Set TChart1=nothing

显示统计图形。统计图形文件生成后，用下列语句显示该图形文件。

img src="MyChart .jpg"

根据以上步骤，生成文本文件asp.asp如下；

<%'一-------asp.asp------------------------ set TChart1=CreateObject ("TeeChart, TChart") TChart1.Header，Text(0)="出版发行量统计图 TChart1.AddSeries(1) TChart1.Aspect.View3D= true TChart1.Series(0).Clear TChart1.Series(0).Add 2500,"电子类”，RGB(255,0,0) TChart1.Series(0).Add 3900,"计算机类"，RGB(255,255,0) TChart1.Series(0).Add 2700,“医学类”，RGB(255,0,255) TChart1.Series(0).Add 3500,"电工类"，RGB(255,128,0) TChart1.Series(0).Add 3200,"职教类”，RGB(255,0,128) TChart1.Series(0).Marks.Visible= true TChart1Sseries(0). Marks.Style=0 TChart1.Legend.Visible= false TChart1.Export.SaveToJPEGFile server mappath("MyChart. jpg"), False, JPEGBestQuality, 100, TChart1. Width, TChart1.Height %>