plantage Ole Excel et ActiveX

Version imprimable

04/06/2007, 11h38
DamienN

plantage Ole Excel et ActiveX
Bonjour,

Une exception EAccessViolation est levée sur l'appel de OlePropertySet dans le fichier 'sysvari.h' ligne 2671.
Code:

1 2 3 4 5 6 7 Variant vMSExcel; vMSExcel = Variant::CreateObject("Excel.Application"); vMSExcel.OlePropertySet("Visible", true); ShowMessage("Ouvert"); vMSExcel.OleFunction("Quit"); vMSExcel = Unassigned;
Lorsque je supprime un activeX (importé) de la form (Pragma link + .h), ça fonctionne normalement.

Avez-vous des informations sur le problème ?

Merci.
04/06/2007, 11h53
blondelle

Salut DamienN
Fait voir le code d'ouverture d'Excel avec les entetes, le code que tu a poste est minimaliste mais fonctionnel

Citation:

#include <utilcls.h> // <--- ne pas oublier

bonjour blondelle

voici le code de mon cpp

si je retire l'ActiveX Circ1Lib de ma form ça fonctionne normalement.

Lorsque je pose un ActiveX (importé), il plante sur OlePropertySet.

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
//---------------------------------------------------------------------------
 
#include <vcl.h>
#pragma hdrstop
 
#include "Unit2.h"
 
//---------------------------------------------------------------------------
#pragma package(smart_init)
#pragma link "Circ1Lib_OCX"
#pragma resource "*.dfm"
TForm2 *Form2;
//---------------------------------------------------------------------------
__fastcall TForm2::TForm2(TComponent* Owner)
    : TForm(Owner)
{
}
//---------------------------------------------------------------------------
 
void __fastcall TForm2::Button1Click(TObject *Sender)
{
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.OlePropertySet("Visible", true);
ShowMessage("Ouvert");
vMSExcel.OleFunction("Quit");
vMSExcel = Unassigned;
}
//---------------------------------------------------------------------------

je ne comprends pas, comme si les fonctions OLE etaient redéfinies.

04/06/2007, 16h57
blondelle

Dans ton code n'oublie pas d'integrer dans l'entete car tu aura une erreur avec certaines fonctions

Citation:

#include <utilcls.h> // <--- ne pas oublier

Pour ton probleme essai de le placer soit avant soit apres ta definition de l'OCX il est possible que cela resoud l'erreur, sinon je ne vois pas desole :oops:
04/06/2007, 17h38
DamienN

Merci pour l'info.

ça marche pas même en déplaçant l'include.

encore merci.

Voici la solution qui fonctionne sous C++ Builder 6

Code:

1
2
3
4
5
6
7
Variant vMSExcel;
 
vMSExcel = Variant::CreateObject("Excel.Application");
vMSExcel.Exec(PropertySet("Visible") << Variant(true));
ShowMessage("Ouvert");
vMSExcel.Exec(Function("Quit"));
vMSExcel = Unassigned;