Ir para conteúdo
  • Cadastre-se

dev botao

Cannot Create File


  • Este tópico foi criado há 3926 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Recommended Posts

Boa noite,

 

Estou com este erro em anexo. 

 

1) Se crio o diretório sem erro. 

procedure TACBrTXTClass.WriteBuffer;
var
  FS : TFileStream ;
begin
  if NomeArquivo = '' then
     raise Exception.Create( ACBrStr('"NomeArquivo" não especificado') ) ;

  if (not FileExists( NomeArquivo )) then
     {$IFDEF UNICODE}
      WriteToTXT( NomeArquivo, FConteudo.Text, False, False )
     {$ELSE}
      FConteudo.SaveToFile( NomeArquivo ) // SaveToFile nativo deixa arquivo como UTF-8
     {$ENDIF}
  else
   begin
      FS := TFileStream.Create( NomeArquivo, fmOpenReadWrite or fmShareExclusive );
      try
         FS.Seek(0, soFromEnd);  // vai para EOF
         FConteudo.SaveToStream( FS );
      finally
         FS.Free ;
      end;
   end;

  if (FLinhasBuffer > 0) then
     FConteudo.Clear;
end; 

ErroSpedDiretorio.bmp

ErroSpedDiretorio2.bmp

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

Não salva o arquivo, se não existir o Diretório. 

Então tem que cria o diretório dai ele salva o TXT la dentro

Se vc informar um diretório que não existe ele não cria.

 

 

Debug:

 

Para nesta linha.

 

FConteudo.SaveToFile( NomeArquivo ) // SaveToFile nativo deixa arquivo como UTF-8

 

Obrigado

  • Curtir 1

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • Consultores

Então seu problema já está resolvido. Crie o diretório antes de mandar salvar.

 

Você pode usar o método, que se não me engano, é ForceDirectories

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

ACBrSPEDFiscal1 

 

- Arquivo - <nome do arquivo TXT>

- Path - <onde deve ser informado o diretório para salvar o arquivo TXT >

 

Estou correto? Foi informado o <nome arquivo> e o seu <diretório para ser gravado>

 

O que não esta acontecendo, ele cria o arquivo mas não consegue gravar.

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • Consultores

Se eu entendi bem a sua pergunta, esses campos servem para isso mesmo.

Mas você precisa criar o diretório antes. O componente não vai criar o caminho sozinho.

 

A ideia é que os componentes ACBr sejam uma grande ajuda para o programador. Contudo, nenhum componente faz o trabalho todo sozinho.

Assim, temos mais liberdade como desenvolvedores.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Mas criava por o meu questionamento. Igual a NF-e "CRIAR PASTA MENSAL"

 

Obrigado

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • Consultores

No SPED, pelo menos até onde me lembro, nunca criou.

 

Mesmo assim, convenhamos que um método nomeado "CRIAR PASTA MENSAL" que não criar pasta mensal estaria com defeito.

Mas um método nomeado SaveToFile, não precisa necessariamente criar nenhuma pasta. Visto que o objetivo é salvar o arquivo, pode ser pré-requisito o caminho ter sido criado antes.

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

Ta tudo certo, acho que me "enganei". Peço desculpas, realmente é muita coisa ao mesmo tempo Delphi e JAVA ERP. Eu re-passei onde aconteceu DEBUG. Errei, em pesar que já tinha sido por um método anterior verificado se o diretório já existe. Vou implementar, a criação automatizada do diretório. E posto com as alterações.

 

Muito obrigado pelo seu tempo, e novamente me desculpe pelo engano.

Editado por i-master

Atenciosamente

___________________________________________

Adolfo Jefferson Fernandes Lopes

Top Software Consultoria em Informática Ltda. 1992
Top Software Ltda. 2017
(41) 99144-1838 whats ** 3323-1622

[email protected]
http://imastercontroll.blogspot.com/

Link para o comentário
Compartilhar em outros sites

  • Consultores

Muito obrigado pelo seu tempo, e novamente me desculpe pelo engano.

 

Não se preocupe. Você não se enganou com nada grave. E estamos aí pra ajudar mesmo.

 

Continue ficando à vontade para pesquisar no fórum, fazer perguntas para as quais não encontre resposta e fazer sugestões.

Espero que consiga resolver todos seus problemas.

Bom trabalho.

  • Curtir 2

[]'s

Consultor SAC ACBr

Elton
Profissionalize o ACBr na sua empresa, conheça o ACBr Pro.

Projeto ACBr     Telefone:(15) 2105-0750 WhatsApp(15)99790-2976.

Um engenheiro de Controle de Qualidade(QA) entra num bar. Pede uma cerveja. Pede zero cervejas.
Pede 99999999 cervejas. Pede -1 cervejas. Pede um jacaré. Pede asdfdhklçkh.
Link para o comentário
Compartilhar em outros sites

  • Este tópico foi criado há 3926 dias atrás.
  • Talvez seja melhor você criar um NOVO TÓPICO do que postar uma resposta aqui.

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar Agora
×
×
  • Criar Novo...

Informação Importante

Colocamos cookies em seu dispositivo para ajudar a tornar este site melhor. Você pode ajustar suas configurações de cookies, caso contrário, assumiremos que você está bem para continuar.