Bloco X Arquivo Zip Inválido

[André Augusto dos Santos]

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?

[Juliomar Marchetti]

Está usando o componente ACBrBlocoX?

[André Augusto dos Santos]

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!

 

[Juliomar Marchetti]

1 hora atrás, André Augusto dos Santos disse:

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!

 

Você faz parte do projeto piloto de testes no estado de SC?

[André Augusto dos Santos]

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.

[Juliomar Marchetti]

1 minuto atrás, André Augusto dos Santos disse:

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.

Assim tem um projeto piloto que as empresas puderam participar para envio dos arquivos.. para os demais ainda não !

[André Augusto dos Santos]

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.

[Juliomar Marchetti]

5 minutos atrás, André Augusto dos Santos disse:

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.

Exato. tu precisa gerar e assinar mas enviar não está disponível nada.

[André Augusto dos Santos]

TÓPICO FINALIZADO!

[Gean Tonet]

Boa tarde,

Estou com o mesmo problema, inclusive utilizando a função adaptada para o zipmaster do André. Alguma solução?

[Juliomar Marchetti]

30 minutos atrás, Gean Tonet disse:

Boa tarde,

Estou com o mesmo problema, inclusive utilizando a função adaptada para o zipmaster do André. Alguma solução?

Viram que foi subido alterações nos componentes para tratar arquivos zip certo?

olhem também que no projeto do monitor tem uma parte do bloco x e tem mais um projeto na pasta somente do bloco. x