delphi - Delphi 与 TIdFTP 的连接测试

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;