This example uses 2 files:
Client: TeeFromWebClient.asp
*************************************************************************
<%
ServerPath=Request.Servervariables("LOCAL_ADDR")
%>
<html>
<META HTTP-EQUIV="Expires" CONTENT="0">
<script LANGUAGE="VBScript">
sub window_onload()
TeeCommander1.ChartLink = TChart1.ChartLink
TChart1.Import.LoadFromURL("http://<%=ServerPath%>/TeeChart2013/TeeFromWeb.asp")
end sub
Sub TChart1_OnDblClick()
TChart1.ShowEditor
TChart1.StopMouse
end sub
Sub TChart1_OnMouseMove(Shift, X,Y)
' Example use of Chart event
' Uncomment code to see Mouseover message
' dim tmp
' tmp = TChart1.Series(0).Clicked(X,Y)
' if tmp <> -1 then
' if TChart1.Series(0).YValues.Value(tmp)=TChart1.Series(0).YValues.Maximum then
' msgbox("Max Y Value =" & TChart1.Series(0).YValues.Value(tmp) )
' end if
' end if
end sub
</script>
<head>
<title>TeeChart v2018 Stream to browser example</title>
<LINK REL=STYLESHEET TYPE="text/css" HREF="Style.css"></HEAD><BODY>
<img src="TeeChartAX300x66.jpg">
<br><br>
<a href="ASPHome.htm">Back to Contents page</a>
<hr>
<p>This example page calls a serverside script to create a Chart and return the
result to the browser Chart as a native TeeChart template. The browser Chart imports
the template (inclusion of data is optional). No temporary files are used, output is
streamed directly to the browser. In this way TeeChart could alternatively stream all
supported output image formats (eg. JPEG, PNG, GIF, Metafile) to the browser.</p>
<hr>
<p>
<object ID="TeeCommander1" WIDTH="600" HEIGHT="32" align="center"
CLASSID="clsid:34CE48EE-8287-4AF4-A28E-A12CA6597107">
</object>
</p>
<p>
<object ID="TChart1" WIDTH="600" HEIGHT="400" align="center"
CLASSID="clsid:CC0427C7-2124-4770-8847-F9EF4C50CDC2">
</object>
</p>
<HR>Copyright © 2018 Steema Software SL</BODY>
</html>
*************************************************************************
Server: TeeFromWeb.asp
*************************************************************************
<!--METADATA NAME="TeeChart Pro v2018 ActiveX Control" TYPE="TypeLib" UUID="{DE7847A7-A266-4AA9-AA68-16676652C9DB}"-->
<%
' Meta data section above to permit use of TeeChart constants in script
Dim i
Dim x
Response.Buffer=true
Set Chart1 = CreateObject("TeeChart.TChart")
Chart1.Header.Text(0)="Performance"
Chart1.AddSeries(scBar)
Chart1.Aspect.View3D=False
Chart1.Panel.Gradient.Visible=True
Chart1.Panel.BevelOuter=2
Chart1.Panel.BevelWidth=2
Chart1.Axis.Bottom.Labels.Angle=90
'use your methods eg via DB to populate Chart or...
x=Now*10000
For i = 0 to 5
Chart1.Series(0).AddXY x, Rnd*x,"",clTeeColor
x=x+100
Next
Response.BinaryWrite (Chart1.Export.asNative.SaveToStream(True))
%>
*************************************************************************