[Delphi 2005] Librairie Word (Word

[Delphi 2005] Librairie Word (Word_TLB) ne compile pas

Bonjour,

Je me suis intéressé à l'article de Nono40 sur le correcteur orthographique Word (http://nono40.developpez.com/tutorie...rd/correction/)..

J’ai ouvert un nouveau projet File->new->VCL Form Application for Delphi win 32
Puis j’ai directement installé la librairie en suivant les consignes de l’article.
J’ai mis word_tlb dans les uses de mon mainForm, et j’ai fait un premier run
Surprise, le compilateur m'a indiqué une erreur dans la librairie.

Je travaille avec Delphi2005 Architect (update 3), Windows XP (service pack 2) et la suite office 2003.

J'ai cherché sur le site de Borland et quelques newsgroups. Mais rien.

Quelqu'un aurait il rencontré le meme genre de probleme ou aurait il une idée?

Par avance merci,

Nicolas

J'ai mis la section problématique en commentaire Masi cela me pose toujours un problème puisque c'est une librairie que je n'ai aps écrite...

Si tu pouvais nous donner le texte de l'erreur et la ligne correspondante :roll:

Si le fait de mettre une partie de l'unite tlb en commentaire n'est pas un problème vu que c'est une unité déduite du fichier .TLB de Microsoft. Mais je suis tout te même curieux de connaitre l'erreur...

Désolé, voici le message et le code incriminé :

Erreur : Word_TLB.pas(34713): E2015 Operator not applicable to this operand type

procedure TWordDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);

begin

case DispID of

-1: Exit; // DISPID_UNKNOWN

4: if Assigned(FOnNew) then

FOnNew(Self);

5: if Assigned(FOnOpen) then

FOnOpen(Self);

6: if Assigned(FOnClose) then

FOnClose(Self);

7: if Assigned(FOnSync) then

FOnSync(Self, Params[0] {MsoSyncEventType});

8: if Assigned(FOnXMLAfterInsert) then

FOnXMLAfterInsert(Self,

IUnknown(TVarData(Params[0]).VPointer) as XMLNode {const XMLNode},

Params[1] {WordBool});

//9: if Assigned(FOnXMLBeforeDelete) then

// FOnXMLBeforeDelete(Self,

// IUnknown(TVarData(Params[0]).VPointer) as Range {const Range},

// IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode},

// Params[2] {WordBool});

end; {case DispID}

end;

Ce code est illisible comme ça. Encadre-le de balises [code] et supprime les lignes vides.

Désolé, voici le code plus lisible...

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
 
procedure TWordDocument.InvokeEvent(DispID: TDispID; var Params: TVariantArray);
begin
  case DispID of
    -1: Exit;  // DISPID_UNKNOWN
    4: if Assigned(FOnNew) then
         FOnNew(Self);
    5: if Assigned(FOnOpen) then
         FOnOpen(Self);
    6: if Assigned(FOnClose) then
         FOnClose(Self);
    7: if Assigned(FOnSync) then
         FOnSync(Self, Params[0] {MsoSyncEventType});
    8: if Assigned(FOnXMLAfterInsert) then
         FOnXMLAfterInsert(Self,IUnknown(TVarData(Params[0]).VPointer) as XMLNode {const XMLNode},Params[1] {WordBool});
    9: if Assigned(FOnXMLBeforeDelete) then
         OnXMLBeforeDelete(Self,IUnknown(TVarData(Params[0]).VPointer) as Range {const Range},IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode},Params[2] {WordBool}); 
  end; {case DispID}
end;

et l'erreur : Erreur : Word_TLB.pas(34713): E2015 Operator not applicable to this operand type

c'est le cas égal à 9 qui pose problème

Je me souviens maintenant que j'avais eut cette erreur.
J'avais importé la TLB bien avant d'écrire cet article et je n'ai plus pensé à ce problème lors de sa rédaction.

Il faut corriger le cas 9 comme suit :
Code:

1 2 3 4 5 9: if Assigned(FOnXMLBeforeDelete) then FOnXMLBeforeDelete(Self, IUnknown(TVarData(Params[0]).VPointer) as Word_TLB.Range {const Range}, IUnknown(TVarData(Params[1]).VPointer) as XMLNode {const XMLNode}, Params[2] {WordBool});
Je vais mettre à jour l'article pour tenir compte de ce problème. :wink:

Merci beaucoup :)