为什么我在做asp组件时为什么TChart用不成?而使用TImage却可以?
我的方法如下:
var
  MyChart:TChart;MyChart:=TChart.Create;//为什么不是TChart.Create(nil)
MyChart.width:=100;//为什么width属性不存在??而使用TImage就可以?问:怎样才能使用TChart?找到解决办法立即给分!给出原码分数独得!分数不够再加!

解决方案 »

  1.   

    这有一段代码看看,是在ASP里面用的,开发ASP组件,也应该是在生成的ASP代码里面再创建TChart.
    chart组件在ASP中的应用--------------------------------------------------------------------------------
     
    MsChart是微软制作的功能强大的图表工具,用它可以
    很方便的建立各种图表。制作各种3维2维的直方图,折
    线图。在ChinaAsp中已经有好几次有人询问MsChart怎
    么用,在此处我给出一个例子。希望大家了解。
    发送数据程序
    <HTML><HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    </HEAD><BODY>
    <form method=post name="form1" action=mschart.asp>
    <INPUT type="submit" value="发送" id=submit1 name=submit1>
    <!
    chtitle 标题
    rcount 列数 
    ccount 行数 
    rc_type 排列方式(1 以行方式,2以列方式)
    rc_data 数据
    rname 列名数组
    cname 行名数组>
    <input type="hidden" value="CoolFatMan的成长里程" name=chtitle>
    <input type="hidden" value=3 name=rcount>
    <input type="hidden" value=2 name=ccount>
    <input type="hidden" value=1 name=rc_type>
    <input type="hidden" value="1993" name=rname>
    <input type="hidden" value="1996" name=rname>
    <input type="hidden" value="1999" name=rname>
    <input type="hidden" value="身高" name=cname>
    <input type="hidden" value="体重" name=cname>
    <input type="hidden" value=179 name=rc_data>
    <input type="hidden" value=160 name=rc_data>
    <input type="hidden" value=180 name=rc_data>
    <input type="hidden" value=170 name=rc_data>
    <input type="hidden" value=182 name=rc_data>
    <input type="hidden" value=182 name=rc_data>
    </form></BODY></HTML>
    显示数据程序 mschart.asp
    <%@ Language=VBScript %>
    <HTML>
    <HEAD>
    <META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
    <SCRIPT ID=clientEventHandlersJS LANGUAGE=javascript>
    <!--
    function window_onload() {
    t=0;
    mschart1.TitleText = document.form1.chtitle.value;
    mschart1.ShowLegend =true;
    mschart1.ColumnCount =document.form1.ccount.value;
    mschart1.RowCount =document.form1.rcount.value;
    for (i=0;i<document.form1.rcount.value;i++)
    {for (j=0;j<document.form1.ccount.value;j++)
    { mschart1.Row=i+1;
    mschart1.Column=j+1;
    if (document.form1.ccount.value>1)
    mschart1.ColumnLabel =document.form1.cname(j).value;
    else
    mschart1.ColumnLabel =document.form1.cname.value;
    if ((document.form1.rcount.value*document.form1.ccount.value)>1)
    mschart1.Data=document.form1.rc_data(t).value;
    else
    mschart1.Data=document.form1.rc_data.value;
    t++;
    }
    if (document.form1.rcount.value>1)
    mschart1.RowLabel =document.form1.rname(i).value ;
    else
    mschart1.RowLabel =document.form1.rname.value ;
    }
    }function select1_onchange() {
    mschart1.chartType =select1.value 
    mschart1.Plot
    }
    //-->
    </SCRIPT>
    <TITLE>数据显示图</TITLE>
    </HEAD>
    <BODY LANGUAGE=javascript onload="return window_onload()">
    <object 此处插入mschart activex控件>
    <BR>
    显示方式
    <SELECT id=select1 name=select1 LANGUAGE=javascript onchange="return select1_onchange()">
    <OPTION value=1>二维直方图</OPTION>
    <OPTION value=0>三维直方图</OPTION>
    <OPTION value=3>二维折线图</OPTION>
    <OPTION value=2>三维折线图</OPTION>
    <OPTION value=5>二维面积图</OPTION>
    <OPTION value=4>三维面积图</OPTION>
    <OPTION value=14>饼图</OPTION></SELECT>
    <!
    chtitle 标题
    rcount 列数 
    ccount 行数 
    rc_type 排列方式(1 以行方式,2以列方式)
    rc_data 数据
    rname 列名数组
    cname 行名数组>
    <form name=form1 id=form1>
    <% for i=1 to Request.Form("rcount")%>
    <input type="hidden" name=rname id=rname value=<%=Request.Form("rname")(i)%>>
    <%next%>
    <% for i=1 to Request.Form("ccount")%>
    <input type="hidden" name=cname id=cname value=<%=Request.Form("cname")(i)%>>
    <%next%>
    <input type="hidden" name=rcount id=rcount value=<%=Request.Form("rcount")%>>
    <input type="hidden" name=chtitle id=chtitle value=<%=Request.Form("chtitle")%>>
    <input type="hidden" name=ccount id=ccount value=<%=Request.Form("ccount")%>>
    <%if Request.Form("rc_type")=1 then%>
    <%for i=1 to Request.Form("rcount")*Request.Form("ccount")%>
    <input type="hidden" name=rc_data id=rc_data value=<%=Request.Form("rc_data")(i)%>>
    <%next%>
    <%else%>
    <%for j=1 to Request.Form("rcount")%>
    <%for i=1 to Request.Form("ccount")%>
    <input type="hidden" name=rc_data id=rc_data value=<%=Request.Form("rc_data")((i-1)*Request.Form("rcount")+j)%>>
    <%next%>
    <%next%>
    <%end if%>
    </form></BODY></HTML>
      

  2.   

    可是我不需要msChart,Chartfx,OWC等,我想把delphi中的TChart做成asp的Chart组件,明白??各位高手快来帮忙?我好像在delphibbs上又个叫蚊子的好像实现了,那就说一定可以,希望蚊子也来帮帮我?或者将你的组件发个给我,谢谢!本人有千余分,如能解决该问题,本人愿将这千余分一起送上,决不食言!给出原码分数独得!分数不够再加!
      

  3.   

    我可以完美解决!
    你不知道有LY ASPCOM的吗??
    http://www.csdn.net/cnshare/soft/12/12835.shtm
      

  4.   

    可是我想把delphi中的TChart做成asp的Chart组件,明白??本人愿将这千余分一起送上,决不食言!给出原码分数独得!分数不够再加!现在问怎么才能在asp组件中正常(像应用程序中一样)使用TChart组件?
      

  5.   

    http://www.csdn.net/cnshare/soft/12/12835.shtm