Erro I/o Error 103 Em Acbrpaf.savefiletxt_Registrospaf(Caminhosalvoregistropaf)

[Rafa2012]

Olá colegas, estou com o seguinte código:

    caminhosalvoregistropaf := ExtractFilePath(Application.ExeName)+'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt';

ShowMessage('Alimenta path');

    ACBrPAF.Path := '.\';
ShowMessage('caminho salvo = '+caminhosalvoregistropaf);
    ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf);

Aqui apresenta o erro "I/O error 103".

 

O que estou fazendo de errado pra ele apresentar essa mensagem?

 

Detalhe, se eu deixar sem caminho algum ele não dá erro, porém salva no seguinte caminho: C:\Program Files (x86)\Embarcadero\RAD Studio\8.0\bin\

Só que em computadores que não tem o delphi instalado dá a mesma mensagem de erro "I/O error 103"

 

Alguma dica do que estou fazendo errado?

Rafa

 

[Juliomar Marchetti]

sim

ACBrPAF.Path := ExtractFilePath(Application.exename);

[Rafa2012]

Obrigado pela pronta resposta Juliomar. Ficou assim:

    caminhosalvoregistropaf := 'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt';
    ACBrPAF.Path := '.\';
    ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf);
 

O erro desapareceu, ele grava em outro caminho, agora salva dentro da pasta dos fontes, nas propriedades dele está conforme a imagem anexo, tem como determinar onde eu quero salvar o arquivo? No exemplo do ACBrPAF ele salva dentro do local da pasta do executável, precisaria salvar em uma subpasta, é possível?

Rafa

Editado 18 Outubro, 2013 por Rafa2012

[Juliomar Marchetti]

Respondi no post anterior, você chegou a setar o path ?

[Rafa2012]

nananann, Juliomar, agradeço o empenho, você estava certo, olha como fiz pra funcionar:

    caminhosalvoregistropaf := 'REGISTROS_DO_PAF_ECF_MENU_FISCAL.txt';
    ACBrPAF.Path := ExtractFilePath(Application.ExeName)+'Arquivos PAF\';
    ACBrPAF.SaveFileTXT_RegistrosPAF(caminhosalvoregistropaf);
 

Meu "tico e teco" não se deram as mãos hoje kkkk, era só entender que o path do componente não deve levar o nome do arquivo, eu estava misturando tudo,affff, obrigado pela ajuda, eu suspeitava que era simples, mas sabe como é, a falta de atenção as vezes faz a gente apanhar feio.

Obrigadão mesmo pela ajuda. Que DEUS te abençoe com muita saúde e sabedoria pra que você continue ajudando ao próximo.

Rafa

[Daniel Simoes]

No Path você deve informar o diretório onde os arquivos devem ser salvos... Geralmente isso é feito na inicialização, para que todos os arquivos "fiscais" fiquem na mesma pasta:

  FrVenda.ACBrPAF1.Path := ExtractFilePath(Application.ExeName)+'Arquivos PAF\';

(acho que convém evitar nomes longos ou espaços no nome... Tente algo como: "ArqsPAF")

 

Depois, na geração de cada arquivo, você especifica apenas o nome:

ACBrPAF1.SaveFileTXT_E('estoque.txt'); 

[Rafa2012]

Olá Daniel, era exatamente isso que eu estava fazendo errado, obrigado pelas dicas.

Rafa