德尔福IdFTP超时

Question

嗨我使用IdFtp图像上传到server.My代码上传图像，但上传后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写上评语真正的一步，我的问题post.Its

passive:=true; 

我加入这个代码和精细work.Thank你