Sobreescrever xml delphi

19/04/2023

Bom dia,
estou com uma duvida, gostaria de saber se teria como eu sobrescrever um xml sem apagar o que j� est� nele, sem usar um ClientDataSet.

Eu tenho uma fun��o onde eu crio o xml, e na minha tela de configura��o de banco de dados eu tenho os dados para conex�o nesta tela chamo a fun��o. Gostaria de saber se teria como criar uma vez o xml depois ir salvando os dados nele sem apagar o que j� tem l�.

segue a fun��o que cria e alimenta o xml:

class function TMetodos.SetRegValue(key, value, data: string): boolean;
var
  XML: TXMLDocument;
  NodeTabela, NodeRegistro, NodeEndereco: IXMLNode;
begin
  try
    if not (FileExists((GetEnvironmentVariable('ProgramData') + '\Informatica\Fiscal\BancoDados.xml'))) then
    begin
      XML := TXMLDocument.Create(Application);
      XML.Active := True;
      NodeTabela := XML.AddChild('BancoDados');
      NodeRegistro := NodeTabela.AddChild('Valores');
    end;

    NodeRegistro.ChildValues[value] := data;


    XML.SaveToFile(GetEnvironmentVariable('ProgramData') + '\Informatica\Fiscal\BancoDados.xml');
  finally
    XML.Free;
  end;

segue parte do c�digo que mando os dados para fun��o:

   
       TMetodos.SetRegValue('\Informatica\Fiscal', 'Servidor', dtEstacaoServidora.Text);
        TMetodos.SetRegValue('\Informatica\Fiscal', 'CaminhoBanco', dtCaminho.Text);
        TMetodos.SetRegValue('\Informatica\Fiscal', 'Porta', dtPorta.Text);

deste jeito est� apenas gravando o servidor, acredito que com ClientDataSet daria certo, mas sem ele teria possibilidade tamb�m?

Obrigado

Igor Oliveira

Curtir t�pico + 0

Responder

Posts

19/04/2023

Arthur Heinrich

N�o sei se entendi a d�vida.

Seu programa verifica se um determinado arquivo existe. Se n�o existe, ele cria o componente XML vazio, acrescenta o "BancoDados" e salva.

Por�m, na segunda execu��o, o arquivo j� existe e o componente nem � criado. Deveria apresentar erro ao salvar, j� que a classe nem foi instanciada.

Acredito que voc� tenha que implementar o "else" do seu "if", indicando como criar a classe e carregar o arquivo existente, para que ele possa ser complementado.

Responder

Gostei + 0