[OWC] Impossible d'initialiser

Version imprimable

15/11/2005, 08h28
Fiquet

[OWC] Impossible d'initialiser

Hello,

J'ai fini par me tourner vers OWC à cause de la bannière de CharDirector (cf. mon post).

Cependant j'ai un problème dés la 1ère ligne d'un code d'exemple : ActiveX component can't create object: 'OWC.Chart'. Pourtant je l'ai bien installé! Je précise que je suis sur Windows 2000 et que dessus il y a une vieille version de Office (97) mais normalement ça ne devrait pas poser problème.

Y'a-t-il une manip à faire?

Merci d'avance! ;)
15/11/2005, 10h31
Immobilis
Tu peux récupérer OWC10 sur le net.
Pour les déclarations:
Code:

1 2 Set oPivot = Server.CreateObject("OWC10.PivotTable") Set NewChart = Server.CreateObject("OWC10.ChartSpace")
marche bien.

Montre un peu ton code.

A+
15/11/2005, 10h58
Fiquet
Merci il ne fait pas d'erreur :D mais alors ce n'est pas le même déclaration pour OWC 10? Car moi je faisais
Code:

1 2 Set ChartSpace1 = Server.CreateObject("OWC.Chart") ' etc...
Mais ensuite que faut-il faire? Aurais-tu un exemple bateau? Je n'ai rien trouvé avec cette déclaration.. Ou simplement sur MSDN il y a ça? Car je n'ai rien trouvé.

Merci encore :)
15/11/2005, 11h51
Immobilis

Cool,

Je ne suis plus seul à utiliser OWC!
:wink:
Y'a pas mal d'exemples sur le Net, mais il faut savoir qu'OWC est surtout puissant pour les données issues de tableaux croisés.
Est-ce le cas ou pas?

A+
15/11/2005, 12h00
Fiquet

Non ce n'est pas le cas c'est vraiment pour un petit truc et pour expérimenter! j'ai juste besoin d'un simple bargraph en fait mais c'est encore à voir.

Pour des exemples j'en ai trouvé mais jamais avec OWC10 !

Voici un exemple qui devrait bien t'aider à commencer.
http://julienlefevre.free.fr/pict/mongraph.gif
Fais juste un copié collé.

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
 
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>Untitled Document</title>
</head>
 
<body>
<%
	Dim NewChart
	Dim chConstants
 
	Set NewChart = Server.CreateObject("OWC10.ChartSpace")
	Set chConstants = NewChart.Constants
 
	NewChart.Charts.add
	NewChart.Charts(0).SeriesCollection.Add.Name = "NR"
	NewChart.Charts(0).SeriesCollection("NR").Caption = "Margin"
	NewChart.Charts(0).SeriesCollection("NR").Type = chConstants.chChartTypeColumnClustered
	NewChart.Charts(0).SeriesCollection("NR").Marker.Style = chConstants.chMarkerStyleCircle 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle
	NewChart.Charts(0).SeriesCollection("NR").Interior.Color = "green"
	NewChart.Charts(0).SeriesCollection("NR").line.Color = "green"
 
	NewChart.Charts(0).SeriesCollection.Add.Name = "CI"
	NewChart.Charts(0).SeriesCollection("CI").Ungroup True
	NewChart.Charts(0).SeriesCollection("CI").Type = chConstants.chChartTypeLineMarkers
	NewChart.Charts(0).SeriesCollection("CI").Marker.Style = chConstants.chMarkerStyleSquare 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle
	NewChart.Charts(0).SeriesCollection("CI").Caption = "CI%"
 
	Dim oAxis2
	Set oAxis2 = NewChart.Charts(0).Axes.Add(NewChart.Charts(0).SeriesCollection("CI").Scalings(chConstants.chDimValues))
	oAxis2.Position = chConstants.chAxisPositionRight
	oAxis2.HasMajorGridlines = False
	oAxis2.NumberFormat = "* #,##0;(* #,##0);#-"
	oAxis2.HasTitle = True
	oAxis2.Title.Caption = "CI %"
	oAxis2.Title.Font.Bold = FALSE
 
	NewChart.Charts(0).SeriesCollection("NR").SetData chConstants.chDimValues, chConstants.chDataLiteral, "10,20,30,40,50"
	NewChart.Charts(0).SeriesCollection("CI").SetData chConstants.chDimValues, chConstants.chDataLiteral, "50,40,30,20,10"
 
	NewChart.ExportPicture server.MapPath("./") & "\mongraph.gif","gif",400+(NewChart.Charts(0).SeriesCollection(0).Points.Count*40),384*1.5
	response.Write("<p align='left'><img src='mongraph.gif'></p>")
 
