關於teechart顯示圖形的問題????(用過的來看看)

ghostzhao 2004-02-01 05:37:43

我在用teechart 做圖形顯示的時候,顯示都是亂碼
代碼如下:
<% Dim ChartType, OutputStream, ViewType
Set Chart1 = server.CreateObject("TeeChart.TChart")
Chart1.AddSeries(0)
Chart1.Series(0).FillSampleValues 20 OutputStream=Chart1.Export.asPNG.SaveToStream
Set Chart1=Nothing
Response.Binarywrite OutputStream
%>
請問我在做怎麼樣的設定,我就可以正常顯示了
謝謝

...全文

141 4 打赏收藏转发到动态举报

写回复

用AI写文章

4 条回复

切换为时间正序

请发表友善的回复…

发表回复

zcwmxn 2004-09-15

打赏
举报

看这里
http://dev.csdn.net/develop/article/22/22889.shtm

ghostzhao 2004-02-02

打赏
举报

樓上的注意了
我現在不想保存圖片,所以我就存成savetostream,然後我用response.binarywrite 來顯示,但是這樣顯示的是亂碼,我想知道為什麼,因該怎麼樣改,謝謝

TrueAndFalse 2004-02-01

打赏
举报

帮你UP一下

dacsd 2004-02-01

打赏
举报

试试这个
<HTML>
<HEAD><TITLE>TeeChart JPEG Chart Demo Page</TITLE></HEAD>
<BODY>
<!－－引入TeeChart常数－－>
<!－－METADATA NAME="TeeChart Pro 6.0
ActiveX Control" TYPE="TypeLib"
UUID="{008BBE7B－C096－11D0－B4E3－00A0C901D681}"－－>
<%
'<!－－建立ActiveX Object －－>
Set TChart1 = CreateObject("TeeChart.TChart")
'<!－－设置高度和宽度－－>
TChart1.Height=350
TChart1.Width=600
'<!－－设置图表题头－－>
TChart1.AddSeries(1)

TChart1.Series(0).marks.style =3 '提示类型

TChart1.Aspect.View3D=0
TChart1.Header.Text.Clear
'TChart1.Header.Text.Add "CXJ_K180次旅客列车日发送人数统计图No:2"
TChart1.Header.Text.Add "CXJ_K180次旅客列车日发送人数统计图No:2"

TChart1.Panel.Gradient.Visible=True
TChart1.Panel.Gradient.StartColor=RGB(200,255,200)
TChart1.Panel.Gradient.EndColor=RGB(255,255,255)
'<!－－添加一个序列－－>
TChart1.AddSeries(scBar)
TChart1.Series(0).Clear
TChart1.Series(0).ColorEachPoint = True

TChart1.Series(0).Add 580, "02/10",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(0).Add 240, "02/11",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(0).Add 210, "02/12",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(0).Add 280, "02/13",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(0).Add 218, "02/14",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(0).Add 225, "02/15",rgb(rnd*255,rnd*255,rnd*255)

TChart1.AddSeries(scbar)
'TChart1.Series(0).Clear
'TChart1.Series(1).ColorEachPoint = True

TChart1.Series(1).Add 180, "02/10",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(1).Add 240, "02/11",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(1).Add 310, "02/12",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(1).Add 480, "02/13",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(1).Add 518, "02/14",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(1).Add 825, "02/15",rgb(rnd*255,rnd*255,rnd*255)

TChart1.AddSeries(scBar)
TChart1.Series(2).Add 0, "02/14",rgb(rnd*255,rnd*255,rnd*255)
TChart1.Series(2).Add 980, "02/15",rgb(rnd*255,rnd*255,rnd*255)

'<!－－保存为JPEG文件－－>
'TChart1.Export.SaveToJPEGFile server.mappath("/teechart")＋"\MyChart.jpg",False,JPEGBestQuality, 85,TChart1.Width, TChart1.Height

TChart1.Export.SaveToJPEGFile server.MapPath("test.jpg"),False,JPEGBestQuality, 85,TChart1.Width, TChart1.Height
%>
<img src="test.jpg"></BODY></HTML>