سلام
من نمونه کد زیر رو برای دانلود نوشتم
وقتی فایلهای متنی و پی دی اف رو دانلود می کنم. اصلا مشکلی نیست
به حجم هم حساسیت نداره
اما وقتی می خوام فایل فشرده یا اجرایی رو دانلود کنم به ارور 

Connection Closed GraceFully

برخورد می کنم و ارتباط قطع میشه

اگه ممکنه راهنمایی بفرمایید




 

 

Procedure Download(var AContext: TIdContext);

Var

s: string;

TheStream : TFileStream;

Begin

with AContext.Connection Do

   begin

     IOHandler.Writeln('file name?');

     s := IOHandler.ReadLn();

     s := Base_Dir + s;

     //Memo_server.Lines.Add('Execute : ' +s + DateTimeToStr(now()));

     TheStream := TFileStream.Create(s, fmOpenRead);

     IOHandler.Writeln(intToStr(TheStream.Size));

     IOHandler.WriteBufferOpen;

     IOHandler.WriteBufferClear;

     IOHandler.Write(TheStream);

     IOHandler.WriteBufferClose;

     TheStream.Free;

  //IOHandler.ReadBytes(

  end;

End;