<add assembly="Microsoft.Office.Interop.OWC, Version=10.0.4504.0, Culture=neutral, PublicKeyToken=31bf3856ad364e35"/> |
浪子注明:如果发生不能编译的错误,可能要再次运行注册步骤!我这里这样,大家如果不一样,可以自己试试。
六、OWC编程模式
为了在ASP.NET页面中显示一个OWC图表,我们将创建一个简单的ASP.NET页面,该页面的唯一用途就是显示图表。Web页面的名称是getchart.aspx。要在Web页面中显示出图表,可以用一个标准的HTML <IMG>标记,如下所示:
<img src="getchart.aspx" /> |
getchart.aspx页面在服务器上动态生成OWC图表,然后把图表转换成GIF图形发送给客户端。因此,在客户端看来,getchart.aspx就相当于一个GIF图形。
下面我们分析一下getchart.aspx文件。如果使用ASP.NET的Codebehind机制,getchart.aspx实际上只要数条ASP.NET指令:
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="getchart.aspx.vb" Inherits="getchart"%> <%@ OutputCache Duration="5" VaryByParam="none" %> |
要生成图表的数据称为数据原,Chart Component组件支持的数据源有:实现IDataSource接口的任何数据源;ADO Recordset对象;XML文件;数组或者一定格式的文本字符串。在ASP中,我们可以用ADO Recordset对象;在.NET的ADO.NET中,由于ADO.NET没有实现IDataSource,.NET也没有提供ADO.NET DataSet对象向ADO Recordset对象的直接转换,如果你有一个 DataSet对象,你要么转换成XML文件,要么生成特殊格式的字符串才可以使用。下面就是本例子的结果:
[浪子注明:如果出错,可能是文件夹权限的问题,我的就是,要将虚拟目录的everyone的全部权限加上!]
下面是实现这种功能的VB.NET版本的ASP.NET例子与代码:
OWC.aspx:
<%@ Page Language="vb" AutoEventWireup="false" Codebehind="OWC.aspx.vb" Inherits="aspxWeb.OWC"%> <form id="Form1" method="post" runat="server"> <asp:placeholder id="ChartHolder" runat="server"></asp:placeholder> </form>
OWC.aspx.vb:
Imports System Imports OWC Imports System.Web.UI Public Class OWC Inherits System.Web.UI.Page Protected WithEvents ChartHolder As System.Web.UI.WebControls.PlaceHolder #Region " Web 窗体设计器生成的代码 " '该调用是 Web 窗体设计器所必需的。 <System.Diagnostics.DebuggerStepThrough()> Private Sub InitializeComponent() End Sub Private Sub Page_Init(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Init 'CODEGEN: 此方法调用是 Web 窗体设计器所必需的 '不要使用代码编辑器修改它。 InitializeComponent() End Sub #End Region Private Sub Page_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load '在此处放置初始化页的用户代码 '创建ChartSpace对象来放置图表 Dim objCSpace As ChartSpace = New ChartSpaceClass() '在ChartSpace对象中添加图表,Add方法返回chart对象 Dim objChart As WCChart = objCSpace.Charts.Add(0) '指定图表的类型。类型由OWC.ChartChartTypeEnum枚举值得到 objChart.Type = ChartChartTypeEnum.chChartTypeColumnClustered '指定图表是否需要图例 objChart.HasLegend = True '给定标题 objChart.HasTitle = True objChart.Title.Caption = "1-6说数据分布图" '给定x,y轴的图示说明 objChart.Axes(0).HasTitle = True objChart.Axes(0).Title.Caption = "Y 轴 : 数量" objChart.Axes(1).HasTitle = True objChart.Axes(1).Title.Caption = "X 轴: 月份" '计算数据 '*categories 和 values 可以用tab分割的字符串来表示* Dim strSeriesName As String = "图例 1" Dim strCategory As String = "1" + ControlChars.Tab + "2" + ControlChars.Tab _ + "3" + ControlChars.Tab + "4" + ControlChars.Tab + "5" + ControlChars.Tab _ + "6" + ControlChars.Tab Dim strValue As String = "9" + ControlChars.Tab + "8" + ControlChars.Tab _ + "4" + ControlChars.Tab + "10" + ControlChars.Tab + "12" + ControlChars.Tab _ + "6" + ControlChars.Tab '添加一个series objChart.SeriesCollection.Add(0) '给定series的名字 objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimSeriesNames,_ ChartSpecialDataSourcesEnum.chDataLiteral, strSeriesName) '给定分类 objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimCategories,_ ChartSpecialDataSourcesEnum.chDataLiteral, strCategory) '给定值 objChart.SeriesCollection(0).SetData(ChartDimensionsEnum.chDimValues,_ ChartSpecialDataSourcesEnum.chDataLiteral, strValue) '输出成GIF文件. Dim strAbsolutePath As String = (Server.MapPath(".")) + "\Images\test.gif" objCSpace.ExportPicture(strAbsolutePath, "GIF", 600, 350) '创建GIF文件的相对路径. Dim strRelativePath As String = "Images/test.gif" '把图片添加到placeholder. Dim strImageTag As String = "<IMG SRC='277_files/" + strrelativepath + "'/>" ChartHolder.Controls.Add(New LiteralControl(strImageTag)) End Sub End Class
下面是C#版本的OWC.asp.cs
ublic class owc: System.Web.UI.Page { protected System.Web.UI.WebControls.PlaceHolder ChartHolder; private void Page_Load(object sender, System.EventArgs e) { // 在此处放置用户代码以初始化页面 //创建ChartSpace对象来放置图表 OWC.ChartSpace objCSpace = new OWC.ChartSpaceClass (); //在ChartSpace对象中添加图表,Add方法返回chart对象 OWC.WCChart objChart = objCSpace.Charts.Add (0); //指定图表的类型。类型由OWC.ChartChartTypeEnum枚举值得到 objChart.Type = OWC.ChartChartTypeEnum.chChartTypeColumnClustered; //指定图表是否需要图例 objChart.HasLegend = true; //给定标题 objChart.HasTitle = true; objChart.Title.Caption= "上半年分布图"; //给定x,y轴的图示说明 objChart.Axes[0].HasTitle = true; objChart.Axes[0].Title.Caption = "Y : 数量"; objChart.Axes[1].HasTitle = true; objChart.Axes[1].Title.Caption = "X : 月份"; //计算数据 /*categories 和 values 可以用tab分割的字符串来表示*/ string strSeriesName = "图例 1"; string strCategory = "1" + '\t' + "2" + '\t' + "3" + '\t'+"4" + '\t' + "5" + '\t' + "6" + '\t'; string strValue = "9" + '\t' + "8" + '\t' + "4" + '\t'+"10" + '\t' + "12" + '\t' + "6" + '\t'; //添加一个series objChart.SeriesCollection.Add(0); //给定series的名字 objChart.SeriesCollection[0].SetData (OWC.ChartDimensionsEnum.chDimSeriesNames, + (int)OWC.ChartSpecialDataSourcesEnum.chDataLiteral, strSeriesName); //给定分类 objChart.SeriesCollection[0].SetData (OWC.ChartDimensionsEnum.chDimCategories, + (int)OWC.ChartSpecialDataSourcesEnum.chDataLiteral, strCategory); //给定值 objChart.SeriesCollection[0].SetData (OWC.ChartDimensionsEnum.chDimValues, (int)OWC.ChartSpecialDataSourcesEnum.chDataLiteral, strValue); //输出成GIF文件. string strAbsolutePath = (Server.MapPath(".")) + "\\i\\test.gif"; objCSpace.ExportPicture(strAbsolutePath, "GIF", 600, 350); //创建GIF文件的相对路径. string strRelativePath = "./i/test.gif"; //把图片添加到placeholder. string strImageTag = "<IMG SRC='277_files/" + strrelativepath + "'/>"; ChartHolder.Controls.Add(new LiteralControl(strImageTag)); } #region Web Form Designer generated code override protected void OnInit(EventArgs e) { // // CODEGEN:该调用是 ASP.NET Web 窗体设计器所必需的。 // InitializeComponent(); base.OnInit(e); } /// <summary> /// 设计器支持所需的方法 - 不要使用代码编辑器修改 /// 此方法的内容。 /// </summary> private void InitializeComponent() { this.Load += new System.EventHandler(this.Page_Load); } #endregion }
如果用ADO.NET的DataSet对象,可以生成以TAB分割的字符串:
strValue += (nodes.Item(j).ChildNodes.Item(0).InnerText + '\t');strCategory += (nodes.Item(j).ChildNodes.Item(1).InnerText + '\t');
Microsoft.Office.Interop名称空间指向Office XP PIA,PIA应该事先安装到Web服务器上。编译源代码时要用到Office XP PIA OWC的DLL文件。如果用VS.NET编译,只要加入一个Microsoft.Office.Interop.Owc.dll文件的引用即可(位于解开Office XP PIA文件的目录),如果从命令行编译,必须按照下列方式使用/r:参数:
vbc /t:library /out:bin\getchart.dll /r:System.dll /r:System.Web.dll /r:System.Data.dll /r:C:\oxppia\Microsoft.Office.Interop.Owc.dll getchart.aspx.vb |