上传文件报错，急！！！

Question

SEND_BUFFER = 1048576 //是每次上传的大小while (AFileStream.Position<AFileStream.Size) do
begin
  AMemStream.Clear;
  MemStream.CopyFrom(AFileStream,min(SEND_BUFFER,AFileStream.Size-AFileStream.Position));
  MainFrm.FIdFtp.Put(AMemStream,sFileName,true);
  MainFrm.Gauge2.Progress:=MainFrm.Gauge2.Progress+1;
end;
AMemStream.Free;这是上传代码，为什么只能传小于1M的，也就是说while语句里面执行第二次的时候就会报错！ 在线等！！！

Answer 1

一般一个普通的FTP上传代码不会出什么问题的。