Discussion :

[inspecteur rick]

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;

[ShaiLeTroll]

c'est normal, le "™" que tu utilises c'est le code 153 du charset 'window 1252' mais tu encode la page en 'iso-8859-1' où le 153 c'est un caractère de contrôle non imprimable donc un carré

sinon passe à un encodage UTF8 mais ce affichera des combinaisons multicaratères ...

[inspecteur rick]

Merci de la réponse et désolé du retard (fêtes oblige)

J'ai essayé avec

Code :

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

1
2
XMLDoc.Version:='1.0';
XMLDoc.Encoding:='UTF-8';

Mais les accents sont remplacés par des trucs bizarres et le "tm" ne passe pas, j'ai "â„¢" à la place

Une autre idée ?
Merci

[ShaiLeTroll]

Bien sur, c'est un encodage, si tu passe de l'un à l'autre, il faut traduire les caractères ... ça ne se fait pas tout seul !

pourquoi forces-tu l'encoding ? le fichier devrait le contenir !

[inspecteur rick]

Salut

Traduire les caractères, je veux bien mais comment faut-il s'y prendre ?

pourquoi forces-tu l'encoding ? le fichier devrait le contenir !

Ben, j'utilise TXmlDocument et quand j'utilise la procédure SaveToFile je n'ai pas les accents et les lettres en exposant. Mon xml n'a aucune entête.
En rajoutant XMLDoc.Encoding:='iso-8859-1", s'obtient les accents.

[ShaiLeTroll]

Au fait, il ne faut pas utiliser Destroy mais Free pour libérer un objet ...

Donc tu es en écriture, donc si tu mets

Code :

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

XMLDoc.Encoding:='UTF-8';

tu auras tes caractères mais notepad ne pourra pas les lire, seul un navigateur comme FireFox, IE ... ou un éditeur XML gérant correctement le CharSet ira faire la transcription des Äx ... en caractère lisible, tu devrais te documenter sur ce qu'est un CharSet !