Gérer les uses Delphi 6

Version imprimable

Bonsoir,

Je suis actuellement en train de développer une fonction qui permet d'ouvrir et modifier un document Word, enfin, pour être honnête, la fonction est déjà codé je ne fais que la modifier pour l'adapter à un nouveau document.

Le problème que je rencontre est que Delphi ajoute de son propre chef dans les uses "WordCS", du coup toutes les autre fonctions ne compilent plus même celles qui fonctionnaient initialement... :furieux:

J'ai une sauvegarder du projet ce n'est pas le soucis, mais je n'arrive pas à trouver dans les options ce que je pourrais changer pour bloquer cette initiative de Delphi :?
Je suis sous delphi 6 :roll:

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
31
32
33
34
35
36
37
38
39
 
 
//------------------------------------------------------------------------------
procedure TForm1.EditionWord;
var
  aFileName : AnsiString;
  WordDocument, WordDocuments : variant;
 
begin
    With Query Do
    Begin
      aFileName :='mondocument.docx';
      WordDocuments := WordApplication1.Documents;
      WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName);
      WordDocument.shapes.item(1).select;
      WordApplication1.selection.typetext(fieldbyname('NOM').AsString);
      WordDocument.shapes.item(2).select;
      WordApplication1.selection.typetext(fieldbyname('PRENOM').AsString);
      WordDocument.shapes.item(3).select;
      WordApplication1.selection.typetext(fieldbyname('ADR1').AsString + ' ' + fieldbyname('ADR2').AsString + ' ' + fieldbyname('VILLE').AsString);
      WordDocument.shapes.item(4).select;
      WordApplication1.selection.typetext(fieldbyname('CP').AsString);
      WordDocument.shapes.item(5).select;
      WordApplication1.selection.typetext(fieldbyname('EMAIL').AsString);
      WordDocument.shapes.item(1).select;
 
      aFileName := Repertoire+'\Resultats\'+'mondoc '+fieldbyname('NOM').AsString+' ' +fieldbyname('PRENOM').AsString+'.docx';
 
      WordDocument.SaveAs(aFileName,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam,
                 EmptyParam,EmptyParam,EmptyParam,EmptyParam);
      CopyFile(PChar(aFileName),PChar(FileListBox.Directory+'\'+ExtractFileName(aFileName)),False);
      FileListBox.Update;
    End;
    WordApplication1.Visible := true;
    WordApplication1.Disconnect;
    WordDocument := unassigned;
    WordDocuments := unassigned;
end;

25/04/2022, 21h02
Paul TOTH

étrange...que contient cette unité ?

en général c'est la présence d'un composant sur la fiche qui produit l'ajout automatique d'une unité dans les Uses.

place cette unité en début de Uses si elle perturbe ton code.
25/04/2022, 22h50
PetitBoutDeCode

Citation:

étrange...que contient cette unité ?

Eh bien je ne sais pas du tout , c'est la première fois que je bidouille un document Word avec Delphi..

Citation:

place cette unité en début de Uses si elle perturbe ton code.

Ca a marché! Si je comprend bien Delphi cherche en priorité une correspondance avec les uses en fin de liste?

Je sais pas si je dis ça correctement, mais merci pour le dépannage en tout cas! j'étais bloqué la dessus depuis quelques heures déjà :ptdr:
:zen:

WordApplication1 c'est un TWordApplication, c'est surement lui qui provoque l'ajout
Sinon c'est bête d'utiliser TWordApplication avec des variants, soit on fait tout en EarlyBinding avec TWordApplication soit tout en LateBinding avec OLEVariant

Si vous n'utilisez pas les inferfaces, supprimer WordApplication1 et remplacer par du OLE LateBinding voir Tutoriel
Code:

1 2 3 4 5 6 7 8 aFileName :='mondocument.docx'; WordDocuments := WordApplication1.Documents; // a Changer WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName); // ... à la fin WordApplication1.Visible := true; // a surppmier WordApplication1.Disconnect; // a surppmier
par
Code:

1 2 3 4 5 6 7 8 9 aFileName :='mondocument.docx'; WordApp := CreateOleObject('Word.Application'); // déclarer comme OLEVariant WordDocuments := WordApp.Documents; WordDocument := WordDocuments.Open(Repertoire+'\Documents\'+aFileName); // ... à la fin WordApp.Quit; WordApp := unassigned;
Cela te permettra de retirer WordCS des uses.

26/04/2022, 11h33
Paul TOTH

Citation:

Envoyé par PetitBoutDeCode

Ca a marché! Si je comprend bien Delphi cherche en priorité une correspondance avec les uses en fin de liste?

Je sais pas si je dis ça correctement, mais merci pour le dépannage en tout cas! j'étais bloqué la dessus depuis quelques heures déjà :ptdr:
:zen:

c'est le principe même du Pascal, un langage qui se compile en une seule passe. il se lit de haut en bas, donc ce qui est déclaré en dernier a la préférence sur ce qui précède; notamment quand deux unités déclarent des informations portant le même nom, c'est l'unité déclarée en dernier qui est utilisée...et pour utiliser un symbole, il DOIT avoir été déclaré précédemment, donc plus haut dans le code, Uses y compris.
28/04/2022, 09h32
PetitBoutDeCode
Je vois..

J'imagine que c'est ce qui arrive à force de copier/coller/adapter sans forcément comprendre l'intégralité du code :roll:.

Citation:

Si vous n'utilisez pas les inferfaces, supprimer WordApplication1 et remplacer par du OLE LateBinding voir Tutoriel

Effectivement cela corrige le soucis, en revanche j'étais passé par ce tutoriel avant de poster (sans comprendre l'origine du soucis) et je me suis rendu compte qu'il y avait une erreur (je crois),
Code:

1 2 3 4 5 try vMSWord := GetActiveOleObject('Excel.Application'); except vMSExcel := CreateOleObject('Excel.Application'); end;
Il faudrait remplacer par Word.Application non ?

Citation:

c'est le principe même du Pascal, un langage qui se compile en une seule passe. il se lit de haut en bas, donc ce qui est déclaré en dernier a la préférence sur ce qui précède; notamment quand deux unités déclarent des informations portant le même nom, c'est l'unité déclarée en dernier qui est utilisée...et pour utiliser un symbole, il DOIT avoir été déclaré précédemment, donc plus haut dans le code, Uses y compris.

C'est exactement le genre d'informations que j'aime apprendre, même si j'imagine que ça fait parti des bases qu'il me faudrait revoir :oops:
28/04/2022, 10h19
Paul TOTH

oui Excel.Application, c'est sans surprise utilisé pour dialoguer avec Excel :)

les bases me semble être un minimum, j'ai publié il y a longtemps un livre sur Delphi 7 dont les bases restent valides...mais il n'est plus en vente :)

j'ai cru le trouver en ligne sur ce site mais ce n'est que la table des matières ;)