Hola,
Cita:
Empezado por friendspark
ya lo he solucionado, si alguien quiere saberlo que me lo diga y se lo pongo.
|
Hombre, yo no creo que sea menester, ya que empezaste tú mismo el Hilo, que nadie te diga nada, para que, si lo has solucionado, como dices, hagas saber cómo y de qué manera. Yo, por ejemplo, como no sabía que lo hubieras solucionado, preparé lo siguiente, por ver si podía ayudarte en algo.
Código Delphi
[-]
program Ejemplo;
{$APPTYPE CONSOLE}
uses
Forms, ActiveX, XMLIntf, XMLDoc;
var
docXml: TXMLDocument;
procedure InicializarDocumentoXml;
begin
CoInitialize(nil);
docXml := TXMLDocument.Create(Application);
docXml.Options := [doNodeAutoIndent];
docXml.Active := true;
docXml.Version := '1.0';
docXml.AddChild('Configuracion');
end;
procedure GuardarDocumentoXml(const archivo: string);
begin
docXml.SaveToFile(archivo);
docXml.Free; end;
procedure EscribirValorEnDocumentoXml(const clave, valor: string);
var
nodo: IXMLNode;
begin
nodo := docXml.DocumentElement.ChildNodes.FindNode(clave);
if not Assigned(nodo) then
nodo := docXml.DocumentElement.AddChild(clave);
nodo.Text := valor;
end;
begin
InicializarDocumentoXml;
EscribirValorEnDocumentoXml('Clave', 'Valor');
EscribirValorEnDocumentoXml('Clave', 'Valor');
EscribirValorEnDocumentoXml('Clave', 'Valor2');
GuardarDocumentoXml('C:\archivo.xml');
end.