delphi - Delphi IdFTP超时

Question

您好，我使用IdFtp将图片上传到服务器。我的代码上传了图片，但上传后IDFTP并没有断开连接。我找不到为什么我会采用此结果。
我的代码是

 Tfrm_main.fotoYolla(d:Timage;fileName:String);
    var
      Params: TIdMultipartFormDataStream;
      Response: TStringStream;
      var ms:TMemoryStream;

    begin


    ms := TMemoryStream.Create;
    try
      d.Bitmap.Resize(300,400);

      d.Bitmap.SaveToStream(ms);
     with IdFTP1 do
      try
       Host := 'myserver';
        Username :='anonymous';
        Password :='1234';
        Port:=21;
        Connect;

        Ms.Position := 0;
        Put(Ms, fileName);
      finally
        Disconnect;
      end;
    finally
      ms.Free;
      d.Free;
    end;
    ShowMessage('İmage is updated.');
    end;

在此代码之后，我将收到“读取超时”消息。

Answer 1

@valex在我的问题帖上发表评论的真实步骤。

passive:=true;

我添加了此代码，并且工作正常。谢谢