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 !

[inspecteur rick]

Ok, merci pour le renseignement pour libérer un objet.

En effet, IE lit parfaitement mon xml que ce soit en UTF-8 ou iso-8859-1.
C'est le logiciel dans lequel je l'importe qui le lis mal.
Quoique ... vu qu'il exporte et réimporte parfaitement ses xml en iso-8859-1.

[ShaiLeTroll]

C'est le logiciel dans lequel je l'importe qui le lis mal

Un autre logiciel, qui n'est pas de ta conception ?

peut-être qu'il ne transcrit que ce CharSet, c'est possible, en tout cas "™" ne pourra jamais passé en "iso-8859-1", tout simplement parce que le caractère n'existe pas dans cette table !

[inspecteur rick]

Oui, logiciel qui n'est pas de moi.

Par contre, il exporte le "TM" en xml en iso-8859-1. Petit carré lors de la visualisation sous IE et quand je réimporte ce même xml, il retranscrit parfaitement le "TM". Bizarre, non ?

[ShaiLeTroll]

ça c'est parce qu'il doit forcer en fait le CharSet "Window 1252" qui est une extension de iso-8859-1 \ latin1, en ajoutant les caractères utiles qui manquent ! comme le "™"

[inspecteur rick]

Et donc je peux y faire quelque chose ou pas. Je dois encoder en quoi pourqu'il reconnaisse mon "TM" ?

[inspecteur rick]

Ok, merci, j'avais pas compris
Il suffit de mettre encoding en windows-1252 et ca marche

Merci.