%>
</body>
</html>

L'image du graph est sauvegardée sur le serveur. Il ne pas oublier de donner suffisement de droits aux utilisateurs sur le repertoire de sauvegarde. Sinon, il y a la methode du flux binaire, mais que je n'ai pas réussi à faire fonctionner.

A+

Merci beaucoup pour cet exemple. Pour ton info j'ai réussi à faire du flux binaire en mixant ton script et un autre. Il faut juste changer ces 2 dernière lignes de ton code :
Code:

1 2 NewChart.ExportPicture server.MapPath("./") & "\mongraph.gif","gif",400+(NewChart.Charts(0).SeriesCollection(0).Points.Count*40),384*1.5 response.Write("<p align='left'><img src='mongraph.gif'></p>")
Par:
Code:

1 2 Response.ContentType = "image/gif" Response.BinaryWrite NewChart.GetPicture("GIF", 500, 300)
Et virer tout le code html! Enfin si ça t'intéresse ;) pour moi c'est mieux.

Et encore merci beaucoup pour ton code mais ça ne me dit pas comment faire par ex. un gâteau, un graphe 3d, etc. Il n'y aurait pas une toute petite doc ou au moins une liste des fonctions sûr le net?! :oops: J'ai rien trouvé sur MSDN.

15/11/2005, 14h30
Immobilis

Si tu as Office installé sur ton PC, le fichier d'aide devrait se trouver dans le coin: C:\Program Files\Common Files\Microsoft Shared\Web Components\10\1033\OWCDCH10.CHM

A+

Pour les camemberts, je ne sais pas, mais la propriété

Code:

NewChart.Charts(0).SeriesCollection("NR").Type

permet d'avoir différents types de graphs.

Sinon, avec le response.binary, j'ai tjrs de trucs comme ça!

Citation:

