Discussion :

[popo]

Bonjour,

Je cherche à encoder un document XML en UTF-8.
J'ai passé la propriété Encoding de mon TXMLDocument à 'UTF-8'

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
XMLDoc := TXMLDocument.Create(nil);
with XMLDoc do
begin
    Active := False;
    FileName := '';
    Active := True;
    Version := '1.0';
    Encoding := 'UTF-8';
 
    Bla bla
 
    SaveToFile('C:/Test.xml');
end;

Cependant lorsque je l'ouvre avec Notepad++, l'encodage est en ANSI.

Le but de la manoeuvre est de passer une chaine XML a un WebService.
Au départ j'avais essayé de le passer via un stream grace au code suivant.

Code :

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

1
2
Stream := TStringStream.Create('');
XMLDoc.SaveToStream(Stream);

Et ensuite je passais la chaine contenu dans Stream.DataString au WebService. Mais ça ne fonctionnais pas.

La solution qui semble fonctionner même si elle ne me plait pas est d'enregistrer le fichier XML puis d'envoyer son contenu au webservice. ça passe très bien si le fichier est encodé en UTF-8. Ce qui m'oblige à ouvrir le fichier XML avec Notepad++, de passer l'encode à UTF-8 et d'enregistrer avant de pouvoir envoyer son contenu au webservice.

Donc je cherche à obtenir le bon encode sans passer par cette étape manuelle.
J'ai lu qu'il suffisait de définir la propriété Encoding correctement pour que ça marche mais apparement ce n'est pas le cas. Je me retrouve avec un fichier XML avec cet en-tête : <?xml version="1.0" encoding="UTF-8"?> mais il est encodé en ANSI.

Quelqu'un a t'il une solution ?

[ShaiLeTroll]

Tu peux accéder à la propriété XML.Text pour avoir une chaine !
Pour l'encodage, je te confirme, il est capricieux !
Je me demande, si j'encodais pas mes chaines avec UTF8Encode ? Non ça c'est quand je modifiais le fichier manuellement sans XMLDoc !

Je sais que j'ai souvent triché en forçant du latin-1 ou window-1252 et d'avoir modifié à l'arrache le contenu de mes XML et SOAP (pour ajouter les balises manquantes que ne connais pas D7)

Dans les Delphi récents, tu as un type XML remotable pour les WebService via THTTPRIO et les interfaces remotables

Pense à mettre un owner à ton TXMLDocument, tu auras sinon une belle erreur à la libération ou sinon tu appeles explicitement ClearDocumentRef avec le Free
D'ailleurs le TXMLDocument avec Owner est plus stable dans sa gestion des références de ses interfaces qu'avec nil !

Je me rappelle avoir envoyer du XML à un WebService, je suis passé par un TClientDataSet, je devais juste envoyer une ligne, je récupérais la seule ROW du XML, l'encodage était nickel !

[sjrd]

Appelle la méthode suivante sur ton IXMLDOMDocument avant de l'enregistrer :

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
{*
  Crée le header XML pour un document XML s'il n'est pas déjà présent
  @param Document   Document pour lequel créer le header
*}
procedure CreateXMLHeaderIfNotExists(const Document: IXMLDOMDocument);
const
  XMLHeaderTarget = 'xml';
  XMLHeaderData = 'version="1.0" encoding="UTF-8"';
begin
  if not Supports(Document.childNodes[0], IXMLDOMProcessingInstruction) then
  begin
    Document.insertBefore(
      Document.createProcessingInstruction(XMLHeaderTarget, XMLHeaderData),
      Document.childNodes[0]);
  end;
end;

Ca va assurer l'enregistrement en UTF-8.

Tu peux aussi trouver une série de fonctions pratiques pour travailler avec des IXMLDOMDocument dans mon unité ScXML.pas.

[popo]

Le problème est interne en fait. L'entreprise pour laquelle je travaille a redéfini le SOAP. J'ai contourné le problème en créé une appli qui ne contient pas les paquet SOAP de mon entreprise et je la lance via creatprocess