- PR -

OWCについて

1
投稿者投稿内容
みやぼん
常連さん
会議室デビュー日: 2003/09/08
投稿数: 33
投稿日時: 2003-09-08 17:43
いつもお世話になっております。
宮崎と申します。
Webでグラフ表示画面を作成しようとしておりまして
現在チームに配るサンプルを作成中です。
下記ソースで縦棒グラフをGIFファイルで出力して
それをHTMLのIMG命令で呼ぼうとしているのですが
どうしても、データをグラフに載せる部分が上手くいきません。
下記ソースのどこが悪いのかをご指摘いただけないでしょうか？

また、
どなたかOWCのサンプル集が掲載されている
ホームページなどをご存知の方はいらっしゃらないでしょうか？



ここからソース【ページロードに張っていただければ動きます（あっ動きません。）】
Dim oChart As OWC.ChartSpace = New OWC.ChartSpace
Dim c
Dim Categories(5) As String
Dim Vals(5) As Integer
Dim i As Integer
Dim sCaption As String
Dim nData As Integer = 15
Dim nOrg As Integer

Dim sFname As String
Session("FSO") = CreateObject("Scripting.FileSystemObject")

If Len(nData) = 0 Then nData = 5

For i = 1 To 5
Categories(i) = "Machine" & CStr(i)
Vals(i) = nData * Rnd(100) 'nData(デフォルト５)×Rnd(100)乱数系列の次の乱数を返します
Next

c = oChart.Constants
oChart.Border.Color = c.chColorNone

nOrg = nData / 5
sCaption = "Current Utilizations for Org"
sCaption = sCaption & CStr(nOrg)

oChart.Charts.Add()
'たて棒グラフ
oChart.Charts(0).Type = oChart.Constants.chChartTypeColumnClustered
oChart.Charts(0).SeriesCollection.Add()
oChart.Charts(0).SeriesCollection(0).Caption = sCaption
'ここでデータが載らない。。
oChart.Charts(0).SeriesCollection(0).SetData(ChartDimensionsEnum.chDimBubbleValues.chDimCategories, 0, Categories)
oChart.Charts(0).SeriesCollection(0).SetData(ChartDimensionsEnum.chDimBubbleValues.chDimValues, 0, Vals)
oChart.Charts(0).HasLegend = True
oChart.Charts(0).HasTitle = True

' Get a temporary filename to save chart in that file
sFname = Session("FSO").GetTempName & Session.SessionID & ".gif"

' Export the chart to the temporary file
oChart.ExportPicture(Server.MapPath(sFname), "gif", 600, 512)
'oChart.ExportPicture "a.gif", "gif", 600 ,512
' Create a link to the generated file
Response.Write("<img src='" & sFname & "'>")

' Store the file with its path in the session object for cleanup
Session("sTempFile" & Session("n")) = Server.MapPath(sFname)

' Increment the number of files
Session("n") = Session("n") + 1
1

スキルアップ／キャリアアップ（JOB@IT）