[OWC] Impossible d'initialiser

**Fiquet** · 15/11/2005, 08h28

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!

**Immobilis** · 15/11/2005, 10h31

Tu peux récupérer OWC10 sur le net.
Pour les déclarations:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

marche bien.

Montre un peu ton code.

A+

**Fiquet** · 15/11/2005, 10h58

Merci il ne fait pas d'erreur

mais alors ce n'est pas le même déclaration pour OWC 10? Car moi je faisais

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Immobilis** · 15/11/2005, 11h51

Cool,

Je ne suis plus seul à utiliser OWC!

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+

**Fiquet** · 15/11/2005, 12h00

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 !

**Immobilis** · 15/11/2005, 13h35

Voici un exemple qui devrait bien t'aider à commencer.

Fais juste un copié collé.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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+

**Fiquet** · 15/11/2005, 14h02

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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?!

J'ai rien trouvé sur MSDN.

**Immobilis** · 15/11/2005, 14h30

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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!

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æÌþ

**Fiquet** · 15/11/2005, 15h07

Ok merci beaucoup pour l'aide

je n'y avais pas pensé...

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

<img src="test.asp">

Voilà

merci pour tout!

**Immobilis** · 15/11/2005, 15h20

Effectivement, mais comment fais-tu si tu veux ajouter du texte?

**Fiquet** · 15/11/2005, 17h13

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

**Immobilis** · 15/11/2005, 21h23

Cool.

Merci

[OWC] Impossible d'initialiser

ASP

Vue hybride

Discussions similaires

Partager

Partager