Discussion :

[qi130]

En suivant l'exemple de la FAQ sur le pilotage OLE de Word, un button déclenche :

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
50
51
52
procedure TOKBottomDlg.SpeedButton4Click(Sender: TObject);
var
    DocWord:_Document;
    i:integer;
    FileName: OleVariant; 
    ConfirmConversions: OleVariant;
    ReadOnly: OleVariant;
    AddToRecentFiles: OleVariant;
    PasswordDocument: OleVariant;
    PasswordTemplate: OleVariant;
    Revert: OleVariant;
    WritePasswordDocument: OleVariant;
    WritePasswordTemplate: OleVariant;
    Format: OleVariant;
    Encoding: OleVariant;
    Visible: OleVariant;
    Zone:Range;
    Signet,SaveChanges:OleVariant;
begin
 
    FileName:=ExtractFilePath(ParamStr(0))+'MAtrice.doc'; // ou Document.rtf, ...
    ConfirmConversions:=False;
    ReadOnly:=False;
    AddToRecentFiles:=False;
    PasswordDocument:=EmptyParam;
    PasswordTemplate:=EmptyParam;
    Revert:=False;
    WritePasswordDocument:=EmptyParam;
    WritePasswordTemplate:=EmptyParam;
    Format:=EmptyParam;
    Encoding:=EmptyParam;
 
    Visible:=True; // Le serveur COM est affiché 
 
    DocWord:=WordApplication1.Documents.Open(FileName,ConfirmConversions,ReadOnly,
                                            AddToRecentFiles,PasswordDocument,
                                            PasswordTemplate,Revert,
                                            WritePasswordDocument,
                                            WritePasswordTemplate,Format,
                                            Encoding,Visible);
// mes ajouts de signets
    Signet:='MOA';
    Zone:=WordApplication1.ActiveDocument.Bookmarks.Item(Signet).Range;
    Zone.Text := MOA1;
 
    FileName:=ExtractFilePath(ParamStr(0))+ID_appli+'.doc';
    DocWord.SaveAs(FileName,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam);
    SaveChanges := wdDoNotSaveChanges;
    WordApplication1.Quit(SaveChanges);
end;

Le pb : au 1er clic ça marche nickel, mais si je re-clique j'ai une exception
OLE

Le serveur RPC n'est pas disponible...

Je n'ai pas vu de process fantôme qui trainait.

Il doit manquer un release d'une ressource, mais la FAQ semble muette sur le sujet

[RamDevTeam]

il faut que tu te déconnecte du serveur RPC.

wordapplication1.quit demande au serveur de demandé à word de quitter mais ton objet wordapplication1 est toujours connecté. donc le serveur RPC ne peut répondre à une nouvelle demande.



Tu peux automatiser ça sur l'évenement OnQuit du
WordApplication.

Code :

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

1
2
 
wordApplication1.disconnect;

et n'oublie pas autoquit à true dans les propriétés.

Attention à l'utilisation des composants Wordapplication et worddocument. ils sont lié à une version d'office.

[Laurent Dardenne]

Salut,
quelle est exactement la QR concernée ?

[qi130]

il faut que tu te déconnecte du serveur RPC.

wordapplication1.quit demande au serveur de demandé à word de quitter mais ton objet wordapplication1 est toujours connecté. donc le serveur RPC ne peut répondre à une nouvelle demande.



Tu peux automatiser ça sur l'évenement OnQuit du
WordApplication.

Code :

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

1
2
 
wordApplication1.disconnect;

et n'oublie pas autoquit à true dans les propriétés.

Attention à l'utilisation des composants Wordapplication et worddocument. ils sont lié à une version d'office.

Oui, oui, c'était bien ça....

Grand merci.


Laurent: si "QR" veut dire n° d'entrée dans la FAQ, il s'agit de la 13.2 (http://delphi.developpez.com/faq/?page=worddelphi

et plus précisément, la FAQ en défaut est http://delphi.developpez.com/faq/?pa...elphi#wordword ...

Donc au choix:
- soit amender la FAQ de Bidou
- soit ajouter une FAQ:

Comment libérer l'instance de TWordApplication ?

Tout appel à la méthode connect de l'objet TWordApplication doit être suivi, en fin d'utilisation, d'un appel à la méthode disconnect, sous peine de déclencher une exception OLE "Le serveur RPC n'est pas disponible" en cas de nouvel appel à connect.

A cet effet, il est recommandé de déporter cet appel dans le gestionnaire d'événement OnQuit du TWordApplication:

Code :

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

1
2
3
4
procedure T<<mon_dialog>>.WordApplication1Quit(Sender: TObject);
begin
     wordApplication1.disconnect;
end;

en ayant pris soin de positionner à true sa propriéré AutoQuit.


Je pense d'ailleurs que même motif, même punition pour Excel and co.

[Laurent Dardenne]

Merci,
je vais complèter cette QR (Question/Réponse dans notre jargon)
Il manque aussi un lien sur ce tutoriel :
http://lfe.developpez.com/PasWord/