Compressão de XML

[Jeihcio Francis]

O ACBr possuí algum módulo para zipar XML e converter para base 64? Eu vi que na pasta de "terceiros" contém a "ZLibExGZ", mas eu queria saber se o componente já contém algum módulo para isso. O meu problema é o seguinte, eu estou usando o ACBreSocial e ACBrReinf, e preciso salvar no banco de dados o XML de envio e o XML de retorno, contudo o banco de dados vem crescendo exponencialmente e eu queria gravar o XML reduzido no banco. Já existe alguma solução para isso? Eu procurei nos fóruns e não achei, o máximo que achei foi algo falando sobre o "BlocoX".

[Daniel Simoes]

Veja em ACBrUtil.pas

function UnZip(S: TStream): AnsiString; overload;
function UnZip(const ABinaryString: AnsiString): AnsiString; overload;
function Zip(AStream: TStream): AnsiString; overload;
function Zip(const ABinaryString: AnsiString): AnsiString; overload;

 

[Jeihcio Francis]

Sobre as funções de base 64 eu achei uma unit da ACBr que faz isso, a "synacode". Queria só compartilhar caso alguém no futuro também precise da resposta da minha pergunta. 

[Jeihcio Francis]

Só para complementar, eu procurei e não achei no componente da ACBr se existia alguma função para verificar se a string era base 64 ou não, porém achei um método que funcionou perfeitamente nesse link: https://stackoverflow.com/questions/6895009/how-to-detect-if-a-string-is-base64encoded-or-not