Erro Ao tentar ler o Arquivo

Question

Bom dia pessoal, to tendo o seguinte probleminha uma fun��o para ler um arquivo e depois se quero editar o mesmo arquivo ele da dando o erro: I/O ERROR  32:A fun��o que uso pra ler o arquivo e n�o ta ...

Paullsoftware · Answer

[quote:68b494d1dc]AssignFile(ArqServidor, �C:ARQUIVO.TXT�); Reset(ArqServidor); Read(ArqServidor, LocalServidor); CloseFile(ArqServidor); [/quote:68b494d1dc]coloque esse c�digo dentro do Try Finally..tryAssignFile(ArqServidor, �C:ARQUIVO.TXT�); Reset(ArqServidor); Read(ArqServidor, LocalServidor); finallyCloseFile(ArqServidor); end;...

Massuda · Answer

[quote:b1b73c45b0=�Marcal�]I/O ERROR  32[/quote:b1b73c45b0]Esse erro indica que o arquivo est� aberto/em uso.No caso, quando voc� vai escrever no arquivo, o Rewrite pede acesso exclusivo ao arquivo, mas n�o est� conseguindo porque algu�m est� usando o arquivo (para leitura ou escrita). Pode ser alguma outra parte do seu programa ou algum outro programa que est� mantendo o arquivo aberto....

Marcal · Answer

Realmente amigo Massuda, e isso mesmo mais a unica rotina que tenho em meu sistema pra abrir este arquivo e este eu tentei fazer como nosso amigo falou colocar o codigo dentro do try finally mais continua dando o mesmo erro tem alguma fun��o que for�a o fechamento deste arquivo.

Massuda · Answer

[quote:9e8cdf92c6=�Marcal�]...fun��o que for�a o fechamento deste arquivo.[/quote:9e8cdf92c6]Quem faz isso � o CloseFile.... no caso do c�digo que escreve no arquivo, voc� est� chamando CloseFile depois de completar a escrita? No c�digo que voc� postou n�o tem o CloseFile....

Marcal · Answer

Sim Amigo inclusive fiz um teste com outro nome de arquivo e da certo mais quanto tento acessar o arquivo q ja fechei closefile() continua o erro
1� {Codigo de Leitura}

Try
AssignFile(ArqServidor, �C:\SERVIDOR.TXT�);
Reset(ArqServidor);
Read(ArqServidor, LocalServidor);
Finally
CloseFile(ArqServidor);
end;

e depois 2�
{Codigo de Escrita }
Try
Try
AssignFile(ArquivoServidor, �C:\SERVIDOR.TXT�);
ReWrite(ArquivoServidor);
WriteLn(ArquivoServidor, LbLocal.Text);
Finally
Closefile(ArquivoServidor);
end;
except
On EconvertError do
Messagedlg(�ERRO: Arquivo Invalido�, mterror, [mbok],0);
end;

Massuda · Answer

Como voc� testou com outro nome de arquivo e d� certo, � sinal que esse arquivo est� em uso por outra parte do seu programa ou por outro programa.

Os peda�os de c�digo que voc� postou n�o tem problema.

Martins · Answer

Testei o c�digo abaixo e funcionou, n�o deu erro algum, n�o sei se serve para vc, mas d� uma olhada.

procedure TForm1.Button1Click(Sender: TObject);
var
 Arq: TextFile;
 LocalServidor: String;
begin
 try
   AssignFile(Arq, �C:\Rename\Teste.txt�);
   Reset(Arq);
   ReadLn(Arq, LocalServidor);
   Edit2.Text := LocalServidor;
 finally
   CloseFile(Arq);
 end;
end;

procedure TForm1.Button2Click(Sender: TObject);
var
  arq: TextFile;
begin
  try
    try
      AssignFile(Arq, �C:\Rename\Teste.txt�);
      ReWrite(Arq);
      WriteLn(Arq, Edit1.Text);
    finally
      CloseFile(Arq);
    end;
  except
    on EConvertError do
    MessageDlg(�ERRO: Arquivo inv�lido�, mtError, [mbOK], 0 );
  end;
end;

Boa sorte!!!

Martins · Answer

[quote:92e8eb741c=�Massuda�]Como voc� testou com outro nome de arquivo e d� certo, � sinal que esse arquivo est� em uso por outra parte do seu programa ou por outro programa.Os peda�os de c�digo que voc� postou n�o tem problema.[/quote:92e8eb741c]Verdade [b:92e8eb741c]Massuda[/b:92e8eb741c], pode ser isso, talvez um outo aplicativo possa est� usando o arquivo, para simular o erro eu criei o arquivo normal, utilizando o [b:92e8eb741c]CloseFile[/b:92e8eb741c] para fech�-lo e depois em outro bot�o eu fa�o a leitura do conte�do do arquivo sem fech�-lo e quando tento alterar seu conte�do, � mostrado o Erro 32 q indica q o arquivo est� em uso. Talvez em algum lugar do seu sistema vc fa�a essa leitura, verifique seu c�digo.Boa sorte!!!...

