EnviarBlocoX.XMLZipado Delphi 7

[rlind]

Boa Dia ,

ao executar Envio de XML da Redução Z do bloco X

"WebServices.EnviarBlocoX.XMLZipado := EncodeBase64('c:\ReducaozX'+  copy(dataConv(leitura.data),7,2)+copy(dataConv(leitura.data),5,2)+copy(dataConv(leitura.data),1,4) + '.zip');"

, retorna a Tag <mensagem> da SituaçaoProcessamentoDescrição  com o texto  "Arquivo ZIP invalido"

 

Segue em anexo rotina em "Delphi7" executada , onde eh chamada  a função EncodeBase64, passando o caminho do arquivo Zipado ( que esta na pasta referenciada no codigo fonte)

Alguem poderia orientar porque não eh um arquivo .ZIP valido?

Aguardo retorno.

 

Muito Obrigado.

 

 

erroZIPADO.txt

[Juliomar Marchetti]

Utilize a função que tem no svn para delphi 7 

[rlind]

Esta certo, verifiquei por aqui.

No caso voce se refere a função function Zip(AStream: TStream): AnsiString; overload;

em acbrUtil, certo?

Obrigado pelo retorno.

Editado 23 Abril, 2018 por rlind

[rlind]

 

 

Obrigado pelo retorno.

[Felipe E. Resende Mesquita]

3.1 - Não faça flooding - Inundar o fórum com posts repetidos, com a mesma dúvida ou as mesmas palavras é chamado de flooding. Isso é proibido. Apenas um post feito no lugar certo é suficiente. Pesquise antes de postar, talvez sua dúvida já está respondida em outro post. Leia as regras do forum...