GIF89aô,÷ÿÿÿããã€ `€,ô,þH° Áƒ*\È°¡Ã‡#JœH±¢Å‹3jÜÈ±£ÇˆI²¤É“(Sª\É²¥Ë—0cÊœI³¦Í›8sêÜÉ³§ÏŸ"J´¨Ñ£H“*]Ê´©S’BŸJJµªÕ«X³j `«×¯`ÃŠKÖgÔ²hÓª]Ë¶-Ñ³nãÊK·®X¸vóêÝË·ïM¼~ Lx.àÂˆ+^<õ0ãÇ#K®éxàHË“3kÞ sÏLw úù2çÓ¨S¿]š5ë¥¢KºVM»ví×¥I7y¶íßÀ'Ô;4nâ]}É¼¹óçÐ£KŸN½:CäÅ#MZ9TàÃþ‹O¾¼ùóèÓ«_Ï¾½û÷ðãËŸO¿¾ýûøóë{¶w¥ÜµfšIìgà&¨à‚ 6èàƒ ögÚIUvhßA¨á†vèá‡ †ÈÞqža v2(âŠ,¶èâ‹0~ˆ"VŽÅ¤bŒ8æ¨ãŽ<æ8ãU5ÂtcDiä‘HÎ÷£UA®–ä“PF)%KVÕ¤KCN©å–\v‰`•T]ÙR–^–iæ™h’fck®DfšpÆ)'’m>%&KoÎ©çž|®X§SwºÙç „ªáŸ»!zRž†6êè£ï) ›¤²Ajé¥˜žGi…›^–é§ BÚéQªÄh¨¨¦zæ¨F•šÒ©þªÆ*k”¬å*J°Îªë®TÞÅj®¼+,‹µ¾õë°È&ûb±CÝº¨²ÐFë!³+íµØ.HíOÎ˜í·àæ·*YÖ†kî¹îÛS·•¢ëî»æ©Ë»Âk/¼òîD¯§÷ö‹n¾:í”¿‡ pNVðÂØŒSÂÀ2,±ªÿUîÄóZ±Mgìñ®SvñÇ$‡2M—¬2¨'Ï”òÊ0[ÚrŠ#Çl3¡3ÛXóÍ<ë™³;÷,tš?¯†âpËÍ`BC7}(½%ŒòÑP Ø®‚ õÖDìô×õ‘X5q“.*›Õõ&˜5×Z{ öÛðI8vqeC… kËvþÛp÷½_½¡}¢›Ù]FÝÞ][§øâŒ7îøãŽXx¢„ãí¶|k³}¹ßÐ@Àç ‡.úè¤‡¾9¯NnœÙÝ >°Þ{¯Í9¾¥×n»è§‹'·€d¾è…•-xæÌþ

Ok merci beaucoup pour l'aide :D je n'y avais pas pensé...

Citation:

Envoyé par Immobilis

Sinon, avec le response.binary, j'ai tjrs de trucs comme ça!

Oui j'avais ce problème mais il ne faut pas oublier d'enlever tout html qui pourrait être. Voici tout le code final que j'ai qui marche:

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<%
' Même que test avec flux binaire
Dim NewChart 
Dim chConstants 
 
Set NewChart = Server.CreateObject("OWC10.ChartSpace") 
Set chConstants = NewChart.Constants 
 
NewChart.Charts.add 
NewChart.Charts(0).SeriesCollection.Add.Name = "NR" 
NewChart.Charts(0).SeriesCollection("NR").Caption = "Margin" 
NewChart.Charts(0).SeriesCollection("NR").Type = chConstants.chChartTypeColumnClustered 
NewChart.Charts(0).SeriesCollection("NR").Marker.Style = chConstants.chMarkerStyleCircle 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle 
NewChart.Charts(0).SeriesCollection("NR").Interior.Color = "green" 
NewChart.Charts(0).SeriesCollection("NR").line.Color = "green" 
 
NewChart.Charts(0).SeriesCollection.Add.Name = "CI" 
NewChart.Charts(0).SeriesCollection("CI").Ungroup True 
NewChart.Charts(0).SeriesCollection("CI").Type = chConstants.chChartTypeLineMarkers 
NewChart.Charts(0).SeriesCollection("CI").Marker.Style = chConstants.chMarkerStyleSquare 'chMarkerStyleStar chMarkerStyleSquare chMarkerStyleCircle 
NewChart.Charts(0).SeriesCollection("CI").Caption = "CI%" 
 
Dim oAxis2 
Set oAxis2 = NewChart.Charts(0).Axes.Add(NewChart.Charts(0).SeriesCollection("CI").Scalings(chConstants.chDimValues)) 
oAxis2.Position = chConstants.chAxisPositionRight 
oAxis2.HasMajorGridlines = False 
oAxis2.NumberFormat = "* #,##0;(* #,##0);#-" 
oAxis2.HasTitle = True 
oAxis2.Title.Caption = "CI %" 
oAxis2.Title.Font.Bold = FALSE 
 
NewChart.Charts(0).SeriesCollection("NR").SetData chConstants.chDimValues, chConstants.chDataLiteral, "10,20,30,40,50" 
NewChart.Charts(0).SeriesCollection("CI").SetData chConstants.chDimValues, chConstants.chDataLiteral, "50,40,30,20,10" 
 
Response.ContentType = "image/gif" 
Response.BinaryWrite NewChart.GetPicture("GIF", 500, 300)
 
'NewChart.ExportPicture server.MapPath("./") & "\mongraph.gif","gif",400+(NewChart.Charts(0).SeriesCollection(0).Points.Count*40),384*1.5 
'response.Write("<p align='left'><img src='mongraph.gif'></p>") 
%>

Après tu peux soit l'appeler directement chez moi ça marche ou soit l'appeler dans une autre page:

Code:

<img src="test.asp">

Voilà ;) merci pour tout!

15/11/2005, 15h20
Immobilis

Effectivement, mais comment fais-tu si tu veux ajouter du texte?
15/11/2005, 17h13
Fiquet
Et bien tu crées ton fichier avec le flux binaire comme je t'ai montré sans html, et ensuite dans une autres page tu fais par exemple:
Code:

1 2 3 4 5 6 7 8 9 10 11 12 <html> <head> <title>Graphique</title> </head> <body> <h1>Voici un graphique:</h1> <img src="graphique.asp"> </body> </html>
...et le tour est joué! Ta page .asp n'est employée en fait que comme si c'était une image, le browser pense que c'en est une et l'affiche ;)
15/11/2005, 21h23
Immobilis

:idea: Cool.

Merci :!: