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

  1. Mulai Microsoft Visual InterDev.

  2. Membuat proyek Web baru yang disebut
    ServerChart dan klik tombol berikutnya .

  3. Ketik di server yang dapat digunakan untuk proyek Web ini.

  4. Klik selesai untuk membuat proyek Web.

  5. Klik kanan direktori proyek di server (biasanya ini adalah C:\Inetpub\wwwroot\ServerChart), pilih properti , dan kemudian klik tab keamanan .

  6. Klik pada izin, dan tambahkan izin direktori berikut ini:

    IUSR_SERVERNAME: Membaca, menulis, jalankan dan Hapus
    Creator: Membaca, menulis, jalankan dan Hapus

  7. Klik OK untuk menetapkan izin.

  8. Proyek Visual InterDev, klik kanan global.asa file dan pilih Mendapatkan salinan bekerja.

  9. 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>
  10. Klik pada Project menu, pilih Tambahkan Web Item, dan kemudian pilih Halaman Server aktif. Nama halaman chart.asp.

  11. 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>
  12. Simpan project.

  13. 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

Perlu bantuan lainnya?

Kembangkan keterampilan Anda
Jelajahi pelatihan
Dapatkan fitur baru terlebih dahulu
Gabung Microsoft Insider

Apakah informasi ini bermanfaat?

Seberapa puaskah Anda dengan kualitas terjemahannya?
Apa yang memengaruhi pengalaman Anda?

Terima kasih atas umpan balik Anda!

×