Discussion :

[kribot]

bonjour

bon voilà j'ai un petit souci, j'aimerais créer un petit prog pour gérer mes films et donc je me suis dit pourquoi pas me mettre au xml par la même occasion.

Questions :
Peux t'on avoir un fichier xml vide à la base ?
Si oui est ce que ca ajoute ensuite ?

Le code suivant ne marche pas :o

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
 
var
  Form1: TForm1;
  Film, Acteurs, Acteur: IXMLNode;
 
procedure TForm1.btnAjoutFilmClick(Sender: TObject);
begin
  if (Verif()) then
  begin
    XML.FileName := ExtractFileDir(Application.ExeName) + '\collec.xml';
    XML.Active := True;
    AjouteFilm();
    XML.SaveToFile(ExtractFileDir(Application.ExeName) + '\collec.xml');
    end;
end;
//----------------------------------------------------------------------------
procedure TForm1.AjouteFilm();
var
  i : integer;
begin
  XML.DocumentElement := XML.CreateElement('Films','');
  Film := XML.DocumentElement.AddChild('Film');
  Film.Attributes['Titre'] := txtTitre.Text;
  Film.Attributes['Realisateur'] := txtRealisateur.Text;
  Film.Attributes['Annee'] := txtAnnee.Text;
  Film.Attributes['Genre'] := txtGenre.Text;
  Film.Attributes['Duree'] := txtDuree.Text;
  Film.Attributes['Resume'] := txtResume.Text;
  Film.Attributes['Image'] := ExtractFileName(Explorer.FileName);
  Acteurs := Film.AddChild('Acteurs');
  for i := 0 to lbxActeur.Items.Count -1 do
  begin
    Acteur := Acteurs.AddChild('Acteur');
    Acteur.Attributes['Nom'] := lbxActeur.Items[i];
  end;
end;
//----------------------------------------------------------------------------

Hélas ce code ne marche pas ca aurait été trop beau ^^
donc si vous aviez une idée ca m'arrangerait bcp
Merci d'avance !

[NoisetteProd]

Salut !

Alors tout d'abord :

Peux t'on avoir un fichier xml vide à la base ?

Non, il faut au moins un élément de niveau supérieur comme dirais Delphi !

Si oui est ce que ca ajoute ensuite ?

Bon, c'est non, mais on peut ajouter par la suite si ton XML de base est ok.

Alors, avec l'utilisation XMLDocument :

création du XML :

Code :

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

1
2
3
4
5
6
7
8
9
with XMLDocument1 do
        begin
          Active := True;
          Version := '1.0';
          Encoding := 'ISO-8859-1';
          AddChild('Collec');
          ....
          SaveToFile(IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'collec.xml');
          ....

Ajout d'un élément :

Code :

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

1
2
3
4
5
6
7
with XMLDocument1 do
         begin
           with ChildNodes['Collec'].ChildNodes do
           begin
             Attributes['Titre'] := txtTitre.Text; 
             Attributes['Realisateur'] := txtRealisateur.Text; 
             ....

Voila... j'epère que ces pistes vont t'aider...

Noisette

P.S. :

Code :

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

XML.FileName := ExtractFileDir(Application.ExeName) + '\collec.xml';

n'est pas super... il vaut mieux à mon gout :

Code :

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

IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'collec.xml'

extrait de l'aide DELPHI :

Unité : SysUtils

Syntaxe Delphi : functionIncludeTrailingPathDelimiter(constS:string):string;

Description : IncludeTrailingPathDelimiter garantit qu'un chemin d'accès se termine par un délimiteur ('\'sous Windows,'/'sous Linux).Si S se termine déjàpar un délimiteur,il est renvoyétel quel*;sinon,il est renvoyéavec le délimiteur ajouté.

[kribot]

Merci ca fonctionne ! pour la création
je vais voir pour l'ajout
Mici ^^

[NoisetteProd]

de rien

Si tu as d'autres questions, hésites pas !