Utilisation de msxml

Version imprimable

Bonjour

Je crée un document kml en utilisant iXMLDomDoc

Je n'rrivz pas à mettre en entête du document la version et l'encodage utilisé du xml
<?xml version="1.0" encoding="UTF-8"?>

Code:

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
 
  DOMDoc   := CoDOMDocument.Create;
  with DOMDoc do begin
    async := false;
    DocumentElement     := createElement('kml');  //création de l'élément racine
    NodeAttribute       := createAttribute('xmlns');
    NodeAttribute.value := 'http://www.opengis.net/kml/2.2';
    DocumentElement.Attributes.setNamedItem(NodeAttribute);
    NodeAttribute       := createAttribute('xmlns:gx');
    NodeAttribute.value := 'http://www.google.com/kml/ext/2.2';
    DocumentElement.Attributes.setNamedItem(NodeAttribute);
    NodeAttribute       := createAttribute('xmlns:kml');
    NodeAttribute.value := 'http://www.opengis.net/kml/2.2';
    DocumentElement.Attributes.setNamedItem(NodeAttribute);
    NodeAttribute       := createAttribute('xmlns:atom');
    NodeAttribute.value := 'http://www.w3.org/2005/Atom';
    DocumentElement.Attributes.setNamedItem(NodeAttribute);
 
    NodeDoc         := createNode('element','Document','');
    documentElement.appendChild(NodeDoc);
    Node       := createNode('element','Name','');
    NodeText := createTextNode('Test');
    Node.appendChild(NodeText);
    NodeDoc.appendChild(Node);
 
    save(Test.kml);
  end;

Cordialement

Insère la ligne manuellement

Code:

1
2
3
4
5
6
7
8
9
var
  Xml: TStringList;
begin
  Xml := TStringList.Create;
  Xml.LoadFromFile('Test.kml');
  Xml.Insert(0, '<?xml version="1.0" encoding="UTF-8"?>');
  Xml.SaveToFile('Test.kml');
  Xml.Free;
end;

Citation:

Envoyé par XeGregory

Insère la ligne manuellement

Code:

1
2
3
4
5
6
7
8
9
var
  Xml: TStringList;
begin
  Xml := TStringList.Create;
  Xml.LoadFromFile('Test.kml');
  Xml.Insert(0, '<?xml version="1.0" encoding="UTF-8"?>');
  Xml.SaveToFile('Test.kml');
  Xml.Free;
end;

Certainement pas !!!

Il faut utiliser la routine faite pour cela : createProcessingInstruction.
Donc

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 DOMDoc := CoDOMDocument.Create;
  with DOMDoc do
  begin
    async := false;
    appendChild(createProcessingInstruction('xml', 'version="1.0" encoding="UTF-8"'));
 
    DocumentElement     := createElement('kml');  //création de l'élément racine
    NodeAttribute       := createAttribute('xmlns');
    NodeAttribute.value := 'http://www.opengis.net/kml/2.2';
 
    ...
 
    save('Test.xml');
end;