使用TIdFTP进行Delphi连接测试

Question

在我的程序中，我实际上正在使用此代码：

if IdFTP1.Connect = True then
 begin
  //makes some stuff
 end
else
 begin
  ShowMessage('you got the move like jagger.');
 end;

如果我没有连接，我会看到像

这样的错误

  

套接字错误＃11001

     

未找到主机

为了避免这种情况，我认为我可以使用您在上面看到的代码，但在使用IdFTP1.Connect = True时出现错误。

我该怎么办？

Answer 1

Connect()如果失败则不返回布尔值。它引发了一个例外：

try
  IdFTP1.Connect;
  try
    //makes some stuff
  finally
    IdFTP1.Disconnect;
  end;
except
  ShowMessage('you got the move like jagger.');
end;