Eventos do IdFTP - IdFTP

Olá galera, nesta Quick Tips, irei continuar o exemplo do Client FTP, neste momento vamos implementar e conhecer alguns eventos do IdFTP1, vamos começar selecionando mesmo, e implementando os seguintes eventos:

·onAfterClientLogin

·onBannerAfterLogin

·onAfterPut

·onBannerAfterLogin

·onBannerBeforeLogin

·onBannerWarning

·onConnected

·onStatus

Vamos as implementações

onAfterClientLogin

procedure TFrmPrincipal.IdFTP1AfterClientLogin(Sender: TObject);

begin

  Memo1.Lines.Add('*****IdFTP1AfterClientLogin*****');

  Memo1.Lines.Add('Logado com sucesso');

end;

onBannerAfterLogin

procedure TFrmPrincipal.IdFTP1AfterGet(ASender: TObject; AStream: TStream);

begin

  ShowMessage('Download concluído com sucesso');

end;

onAfterPut

procedure TFrmPrincipal.IdFTP1AfterPut(Sender: TObject);

begin

  ShowMessage('Arquivo enviado com sucesso');

end;

onBannerAfterLogin

procedure TFrmPrincipal.IdFTP1BannerAfterLogin(ASender: TObject; const AMsg: string);

begin

  Memo1.Lines.Add('*****IdFTP1BannerAfterLogin*****');

  Memo1.Lines.Add(AMsg);

end;

onBannerBeforeLogin

procedure TFrmPrincipal.IdFTP1BannerBeforeLogin(ASender: TObject; const AMsg: string);

begin

  Memo1.Lines.Add('*****IdFTP1BannerBeforeLogin*****');

  Memo1.Lines.Add(AMsg);

end;

onBannerWarning

procedure TFrmPrincipal.IdFTP1BannerWarning(ASender: TObject; const AMsg: string);

begin

  Memo1.Lines.Add('*****IdFTP1BannerWarning*****');

  Memo1.Lines.Add(AMsg);

end;

onConnected

procedure TFrmPrincipal.IdFTP1Connected(Sender: TObject);

begin

  ShowMessage('Conectado');

end;

onStatus

procedure TFrmPrincipal.IdFTP1Status(ASender: TObject; const AStatus: TIdStatus; const AStatusText: string);

begin

  Memo1.Lines.Add('*****IdFTP1Status*****');

  Memo1.Lines.Add(AStatusText);

end;

Vamos implementar agora dois eventos do nosso TreeView :

onDBCllick e onGetSelectedIndex

onDBCllick

procedure TFrmPrincipal.TreeView1DblClick(Sender: TObject);

begin

  ListarArquivos(TreeView1.Selected,EdtEndereco.Text);

end;

onGetSelectedIndex

procedure TFrmPrincipal.TreeView1GetSelectedIndex(Sender: TObject; Node: TTreeNode);

begin

  EdtEndereco.Text := CaminhoCompleto;

end;

Vamos implementar neste momento o onCreate do nosso Formulário

onCreate

procedure TFrmPrincipal.FormCreate(Sender: TObject);

begin

  IdFTP1.Disconnect;

  ListarArquivos(Nil,'');

end;

Fico por aqui ate à próxima Quick Tips. Baixe o exemplo completo neste post.

Um abraço

Wesley Y

wyamazack@rwsolution.com.br