Bonjour,
J'ai une page ASP qui en fonction de paramêtres appelle une fonction vb6 (cette fonction utilise la librairie mIntelJpegLibrary pour créer des graphiques, puis les convertir en images. ces images sont ensuite affichées dans la page ASP.)
Ceci fonctionnait très bien sous Windows server 2000, mais depuis migration vers Windows server 2003, l'erreur suivante apparait au moment de sauvegarder l'image :
Madll.mIntelJPEGLibrary error '800a6591'
Failed to save to JPG -8 (message issu de la gestion d'erreurs de la librairie)code VBScript de ma page ASP :
Call Chart.SauveImage(1,chemin & nomfichier)
fonctionVB6 (dans le module de class "Chart") :
Public Function SauveImage(index as Integer, sFilename as String) as Integer
Graphique.ChartControle(Index).EditCopy
If Clipboard.GetFormat(vbCFBitmap) Then
Set Graphique.PictureChart(Index).Picture = Clipboard.GetData(vbCFBitmap)
End If
Dim c As New cDIBSection
c.CreateFromPicture Graphique.PictureChart(Index).Picture
SaveJPG c, sFileName
End Function
Afin de mieux comprendre où plantait la fonction, j'ai créé un bouton en vb6 :
code de ce bouton :
Private Sub Command1_Click()
sFileName = "d:\répertoire\nomdufichier.jpg"
Dim ret As Integer
'paramêtres tests affectés au graphique de la Form "Graphique"
For j = 1 To 12
Graphique.ChartControle(1).Column = 1
Graphique.ChartControle(1).Row = CInt(j)
Graphique.ChartControle(1).Data = 70
Next
Clipboard.Clear
Graphique.ChartControle(1).EditCopy
SavePicture Clipboard.GetData(vbCFBitmap), sFileName
End Sub
Ceci fonctionne parfaitement! le graphique est créé et converti en image...
si je met ce code dans la fonction SauveImage, et que je l'appelle à partir de mon bouton :
Call Chart.SauveImage(1,sFilename)
... message d'erreur "erreur d'exécution 424, Un objet est requis"
En espérant avoir été clair, je vous remercie d'avance pour vos suggestions, questions, etc.... merci!
Débutant... à vie! 