Programmation par unités multiples

Version imprimable

09/06/2005, 20h11
Mimi Bulles

Programmation par unités multiples

Bonsoir, j'ai un problème tout bête, mais que je ne comprend pas...

J'ai écris une unité comportant quelques méthodes (XmlIni.pas). Je veux utiliser cette unité dans un projet.

Je mets donc dans Uses 'XmlIni', j'ajoute l'unité via le dialogue de Delphi.
le problème, c'est que on projet ne compile pas, car il ne retrouve pas les méthodes contenues dans cette nouvelle Unité !

J'ai oublié quelque chôse ?

Merci de votre aide !
09/06/2005, 20h47
MD Software

Ces méthodes de XmlIni.pas, elles sont dans une classe où elles sont globales ?

Comme ceci :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 unit XmlIni; interface uses Classes, XmlIntf, SysUtils; implementation function selectNode(parent: IXmlNode; childName: String):IXmlNode ; var rslt: IXmlNode; begin rslt := parent.ChildNodes.FindNode(childName); if not Assigned(rslt) then rslt := parent.AddChild(childName); //si le noeud n'existe pas, on le crée Result := rslt; end; ... end.
En fait, j'aurais aimé créer un composant dérivé de XmlDocument, mais je ne sais pas comment ajouter les nouvelles fonctions à l'interface IXmlNode :cry:

Déclare une classe qui hérite de TXMLDocument.
Par exemple :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
unit XmlIni; 
 
interface 
  uses Classes, XmlIntf, SysUtils; 
 
type
  TMonXml = class(TXMLDocument)
  public
    function selectNode(parent: IXmlNode; childName: String):IXmlNode ; 
  end;
 
implementation 
 
  function TMonXml.selectNode(parent: IXmlNode; childName: String):IXmlNode ; 
var 
  rslt: IXmlNode; 
begin 
  rslt := parent.ChildNodes.FindNode(childName); 
  if not Assigned(rslt) then rslt := parent.AddChild(childName); //si le noeud n'existe pas, on le crée 
  Result := rslt; 
end; 
... 
end.

Tu dois déclarer dans la partie interface les fonctions/classes/... qui sont utilisables en dehors de l'unité

Tu dois aussi ajouter l'unité au projet

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
 
unit XmlIni;
 
interface
  uses Classes, XmlIntf, SysUtils;
 
  function selectNode(parent: IXmlNode; childName: String):IXmlNode ;
 
implementation
 
  function selectNode(parent: IXmlNode; childName: String):IXmlNode ;
var
  rslt: IXmlNode;
begin
  rslt := parent.ChildNodes.FindNode(childName);
  if not Assigned(rslt) then rslt := parent.AddChild(childName); //si le noeud n'existe pas, on le crée
  Result := rslt;
end;
...
end.

09/06/2005, 22h11
Mimi Bulles
Merci cpdump :wink:

Pour MD Software, en fait, si je fais comme tu as dit, mes méthodes vont s'appliquer au XmlDocument.

moi j'avais en tête autre chôse :?

En fait, mes méthodes demandent toujours un IXmlNode, pour travailler dessus. Ce que je voulais faire, c'est éliminer ce paramètre.

Donc, du genre
Code:

1 2 XmlDoc.DocumentElement.SelectNode('test');
au lieu de faire comme je fais actuellement
Code:

1 2 SelectNode(XmlDoc.DocumentElement, 'test');
de manière à ce que je puisse utiliser mes méthodes sur n'importe quel noeud.

Je ne suis pas sûre d'avoir été claire :oops:

Pour résumer, je veux faire un genre de TIniFile, mais en travaillant sur un XML. Mes méthodes permettent d'écrire comme dans un fichier ini, mais sur n'importe quel node.

J'ai vu des compo qui font la même chôse que moi, mais la structure ressemble trop à un fichier ini, tandis que moi je voudrais un truc plus ouvert.

A mon avis, faire ceci :

Code:

XmlDoc.DocumentElement.SelectNode('test');

va te poser des problèmes car tu veux travailler sur une interface. C'est possible, mais ça va être long à faire, car il va y avoir des conséquences quand tu vas vouloir faire utiliser ta nouvelle interface à ton XMLDocument.

Une solution qui peut-être va t'arranger, c'est de faire une méthode dédiée, grâce au XMLDocument. Voici un bout de code :
Code:

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 TMonXmlDocument = class(TXMLDocument) public function SelectNode(childName: String):IXmlNode); //...... end; implementation function TMonXmlDocument.SelectNode(childName: String):IXmlNode); var rslt: IXmlNode; begin rslt := DocumentElement.ChildNodes.FindNode(childName); if Not Assigned(rslt) then rslt := parent.AddChild(childName); Result := rslt; end; end;
Bien sûr, avec ce système, tu ne peux plus "jouer" sur le parent.