Discussion :

[manworms2]

bonjour
je me suis servis de la FAQ pour trouver comment ouvrir un document word. j utilise le code ci dessous mais il plante : "Le projet a provoque une classe d execption EOleSysError ..." comment faire ? merci

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
Variant vFileName, vLink, vReadOnly, vFormat, vReadPass, vWDocuments, vWDocument ;
    Variant vMSWord;
try
        {
 
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = true; // lecture seule
 
    vFileName = "C:\Documents and Settings\Manu\Mes documents\C++ buikder\Anniv v3\Aide\Aide.doc";
    vWDocuments = vMSWord.OlePropertyGet("Documents");
    vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);

[pottiez]

Salut,
déjà il y a une erreur dans ton chemin de fichier, tes antislash doivent être doublé pour que ça fonctionne :

Code :

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

vFileName = "C:\\Documents and Settings\\Manu\\Mes documents\\C++ buikder\\Anniv v3\\Aide\Aide.doc";

[manworms2]

D'accord le problème venait de la merci
Dernière question comment récupérer le chemin de l exécutable pour le placer dans le FileName.
Pour le jour on j installerai le programme sur un autre PC ou le chemin sera différent.

merci

[pottiez]

La réponse est dans la FAQ : http://cpp.developpez.com/faq/bcb/?p...oireexecutable

[manworms2]

j ai le message Type de variable incorrect . pourtant le chemin est bon je l ai tester dans un edit .

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
    AnsiString RepertoireApplication = ExtractFilePath(Application->ExeName);
    AnsiString CheminAide = (ExtractFilePath(Application->ExeName)+"Aide\\Aide.doc");
try
        {
 
    vMSWord = Variant::CreateObject("Word.Application");
        }
catch(...)
        {
    vMSWord = Variant::CreateObject("Word.Application");
        }
    vMSWord.OlePropertySet("Visible", true);
    vReadOnly = false; // lecture seule
 
 
    vFileName = CheminAide;
    vWDocuments = vMSWord.OlePropertyGet("Documents");
    vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);

[sat83]

Code :

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

vFileName = StringToOleStr( CheminAide );

[pottiez]

Tu l'as à quel moment ? en exécution ou à la compilation ? sur quel ligne précisément ?

[manworms2]

Code :

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

vFileName = StringToOleStr( CheminAide );

parfait merci , j avais chercher dans l'aide une conversion StrToVar ...
L ' erreur avait lieu a l'execution .
encore merci

[sat83]

Juste une remarque : l'utilisation de StringToOleStr() produit des fuites de mémoires.
Je te renvoi sur ce post où j'avais posé une question su le sujet.

Ah oui, et n'oublis pas de cliquer sur "Résolu" lorsque quelqu'un à répondu à ta question (sur ce poste, et sur les 3 ou 4 autres précédents)

[blondelle]

c'est le nom du chemin qui provoque l'erreur

vWDocument = vWDocuments.OleFunction("Open", vFileName,vReadOnly);

Je ne sais pas si il y a une regle a respecter mais a tester en fonction de l'erreur " vFileName " peu se passer comme ceci " WideString(vFileName) " ou " vFileName.c_str() "

[blondelle]

Je viens de me heurter a ce type d'erreur
Si vFileName a ete declare en Variant est provoque une erreur alors il faut ecrire " WideString(vFileName) ", si vFileName a ete declare en String et provoque une erreur il faut ecrire " vFileName.c_str() "