Pesquisar na Comunidade
Showing results for tags 'enviarreducaoz'.
Encontrado 1 registro
-
Bom dia. Estou tentando enviar o arquivo da Redução Z utilizando o AcbrBlocoX porém o WS está me retornando um erro de Arquivo Zip Inválido. Utilizo o Delphi 2010 para desenvolvimento o estou usando o componente ZipMaster para compactar o meu arquivo XML. Já está funcionando no componente essa parte de envio de arquivos? Se sim, alguém pode me mostrar um exemplo de como carregar o xml compactado na propriedade AcbrBlocoX1.WebServices.EnviarReducaoZ.XMLZipado no Delphi 2010? Abaixo está o código que tentei fazer mas está dando o erro citado no post: //Compactar arquivo XML stlArquivoXML.LoadFromFile(ExtractFilePath(Application.ExeName) + sArquivo); with zmBlocoX do begin zmBlocoX.ZipFileName := StringReplace(ExtractFilePath(Application.ExeName) + sArquivo, '.xml', '.zip', [rfReplaceAll]); FSpecArgs.Add(ExtractFilePath(Application.ExeName) + sArquivo); Add; ConvertToZIP; end; if sTipo = 'Z' then begin //Carrega XML (Não Zipado) na propriedade XML WebServices.EnviarReducaoZ.XML := stlArquivoXML.Text; //Carrega XML Zipado em uma StringStream vStream.LoadFromFile(StringReplace(ExtractFilePath(Application.ExeName) + sArquivo, '.xml', '.zip', [rfReplaceAll])); WebServices.EnviarReducaoZ.XMLZipado := base64Encode(vStream.DataString); if WebServices.EnviarReducaoZ.Executar then begin //Trato o retorno aqui... end; end; Muito obrigado!!!