Bonjour

Je suis un débutant en programmation et je rencontre un problème lors de la création d'un fichier xml.
Quand j'essaye de récupérer le texte "™" par exemple, lorsque j'ouvre le xml dans IE, j'ai un symbole à la place (petit rectangle). Lorsque j'ouvre le fichier xml avec le bloc note j'ai le code ™ à la place.

J'ai cherché sur internet, mais j'ai pas trouvé de solution. Quelqu'un peut-il m'aider ?
Merci.

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
procedure TForm1.EcritureCatalogue(Fichier: TTraitement);
Var
Catalog,Properties, movie, Contents : IXMLNode;
begin
If  compteur = 0 then
begin
XMLDoc.Version:='1.0';
XMLDoc.Encoding:='iso-8859-1';
XMLDoc.DocumentElement := XMLDoc.CreateElement('AntMovieCatalog','');
          XMLDoc.DocumentElement.Attributes['Format'] := '35';
          XMLDoc.DocumentElement.Attributes['Version'] := '3.5.1 (2007-09-22)';
          XMLDoc.DocumentElement.Attributes['Date'] := '17/08/2008 17:44:15';
      Catalog:=XMLDoc.DocumentElement.AddChild('Catalog');
          Properties := Catalog.AddChild('Properties');
          Contents := Catalog.AddChild('Contents');
 
end;
compteur:=compteur+1;
movie := XMLDoc.DocumentElement.ChildNodes.FindNode('Catalog').ChildNodes.FindNode('Contents').AddChild('Movie');
 
              movie.Attributes['Number'] :=compteur;
              movie.Attributes['Checked'] :='True';
              movie.Attributes['Date'] := date;
              movie.Attributes['OriginalTitle'] :=Fichier.OriginalTitle;
              movie.Attributes['Length'] :=Fichier.Lengths;
              movie.Attributes['URL'] :=Fichier.URL;
              movie.Attributes['VideoFormat'] :=Fichier.VideoFormat;
              movie.Attributes['VideoBitrate'] :=Fichier.VideoBitrate;
              movie.Attributes['AudioFormat'] :=Fichier.ListeFormatAudio;
              movie.Attributes['AudioBitrate'] :=Fichier.AudioBitrate;
              movie.Attributes['Resolution'] :=Fichier.Resolution;
              movie.Attributes['Framerate'] :=Fichier.Framerate;
              movie.Attributes['Languages'] :=Fichier.ListeLanguagesAudio;
              movie.Attributes['Subtitles'] :=Fichier.ListeLangauagesSousTitre;
              movie.Attributes['Size'] :=Fichier.Size;
ProgressBar1.Position:= ProgressBar1.Position + 1;
fichier.destroy;
end;