Ringkasan
Selain menggunakan komponen Web bagan Microsoft Office sebagai kontrol Model objek komponen (COM) hosting formulir, dimungkinkan untuk menggunakan komponen Web bagan sebagai objek tidak terlihat, di memori. Artikel ini menunjukkan bagaimana Anda dapat menggunakan komponen Web bagan di server untuk membuat bagan ditunjukkan sebagai gambar Graphics Interchange Format (GIF). Anda dapat menerapkan strategi yang dibahas di artikel ini untuk membuat bagan gambar yang dapat digunakan melalui Internet atau perusahaan dengan heterogen klien desktop.
Informasi lebih lanjut
Dengan komponen Web bagan, Anda dapat membuat bagan menggunakan data dari berbagai sumber, seperti array, database, spreadsheet, atau sumber data kustom. Setelah Anda membuat bagan, Anda dapat menggunakan metode ExportPicture komponen bagan untuk membuat gambar GIF tabel tersebut.
Untuk melakukannya, Anda dapat mengubah global.asa file dan membuat halaman ASP dengan kode yang digambarkan dalam langkah-langkah berikut ini.
Langkah-langkah untuk membuat proyek
-
Mulai Microsoft Visual InterDev.
-
Membuat proyek Web baru yang disebut
ServerChart dan klik tombol berikutnya . -
Ketik di server yang dapat digunakan untuk proyek Web ini.
-
Klik selesai untuk membuat proyek Web.
-
Klik kanan direktori proyek di server (biasanya ini adalah C:\Inetpub\wwwroot\ServerChart), pilih properti , dan kemudian klik tab keamanan .
-
Klik pada izin, dan tambahkan izin direktori berikut ini:
IUSR_SERVERNAME: Membaca, menulis, jalankan dan Hapus
Creator: Membaca, menulis, jalankan dan Hapus -
Klik OK untuk menetapkan izin.
-
Proyek Visual InterDev, klik kanan global.asa file dan pilih Mendapatkan salinan bekerja.
-
Mengubah file global.asa berisi skrip berikut ini:
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Session_OnStart
' Create a FileSystemObject to provide files in the script
Set Session("FSO") = CreateObject("Scripting.FileSystemObject")
' Create a variable that has the number of files created in this session
Session("n") = 0
' Set timeout to be 1 minute
Session.Timeout = 1
End Sub
Sub Session_OnEnd
' Delete the files created in this session
Dim x
For x = 0 to Session("n")-1
Session("FSO").DeleteFile Session("sTempFile" & x), True
Next
End Sub
</SCRIPT> -
Klik pada Project menu, pilih Tambahkan Web Item, dan kemudian pilih Halaman Server aktif. Nama halaman chart.asp.
-
Mengubah skrip di chart.asp berisi berikut ini:
<%@ language="vbscript" %>
<html>
<body>
<h1>Realtime CPU Utilization by Configurations</h1>
<FORM action="chart.asp" method=get name=frmChooseOrg>
<p> Select an Organization to see values for their machines:
<SELECT name=sOrg>
<OPTION SELECTED value= 5>Org1</OPTION>
<OPTION value= 10>Org2</OPTION>
<OPTION value= 15>Org3</OPTION>
<OPTION value= 20>Org4</OPTION>
</SELECT>
<INPUT type="submit" value="Go"></p>
</FORM>
<%
Dim oChart, c, Categories(5), Vals(5), i, sCaption, nData, nOrg
' Get the input value
nData = Request.QueryString("sOrg")
'When the page loads the first time, set ndata to 5
if len(nData) = 0 then nData = 5
' Generate random categories and values for the chart
' These values can come from some existing data source
for i = 1 to 5
Categories(i) = "Machine" & CStr(i)
Vals(i) = nData * Rnd(100)
next
' Create a Chart Object
Set oChart = CreateObject("OWC.Chart")
Set c = oChart.Constants
' Set the different parameters for the ChartSpace
oChart.Border.Color = c.chColorNone
' Get Organization number and use it to set the Caption
nOrg = nData/5
sCaption = "Current Utilizations for Org"
sCaption = sCaption & CStr(nOrg)
' Add a chart and set parameters for the chart
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 c.chDimCategories, c.chDataLiteral, Categories
oChart.Charts(0).SeriesCollection(0).SetData c.chDimValues, c.chDataLiteral, 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
' 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
%>
</body>
</html> -
Simpan project.
-
Klik kanan chart.asp dalam Proyek Explorer dan pilih tampilan di browser.
Halaman muncul dengan tabel yang berisi CPU utilizations untuk berbagai komputer. Dengan memilih organisasi yang berbeda, Anda dapat melihat utilizations berbeda.
Ketika Anda membuat banyak bagan berdasarkan set data yang berbeda, bagan setiap harus disimpan sebagai berkas GIF unik. Dalam contoh ini, Perpustakaan Scripting Run-time FileSystemObject menghasilkan berkas sementara untuk gambar GIF. File yang ditempatkan dalam folder yang sama sebagai halaman ASP sehingga Anda dapat menggunakan metode MapPath objek sesi untuk mendapatkan lokasi berkas sementara. Nama file yang disimpan sebagai variabel sesi sehingga akan dihapus setelah sesi berakhir.
Perhatikan bahwa IIS mengeksekusi sub rutin Session_OnEnd setiap kali sesi telah habis. Sesi waktu habis jika klien tidak meminta halaman dalam durasi waktu habis yang ditetapkan untuk satu (1) berjalan di awal sesi.
Catatan tambahan
Saat ini, satu-satunya filter yang tersedia untuk ExportPicture metode ini untuk gambar "GIF".
Metode ExportPicture memiliki dua argumen yang memungkinkan Anda untuk menunjukkan dimensi dalam piksel bagan dihasilkan. Dalam contoh kode yang tersedia, dan lebar dimensi keras-kode. Namun, Anda dapat menggunakan dimensi yang menentukan klien Anda.
OWC. Bagan ProgID berlaku untuk Office Web Components 9.0. Jika Anda ingin menggunakan versi 10 komponen, mengubah ProgID dari OWC. Bagan untuk OWC10. ChartSpace atau jika Anda ingin menggunakan versi 11 komponen, Ubah ProgID dari OWC. Bagan untuk OWC11. ChartSpace.
Masalah dengan menggunakan sisi Server
Anda harus berhati-hatilah bahwa komponen Web Office 2000 tidak dirancang untuk menggunakan sisi server, dan Anda mungkin mengalami masalah jika Anda menggunakan komponen di server dengan jumlah pengguna bersamaan sambungan yang tinggi. Banyak masalah ini disampaikan lewat komponen Web Office XP dan Office 2003 Web Components, dan Anda harus mempertimbangkan menggunakan komponen Web Office XP atau Office 2003 Web Components skala besar solusi sisi server.
Untuk informasi tambahan, klik nomor artikel di bawah ini untuk melihat artikel di Pangkalan Pengetahuan Microsoft:
INFO: batasan Office 2000 Web komponen ketika digunakan sisi Server
Referensi
Pemrograman Microsoft Office Web Components dengan Dave Stearns ISBN: 0-7356-0794-X
Untuk informasi tambahan tentang penggunaan komponen Web bagan, lihat artikel Basis Pengetahuan berikut:
cara membuat bagan kombinasi dengan komponen Web bagan
cara menggunakan komponen Web bagan Office dengan VB
bagaimana cara menggunakan VBScript mengikat bagan untuk komponen lembar kerja
