★★简单问题,怎样捕捉连接ftp失败的错误信息,up者有分★★

Question

// 在程序初始化前,怎样捕捉连接ftp失败的错误信息,比如FTP服务器没有打开、
// 登陆帐号密码错误等等
// 要求在我代码的基础上修改,可以增加,删除
// ★★最先帮我搞定者高分赠送★★program BbtManager;
uses
  Forms,IdBaseComponent,IdComponent,SysUtils,Windows,IdTCPConnection,
  IdTCPClient,IdFTP,
  Gu_main in 'Gu_main.pas' {G_mainForm}  ;
{$R *.res}
var
  IdFTP1: TIdFTP;
  flag :boolean; //连接是否成功标志
begin  idftp1:=TIdFTP.Create(nil);
  idftp1.Host := '192.168.0.100';
  idftp1.Password :='12345';
  idftp1.User := 'useraaa';
  
  flag := true;
  try
    IdFTP1.Connect();      
  except
    {★★在这里怎样捕获连接失败的信息,比如:FTP服务器没有打开、登陆帐号密码错误等等★★}
    flag := false; //连接失败
    //application.MessageBox ('接到FTP服务器的失败!','失败!',0) ;    
  end;
 
 if flag then //连接成功,调用更新程序
   begin
    {
     //这里我已经搞定
    }
   end; Application.Initialize;
 Application.CreateForm(TG_mainForm, G_mainForm);
 Application.Run; end.

Answer 1

try
                    ftpTest.Connect();
                  except
                    on e:exception do memo2.Lines.add(e.message);
                  end;

Answer 2

try
    FtpClient.Connect;
  except
    on E: Exception do memo2.Lines.add(E.ClassName);
  end