Recuperar dados e arquivo XML pelo DOCZip

[mmcamilo]

Boa tarde PessoALL...

Tem uma empresa com a seguinte situação... Por imprudência do usuário, todos os arquivos XML de 2 anos pra cá foram excluídos, pra variar não existe backup mas olhando o banco de dados deles tem um campo numa tabela específica que possui as informações compactadas do DOCZip, então pensei que se tivesse como carregar o DOCZip no componente novamente, poderia tentar gravar esses arquivos XML de novo. Alguém teria uma idéia se é possível carregar ou já descompactar direto o DOCZip sem passar pelo processo natural do ACBRNFe, quando usamos o WebService ACBrNFe1.WebServices.DistribuicaoDFe.retDistDFeInt.docZip[0].XML.  Pelo jeito gravavam o campo infZip ao invés do campo XML... Vai entender... 

Desde já agradeço a ajuda.

Márcio

 

[BigWings]

30 minutos atrás, mmcamilo disse:

Alguém teria uma idéia se é possível carregar ou já descompactar direto o DOCZip sem passar pelo processo natural do ACBRNFe

Já estudou o fonte do ACBr que faz essa conversão?

Na unit pcnRetDistDFeInt.pas tem o código:

StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
FdocZip.Items[i].FInfZip := StrAux;
StrDecod := UnZip(DecodeBase64(StrAux));

Na terceira linha você deve ter o XML. Basta adaptar para o teu caso.

[mmcamilo]

32 minutos atrás, BigWings disse:

Já estudou o fonte do ACBr que faz essa conversão?

Na unit pcnRetDistDFeInt.pas tem o código:

StrAux := RetornarConteudoEntre(Leitor.Grupo, '>', '</docZip');
FdocZip.Items[i].FInfZip := StrAux;
StrDecod := UnZip(DecodeBase64(StrAux));

Na terceira linha você deve ter o XML. Basta adaptar para o teu caso.

Acabei de ver aqui, realmente você tinha razão, deu certinho. Muito Obrigado. 

[Juliana Tamizou]

Obrigado por reportar.

Fechando. Para novas dúvidas, criar um novo tópico.