Salvar e recuperar XML no banco de dados

Question

Ol�, bom dia. Tudo bem com todos?Eu coloquei meu banco de dados firebird na Nuvem(SaveInCloud). Est� funcionando muito bem, meu sistema tamb�m. Perfeito! Por�m, trabalho com emiss�o de notas fiscais...

Paulo · Accepted Answer

Eu n�o salvaria o arquivo propriamente dito no banco. Vulgarmente falando o xml n�o passa de um arquivo de texto. Eu armazenaria o seu conteudo dentro de um campo blob. Quando o usuario for exportar...

Luan · Answer

Eu salvei o conte�do dentro de um campo blob. Eu n�o estou sabendo como ler o campo e gerar o arquivo xml.  Preciso gerar 20 XMLs, por exemplo. Como eu fa�o?...

Paulo · Answer

Eu criaria um campo blob sub type 1, segment size 100.

Referente a quantidade de XMLs a gerar isso vai ser sempre variavel, dependendo a dinamica do seu sistema e a necessidade do usuario. Supondo que a tabela de arquivos xml est� ligada a tabela de NFe voc� faz o select no banco trazendo apenas o resultado solicitado.

Para fazer a leitura do campo blob pode fazer assim,

FDQuery1.Fields[0].AsString;

Eu jogaria o conteudo dentro de uma tstringlist e salvaria onde o usuario pediu (voce trata isso com um savedialog).

Geralmente o nome do arquivo � a chave de acesso.xml

var xml : TStringList;
begin

  with FDQuery1 do begin
    Close;
    SQL.Clear;
    SQL.Add('seu select');
    Open;
  end;

  if not FDQuery1.IsEmpty then begin
    xml :=  TStringList.Create;
    xml.Add(FDQuery1.Fields[0].AsString);
    xml.SaveToFile('C:\\teste.xml');
  end;

  FreeAndNil(xml);