Sumário
Além de usar o componente da Web de gráfico do Microsoft Office como um modelo de objeto componente (COM) hospedado em um formulário, é possível usar o componente gráfico da Web como um objeto em memória não-visível. Este artigo ilustra como você pode usar o componente do gráfico da Web em um servidor para criar um gráfico representado como uma imagem (GIF Graphics Interchange Format). Você pode implementar a estratégia discutida neste artigo para gerar imagens de gráficos que podem ser usadas na Internet ou em empresas com desktops de clientes heterogêneos.
Mais informações
Com o componente da Web de gráfico, você pode criar gráficos usando dados de várias fontes, como matrizes, a bancos de dados, planilhas ou quaisquer fontes de dados personalizadas. Quando você cria um gráfico, você pode usar o método ExportPicture do componente gráfico para gerar uma imagem GIF desse gráfico.
Para fazer isso, você pode modificar o arquivo global. asa e criar uma página ASP com o código ilustrado nas etapas a seguir.
Etapas de criação de projeto
-
Inicie o Microsoft Visual InterDev.
-
Criar um novo projeto Web chamado
ServerChart e clique no botão Avançar . -
Digite o servidor a ser usado para este projeto da Web.
-
Clique em Concluir para criar o projeto da Web.
-
Clique com botão direito o diretório do projeto no servidor (normalmente é o C:\Inetpub\wwwroot\ServerChart), selecione Propriedades e, em seguida, clique na guia segurança .
-
Clique em permissõese adicione as seguintes permissões de diretório:
IUSR_SERVERNAME: Ler, gravar, executar e excluir
Criador: Ler, gravar, executar e excluir -
Clique em Okey para definir as permissões.
-
No projeto Visual InterDev, clique com botão direito no arquivo global. asa e selecione Obter cópia de trabalho.
-
Modificar o arquivo global. asa para conter o seguinte script:
<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> -
Clique no menu Project , selecione Add Item da Webe selecione Active Server Page. Nomeie a página chart.asp.
-
Modifique o script em chart.asp para conter o seguinte:
<%@ 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> -
Salve o projeto.
-
Clique com o botão chart.asp no Project Explorer e selecionar Exibir no navegador.
A página será exibida com um gráfico que contém as utilizações de CPU para vários computadores. Selecionando diferentes organizações, você pode exibir diferentes utilizações.
Quando você criar vários gráficos baseados em diferentes conjuntos de dados, cada gráfico deve ser salva como um arquivo GIF exclusivo. Neste exemplo, FileSystemObject da biblioteca de tempo de execução do script gera um arquivo temporário para a imagem GIF. O arquivo é colocado na mesma pasta que a página ASP para que você pode usar o método MapPath do objeto Session para obter o local do arquivo temporário. O nome do arquivo é salvo como uma variável de sessão, de forma que ela é excluída quando a sessão é encerrada.
Observe que o IIS executa a sub-rotina Session_OnEnd sempre que a sessão foi esgotado. A sessão expire se o cliente não solicitou uma página dentro da duração do tempo limite, que é definida como 1 (um) minuto no início da sessão.
Observações adicionais
No momento, o único filtro disponível para o método ExportPicture é para imagens "GIF".
O método ExportPicture tem dois argumentos que permitem que você indique as dimensões em pixels do gráfico gerado. No código de exemplo fornecido, as dimensões de largura e altura são codificados. Em vez disso, você pode usar dimensões que especifica seu cliente.
O OWC. ProgID do gráfico se aplica ao Office Web Components 9.0. Se você deseja usar a versão 10 do componentes, altere o ProgID de OWC. Gráfico para OWC10. ChartSpace ou se você deseja usar a versão 11 dos componentes, altere o ProgID de OWC. Gráfico OWC11. ChartSpace.
Problemas com o uso do lado do servidor
Você deve estar ciente que o Office 2000 Web Components não são destinados ao uso do lado do servidor, e você poderá encontrar problemas se você usar os componentes em um servidor com um número alto de conexões de usuários simultâneos. Muitos desses problema serão abordados com o Office XP Web Components e o Office 2003 Web Components e você deve considerar usar o Office XP Web Components ou o Office 2003 Web Components para soluções em grande escala do lado do servidor.
Para obter informações adicionais, clique no número abaixo para ler o artigo na Base de Conhecimento Microsoft:
INFO: limitações do Office 2000 Web Components quando usado no lado do servidor
Referências
Programação do Microsoft Office Web Components, Dave Stearns ISBN: 0-7356-0794-X
Para obter informações adicionais sobre como usar o componente gráfico da Web, consulte os seguintes artigos da Base de Conhecimento:
como criar um gráfico de combinação com o componente da Web de gráfico
a utilização do gráfico do Office Web Components com VB
como usar o VBScript para vincular um gráfico a um componente Planilha
