Generacion de graficos con asp

[ldavila]

Hola a todos quiero saber si conocen alguna forma de generar graficos del tipo estadisticos con datos provenientes de una base de datos... Conocen si existe una forma de generar archivos GIF o JPG al vuelo usando ASP?
Me gustaria saber si se pude generar tambien PDF y archivos de flash...

GRacias

[mariano_donati]

A través de ASP solo, sin utilizar componentes externos, la forma en la que comunmente se trabaja es tener un archivo GIF en forma de barra, y a esa barra generarle una altura dinamicamente con los datos que extraes de la base de datos. Es la mejor forma que he encontrado para hacer con ASP solo. Después tenés componentes como el OWC (Office Web Components), que genera gráficos al mismo estilo que Excel. No te puedo mencionar más debido a que encontré poca documentación detallada al respecto. Lo que yo estoy haciendo en estos momentos (pero todavía no logro armar bien la base de datos para extraer los datos de forma eficiente) es tener una página ASPX que se encarga de generar los gráficos, le pongo con ContentType que me devuelva una imagen, y luego en la página ASP que quiero que me muestre el grafico pongo una etiqueta <IMG>, y en el atributo SRC la url de esa página ASPX. Esa es otra forma que puede lograrse si querés usar código propio, sin depender de componentes externos.
Alguien más seguramente te va a brindar otras alternativas.
Saludos!.

[edumferreyra]

Yo utilicé una clase muy buena que bajé de planet-source-code.com. Te paso el comentario.
Permite gráfico de barras y de tortas, y yo le hice una personalizacion para poder graficar también líneas. No sé como se adjunta un archivo, si ya no está más enviame un mensaje privado con un mail y te la envío .
Slds. Edum

Title: ASPCanvas 2.0.2
Description: Version 2.0.2 of ASPCanvas draws GIF files directly from script without using server-side components. It includes a suite of drawing functions as well as support for rendering barcodes. This new version draws images 15 times faster than its predecessor. New version includes graphing and charting add-ons.
This file came from Planet-Source-Code.com...the home millions of lines of source code
You can view comments on this code/and or vote on it at: http://www.Planet-Source-Code.com/vb...=8395&lngWId=4

[mariano_donati]

Simplemente... impresionante!, Muy bueno, gracias por el link.
Saludos!.

[El_Metallick]

muchas gracias magnifico script... saludos

[Elbrinner]

Ese componente me encanta



<%@ language="vbscript" %>
<%
'Instancia del Objeto ChartDirector
Set cd = CreateObject("ChartDirector.API")

'Informa los datos para el gráfico
data = Array(250, 180, 150)

'Informa la etiquetas
labels = Array("Locaweb", "Locamail", "Locavoz")

'Cria una imagene con tamaño de 280 x 240 pixels
Set c = cd.PieChart(280, 240)

'Ajusta localicacion del gráfico (140, 120) y su tamaño en 80 pixels
Call c.setPieSize(140, 120, 80)

'Muestre el gráfico en 3D
Call c.set3D()

'Muestra un titulo al grafico
Call c.addTitle("Locaweb")

'Ajusta la transparencia
Call c.setColors(cd.transparentPalette)

'Ajusta los datos y el grafico
Call c.setData(data, labels)

'Separa la ultima ultima parte
Call c.setExplode(2)

'Exibe el gráfico en el browser
Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)

'elimina el objeto c
Set c = nothing

'elimina el Objeto ChartDirector
Set cd = nothing
%>

[mariano_donati]

Intenté usar el componente ChartDirector, pero me salta el error en la linea en la que creo el objeto:

" El componente ActiveX no puede crear el objeto: 'ChartDirector.API' "

Por que puede ser? alguien sabe como solucionarlo?
Muchas gracias de antemano.
Saludos!.

[Elbrinner]

Tienes el componente instalado en el servidor?

[acrego]

con ese componente se pueden hacer graficos de tipo de lineas.

[Elbrinner]

Se puede hacer diversos tipo de grafico con ese componente ejemplos:



















y muchos otros
un saludo

[acrego]

pregunta de novato, esos datos se pueden sacar de una base de datos??
donde se puede bajar el programa y tienes documentacion del programa.
un saludo

[Elbrinner]

Si que se puede.
Busca por internet que seguro que encuentras un manual dese componente.

Un ejemplo con db

Código HTML:

Página Database01.asp

Esta página exibe um formulário para que possa ser selecionado o ano para gerar-se dinamicamente a imagem do gráfico

<html>
<body>
<form action="<%=Request("SCRIPT_NAME")%>">
Selecione o ano da consulta 
<select name="year">
<option value="1990">1990
<option value="1991">1991
<option value="1992">1992
<option value="1993">1993
<option value="1994">1994
<option value="1995">1995
<option value="1996">1996
<option value="1997">1997
<option value="1998">1998
<option value="1999">1999
<option value="2000">2000
<option value="2001">2001
</select>
<input type="submit" value="OK">
</form>

<%
SelectedYear = Request("year")
if SelectedYear = "" Then 
SelectedYear = 2001
end if
%>

<SCRIPT>
//make sure the select box displays the current selected year.
document.forms[0].year.selectedIndex = <%=SelectedYear - 1990%>;
</SCRIPT>

<img src="database02.asp?year=<%=SelectedYear%>">

</body>
</html>

Página Database02.asp

Esta página genera la imagene del gráfico y hace la consulta en el banco de datos

<%@ language="vbscript" %>
<%

Set cd = CreateObject("ChartDirector.API")

SelectedYear = Request("year")
if SelectedYear = "" Then SelectedYear = 2001

