ActiveDelphi

[pretofilho]

Bom dia

Utilizo a versão do Delphi6

Breve resumo da situação,

Tenho uma rotina que envia arquivo para um ambiente de ftp, após o envio do pedido, eu verifico se o arquivo ainda esta parado na pasta de envio, com o código abaixo, se o arquivo não estiver mais na pasta remota, é porque o arquivo já esta em processamento ( correto ) porém esta gerando uma mensagem de erro e gostaria de tratar ela e disponibilizar uma mensagem na tela ( ...... )
o erro é ( 450 Arquivo não encontrato ) depois disso continuar a execução do programa, desde já agradeço pela atenção de todos.


Vale lembrar que, ao executar o código abaixo, ja estou conectado no servidor remoto.



procedure TForm1.btn_atualiza_pedidoClick(Sender: TObject);
begin

IdFTP1.ChangeDir(edt_up.Text);
Application.ProcessMessages;
IdFTP1.List(MemoPed.Lines,edt_nome_arq_local.Text,False);
Application.ProcessMessages;
lbt_cont_p.Caption := IntToStr(MemoPed.Lines.Count);
Application.ProcessMessages;
lbt_cont_p.Visible := True;
Application.ProcessMessages;

end;

[CesarRocha]

Nuss, pra que tanto Application.ProcessMessages? Se o problema é a "travada" da aplicação o correto seria trabalhar com Threads e não fazer remendos... Apenas uma dica pra melhorar sua aplicação.

Para tratamento de exceções você pode usar try except;

Leia aqui: http://www.resumoti.com.br/?p=413

~bye

[rique_neves]