André Augusto dos Santos

TÓPICO FINALIZADO!

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".

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.

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.

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!

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?