SQL = "Select Month(TimeStamp) - 1 As ArrayIndex, " & _
"Software, Hardware, Services " & _
"From Revenue Where Year(TimeStamp)=" & SelectedYear


Set rs = CreateObject("ADODB.RecordSet")
Call rs.Open(SQL, "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=e:\home\login\dados\sample.mdb")
Set dbTable = cd.DBTable(rs, "ArrayIndex", 12)
rs.Close()


'(0xffffc0) background and 2 pixel 3D border
Set c = cd.XYChart(420, 240, &Hffffc0, &Hffffc0, 2)

Call c.setPlotArea(70, 50, 320, 150, &Hffffff, &Hffffff, &Hc0c0c0, &Hc0c0c0)


Call c.addTitle("Locaweb - Estatisticas de " & SelectedYear, "timesbi.ttf" _
).setBackground(&Hffff00)

Call c.addLegend(70, 30, 0, "", 8).setBackground(cd.Transparent)

Set layer = c.addBarLayer2(cd.Stack)
Call layer.addDataSet(dbTable.getCol(1), -1, "Locaweb")
Call layer.addDataSet(dbTable.getCol(2), -1, "Locamail")
Call layer.addDataSet(dbTable.getCol(3), -1, "Locavoz")
Call layer.setBorderColor(cd.Transparent, 1)


labels = Array("Jan", "Fev", "Mar", "Abr", "Mai", "Jun", "Jul", "Ago", _
"Set", "Out", "Nov", "Dez")
Call c.xAxis().setLabels(labels)

Call c.xAxis().setWidth(2)


Call c.yAxis().setTitle("Crescimento")


Call c.yAxis().setWidth(2)


Response.ContentType = "image/png"
Response.BinaryWrite c.makeChart2(cd.PNG)


rs.close
Set rs = nothing


Set c = nothing

Set cd = nothing
%>

puedes baja la bd Aqui

un saludo

[mariano_donati]

La prueba la hice en local, de donde bajo el componente para instalarlo?

[Elbrinner]

http://www.advsofteng.com/download.html

[Myakire]

Excelente el componente.....solo un apunte:

Después tenés componentes como el OWC (Office Web Components), que genera gráficos al mismo estilo que Excel.

No "debes" usar ese componente en Internet por que se infringen leyes de licencias, es solo para intranets que tengan la licencia del office para sus clientes.

[Elbrinner]

Tambien hay otros componentes que trabaja muy bien con grafico como el DundasPieChart.

http://www.dundas.com/products/chart...px?Section=new

[El_Metallick]

Gracias Elbinner.... saludos

[mariano_donati]

Buen comentario Myakire, sinceramente no sabía el tema de las licencias, menos mal que lo acotaste. Excelente el componente la verdad, espero poder utilizarlo también.
Saludos!.

[mariano_donati]

Baje el componente de la pagina, desde el mirror, y me dice que no se puede instalar debido a que el componente esta corrupto. Alguien pudo bajarlo?, se podrá bajar de algún otro link?

[mariano_donati]

Bueno instale el componente en C:\Archivos de programa, cuando intenté ejecutar el código que se posteó acá, me salieron un montón de caracteres ilegibles. Alguien lo probó?, que puede estar mal?

[Elbrinner]

Lo use algunas veces en el servidor que tengo contratado y me funciona sin problema. Cual codigo usaste? el primero? si es el primero no tengo nin idea lo que puede ser

o mejor si, estas probando solo el codigo o estas usando html junto?

[mariano_donati]

Lo que hice fue copiar y pegar exactamente el mismo código que se posteó acá. Me pregunto si las DLL del subdirectorio "lib" necesitan estar registradas? necesitan estar en la misma carpeta de mi aplicación? o solamente con instalar el componente en cualquier subdirectorio en teoría esto debería funcionar?
Saludos!.

[Elbrinner]

Normalmente tienes que registrar el componente en windows. Imagino que ya tengas instalado alguna ves componentes como aspjpeg... tienes que hacer lo mismo (creo)

En la pagina no pone como instalar?
saludos

[Mafervzla01]

Hola necesito que alguien me ayude urgente, estoy desarrolando una aplicacion en asp que tiene que graficar datos de access, me sugirieron usar ChartDirector asi que lo baje de la pagina, tengo la carpeta que contiene los archivos dendtro del directorio de la aplicacion.

Cuando intento ejecutar alguna pagina y se crea el objeto
Set cd = CreateObject("ChartDirector.API")

Da el siguiente error

Script error detected at line 3.
Source line: Set cd = CreateObject("ChartDirector.API")
Description: El componente ActiveX no puede crear el objeto: 'ChartDirector.API'

por favor ayudenme a solucionar este error que asi podre continuar con mi aplicacion

Gracias

[Shiryu_Libra]

registraste la variable?

REGSVR32 tuactivex.dll

????

[Mafervzla01]

No la he registrado, no sabia que tenia que hacerlo, como lo hago? por favor ayudame estoy trancada y no puedo continuar... explicame paso a paso es que no soy experta en asp

Gracias

[Shiryu_Libra]

retomo nuevamente previo POST

registraste la variable?

REGSVR32 tuactivex.dll

????

mas informacion, ESTA, o ESTA OTRA, o en GOOGLE, e incluso dentro de nuestro FORO

[Mafervzla01]

ya lo registre no me sale el error sin embargo no me muestra la imagen, que sera?... Muchas Gracias por tu respuesta

[ariesdol7]

Muchas gracias Elbrinner el código me sirvió un monton :D