Marcal · Answer

Amigo Martins ainda n�o teste seu codigo mais vou testar. Quanto outra parte do sistema esta utilizando o arquivo e impossiv�l pq esta e a primeira fun��o q estou criando no meu projeto para ler e editar esse arquivo. a leitura eu coloquei no evento OnActive do meu formul�rio Principal e quando eu quero alterar o conteudo do meu arquivo eu entro em um outro forumul�rio no menu Utilit�rio do meu formulario principal, Ser� que n�o e alguma rotina interna do Windows XP que continua com o arquivo aberto internamente.

Massuda · Answer

Usando o Windows Explorer voc� consegue mover/excluir esse arquivo? Se n�o conseguir, � sinal que o arquivo est� em uso por algum programa em execu��o....

Martins · Answer

[quote:413692757d=�Massuda�]Usando o Windows Explorer voc� consegue mover/excluir esse arquivo? Se n�o conseguir, � sinal que o arquivo est� em uso por algum programa em execu��o.[/quote:413692757d]Isso mesmo, bem lembrado [b:413692757d]Massuda[/b:413692757d], fa�a o teste sugerido pelo Massuda ou ent�o mude o nome desse arquivo chato  :P Fa�a os testes e post aqui novamente!!...

Marcal · Answer

Sim Amigos antes deu colocar o try finally na leitura ele n�o aceitava mais agora ele aceita mover alterar e pagar mais continuo usando a fun��o

Try
AssignFile(ArquivoServidor, �C:\SERVIDOR.TXT�);
ReWrite(ArquivoServidor);
WriteLn(ArquivoServidor, LbLocal.Text);
Finally
Closefile(ArquivoServidor);
end;

para alterar o arquivo e so q agora da erro I/O error 103, o mudou o erro mais continua n�o funcionando

Massuda · Answer

[quote:51ba96bbdf=�Marcal�]erro I/O error 103[/quote:51ba96bbdf]Esse erro significa que o arquivo n�o foi aberto. No caso do seu c�digo, isso significa que o Rewrite falhou. Experimente codificar assim...[code:1:51ba96bbdf]AssignFile(ArquivoServidor, �C:SERVIDOR.TXT�); {$I-} ReWrite(ArquivoServidor); {$I+} if IOResult = 0 then begin  {$I-} WriteLn(ArquivoServidor, LbLocal.Text);  {$I+}   {$I-} Closefile(ArquivoServidor);  {$I+} end;[/code:1:51ba96bbdf]...o {$I-} e {$I+} s�o coisas antigas, mas funcionam neste caso. O $I neste caso habilita/desabilita o runtime error, mas com isso desabilitado a �nica forma de voc� saber se deu erro � checar se o valor de IOResult � diferente de zero (zero indica nenhum erro)....

Marcal · Answer

E realmente amigos eu usei esta forma
AssignFile(ArquivoServidor, �C:\SERVIDOR.TXT�);
{$I-} ReWrite(ArquivoServidor); {$I+}
if IOResult = 0 then
begin
{$I-} WriteLn(ArquivoServidor, LbLocal.Text); {$I+}
{$I-} Closefile(ArquivoServidor); {$I+}
end
So que o valor de IOResult = Inaccessible value
E n�o acontence nada nenhuma msg de erro como nosso amigo Massuda falou o que devo fazer agora parece uma coisa t�o simples mais ta me dando a maior dor de cabe�a tentei colocar <> ao inves de = mais nada

Martins · Answer

[quote:299edb0783=�Marcal�]Sim Amigos antes deu colocar o try finally na leitura ele n�o aceitava mais agora ele aceita mover alterar e pagar mais continuo usando a fun��o    Try      AssignFile(ArquivoServidor, �C:SERVIDOR.TXT�);      ReWrite(ArquivoServidor);      WriteLn(ArquivoServidor, LbLocal.Text);    Finally      Closefile(ArquivoServidor);    end;para alterar o arquivo e so q agora da erro I/O error 103, o mudou o erro mais continua n�o funcionando[/quote:299edb0783]Por favor, verifique os atributos do arquivo, veja se ele n�o est� somente leitura, pq esse erro � o q o Massuda falou mesmo, o arquivo n�o est� sendo aberto.Boa sorte!!!...