intelmib

Olá Pessoal. Minha pergunta é, o erro na minha máquina ou no DEMO. --------------------------- Acbrboletodemo --------------------------- Cannot create file "C:\D7componentes\ACBR\Exemplos\ACBrBoleto\1.0\C:\D7componentes\ACBR\Exemplos\ACBrBoleto\1.0\teste.pdf". A sintaxe do nome do arquivo, do nome do diretório ou do rótulo do volume está incorreta. OK Isso ocorre quando clica para gerar PDF ou gerar html bem nesta classe, na linha imprimir: procedure TACBrBoletoFCClass.GerarHTML; var FiltroAntigo : TACBrBoletoFCFiltro; MostrarPreviewAntigo : Boolean; MostrarSetupAntigo : Boolean; begin if NomeArquivo = '' then raise Exception.Create( ACBrStr('NomeArquivo não especificado')) ; FiltroAntigo := Filtro; MostrarPreviewAntigo := MostrarPreview; MostrarSetupAntigo := MostrarSetup; try Filtro := fiHTML; MostrarPreview := false; MostrarSetup := false; Imprimir; finally Filtro := FiltroAntigo; MostrarPreview := MostrarPreviewAntigo; MostrarSetup := MostrarSetupAntigo; end; end;

Exatamente Igor e regys.silveira. Da forma que postei funcionou. Muito Obrigado tambem ao ArbSis.

Por padrão a unit ACBrNFeNotasFiscais envia automaticamente o xml. Eu gostaria de criar mais 1 criterio 'EnviarXML' igual o EnviarPDF. Seria possivel desta forma próxima as linhas 300 da unit ACBrNFeNotasFiscais? ------------------------------------ try p := m.AddPartMultipart('mixed', nil); if sMensagem <> nil then m.AddPartText(sMensagem, p); SaveToStream(StreamNFe) ; if (EnviarXML) then // EnviarXML do tipo boolean Begin m.AddPartBinary(StreamNFe,copy(NFe.infNFe.ID, (length(NFe.infNFe.ID)-44)+1, 44)+'-NFe.xml', p); End; ------------------------------------ OBS: ou eu teria que incluir as linhas anteriores dentro deste If. Abraço e sucesso a todos que abrem sua mente e aprendem com agente.