[Bloco X Arquivo Zip Inválido]

TÓPICO FINALIZADO!

[Zipar xml no Delphi 2010 Bloco X]

Eu estou usando o ZipMaster mas da arquivo inválido... pode me ajudar?

Pode compartilhar o function ZipFile para nós?

@naiaragomesp

Poderia compartilhar a function ZipFile aqui?
Tentei de inúmeras formas usar o ZipMaster mas recebo apenas "Arquivo ZIP Inválido".

[Bloco X Arquivo Zip Inválido]

Isso quer dizer que talvez não seja obrigatório para fins de homologação na até a Data de Hoje, de certa forma, a implementação completa de envio e apenas do XML?

Vou conversar com a homologadora sobre esse projeto piloto e o envio.

[Bloco X Arquivo Zip Inválido]

Na verdade estou implementando alterações para o er_paf_ecf 02.05 para homologação.

Me deparei com o bloco X e estou implementando utilizando os web services e endereços repassados para realizar testes e desenvolvimento. Pelo menos a geração do arquivo e tentativa de receber retorno positivo do webservice... desconsiderando a validação do paf_ecf e o certificado com cnpj diferente do estabelecimento.

Quanto ao dados corrigi todos os campos e parou de apontar erros na validação do Xml no site. mas diz que meu Aqruivo ZIP compactado é inválido.

[Bloco X Arquivo Zip Inválido]

Sim estou sim. O ZIPFile é o método que está em: unit ACBrBlocoX_WebServices

O trecho que recebe o resultado de ZipFile fica no GetXMLZipado conforme segue abaixo:

    if FXML <> '' then
    begin
      AZip := ZipFile(FXML, FPBodyElement+'.xml');
      if AZip = '' then
        raise Exception.Create('O seu compilador não tem suporte nativo a ZipFile.'+sLineBreak+
                               'Informe o XML já Zipado + Base64 em "XMLZipado"');

      FXMLZipado := AZip; //EncodeBase64(AZip);
    end;

Alguém conseguiu fazer funcionar a transmissão do arquivo no Delphi 7 com XML zipado? Se conseguiu enviar sem erros de XML inválido, me dá uma luz por favor!

 

[Bloco X Arquivo Zip Inválido]

Estou tento insistentemente um retorno de "Arquivo ZIP Inválido". No entanto utilizo o Delphi 7 e adaptei o método ZipFile usando o ZipMaster para executar o processo conforme abaixo:

  function ZipFile(const DadosXML: AnsiString; const NomeArquivo: String): AnsiString;
  var
    Z     : TZipMaster;
    SSIn  : TStringList;
    sFile : string;
    ssOut : TFileStream;

    function EncodeBase64(Arquivo: TFileStream): String;
    Var
    Encoder64 : TIDEncoderMime;
    lstFile: TStringList;
    Begin
      try
        try
          Encoder64 := TIDEncoderMime.Create (Nil);
          lstFile := TStringList.Create;
          lstFile.LoadFromStream(Arquivo);
          Result := Encoder64.Encode(lstFile.Text);
        finally
          Encoder64.Free;
          lstFile.Free;
        end;
      except on E: Exception do
        //Nada
      end;
    end;
  begin
     try
        Z := TZipMaster.Create(nil);
        SSIn  := TStringList.Create;
        sFile := ApplicationPath + NomeArquivo;
        SSIn.Text := DadosXML;
        SSIn.SaveToFile(sFile);

        //Ver se Precisa
        Z.ZipFileName := Copy(sFile,1,Pos('.',sFile)-1) + '.zip';
        Z.FSpecArgs.Clear;
        Z.FSpecArgs.Add(sFile);
        Z.Add;

        ssOut := TFileStream.Create(Copy(sFile,1,Pos('.',sFile)-1) + '.zip',fmOpenRead);
        Result := EncodeBase64(ssOut);
     finally
        Z.Free;
        SSIn.Free;
     end;
  end;

Alguém teve o mesmo problema com este método utilizando o Delphi 7?