Bloco X - Arquivo Zip inválido

[ivan]

Prezados, 

Gero o arquivo ZIP utilizando o ABZippper.

Após gerar o arquivo zip, utilizo o "EncodeBase64(arquivo_zip)"

EnviarBlocoX.XMLZipado := EncodeBase64(arquivo_zip);

Retorna mensagem de "Arquivo ZIP inválido"

 

Como vocês tem feito para conseguir enviar o arquivo ?
 

[EMBarbosa]

Não estou utilizando esse componente, mas se não me engano, você não precisa precisa fazer um EncodeBase64 porque o componente faz automaticamente na hora de fazer a leitura.

 

[ivan]

Certo, pra mim não resolveu pois o meu compilador não suporta, segundo mensagem.

Descobri que o meu arquivo ZIP estava errado, mas consegui usando esta function (passando o nome do arquivo ZIP) e passando para o XMLZipado o resultado dela.

   function LoadFileToAnsiStr(const FileName: TFileName): AnsiString;
   var
     FileStream : TFileStream;
   begin
     FileStream:= TFileStream.Create(FileName, fmOpenRead or fmShareDenyWrite);
     try
       if FileStream.Size>0 then
       begin
        SetLength(Result, FileStream.Size);
        FileStream.Read(Pointer(Result)^, FileStream.Size);
       end;
      finally
       FileStream.Free;
      end;
   end;