Opera��o de IO

Question

Galera � o seguinte estou fazendo uma aplica��o que fica verificando um path esperando um arquivo texto para importar para uma Base Oracle...o tamanho do arquivo � de +- 4MB e ele demora um pouco para...

Mago M3rl1n · Answer

Como que voc� esta abrindo esse arquivo texto ? Voce pode verificar se ele ainda esta aberto, ou tratar com try...except....

Emerson Nascimento · Answer

aparentemente vc controla essa verifica��o tempor�ria num Timer. se for isso, quando voc� encontrar o arquivo, voc� desliga o timer (Timer.Enabled:=False) e religa (Timer.Enabled:=True) depois que terminar a importa��o.

Emerson Nascimento · Answer

[quote:18d1d17ede=�emerson.en�]aparentemente vc controla essa verifica��o tempor�ria num Timer. se for isso, quando voc� encontrar o arquivo, voc� desliga o timer (Timer.Enabled:=False) e religa (Timer.Enabled:=True) depois que terminar a importa��o.[/quote:18d1d17ede]melhorando um pouco:aparentemente vc controla essa verifica��o num Timer. se for isso, quando voc� encontrar o arquivo, voc� desliga o timer (Timer.Enabled:=False), faz a importa��o e religa (Timer.Enabled:=True) depois que terminar essa importa��o.algo como:procedure TForm1.Timer1Timer(Sender: TObject);begin&nbsp &nbsp // procura o arquivo&nbsp &nbsp if FileExists( seu_arquivo ) then&nbsp &nbsp begin&nbsp &nbsp &nbsp &nbsp // desliga o timer&nbsp &nbsp &nbsp &nbsp Timer1.Enabled := False;&nbsp &nbsp &nbsp &nbsp // faz a importa��o&nbsp &nbsp &nbsp &nbsp {...}&nbsp &nbsp &nbsp &nbsp // religa o timer&nbsp &nbsp &nbsp &nbsp Timer1.Enabled := True;&nbsp &nbsp &nbsp &nbsp end;end;...

Rodrigobc · Answer

emerson isso num d� certo n�o pois o mesmo passa uns 3 minutos para a copia pelo FTP e o programa checou o diret�rio quando ele estava em um minuto de c�pia ai ele tenta abrir o arquivo para ler e gravar na base mais o mesmo ainda n�o terminou de copiar com isso no meio do processo de leitura d� o erro de IO. o que seria certo � saber se o arquivo j� foi copiado se sim eu processo se ainda estiver copiando eu n�o processo e espero o pr�ximo timer passar !!

Valeu.

R�mulo Barros · Answer

[b:88698d7b36][color=red:88698d7b36]Durante a c�pia do arquivo(do servidor ftp para a sua m�quina), provavelmente o tamanho(size) do arquivo ir� sempre aumentar. Ent�o, fa�a um loop at� que a c�pia tenha acabado(quando n�o houver mais modific�o no tamanh do arquivo).[/color:88698d7b36][/b:88698d7b36]

procedure TForm1.Button1Click(Sender: TObject);
Var
  intSize : Integer;
  Arq : TExtFile;
begin
   AssignFile(Arq,�c:\Arquivo.txt�);
   If(FileExists(�c:\Arquivo.txt�))then
   Begin
     Reset(Arq);

     Repeat
        intSize := filesize(Arq);
        Application.ProcessMessages();
     Until(intSize = filesize(Arq));
//     IniciarImporta��o()
        { ...
         ... }
     End;
end;

end.

:P :P :P :P :P

Beppe · Answer

Vc pode fazer uma c�pia �instant�nea�. Copie o arquivo com um nome provis�rio. Logo ap�s, renomeie este arquivo para o nome final.

CopyFile(�a.ext�, �~b.ext�);
RenameFile(�~b.ext�, �b.ext�);

Mesmo se arquivo vai num servidor FTP, isto deve funcionar sem problemas, ap�s adaptar a API.

F�rum Opera��o de IO #244885