Cannot Create File

[i-master]

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

[Régys Silveira]

Sua pergunta ficou um tanto vaga, não entendi direito, o erro ocorre quando?

[i-master]

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

[EMBarbosa]

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

[i-master]

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.

[EMBarbosa]

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.

[i-master]

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

 

Obrigado

[EMBarbosa]

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.

[i-master]

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.

Edited June 27, 2013 by i-master

[EMBarbosa]

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.