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;