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;

我添加了这段代码并且做得非常好。谢谢你