delphi - 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;