如何實現斷點續傳

資料來源: Delphi夢工廠 awin.zjtrade.com 如果使用ICS控件，那麼 HttpCli.ContentRangeBegin := '100' 表示從100開始 HttpCli.ContentRangeEnd :='' 表示一直到結束 HttpCli.ContentRangeEnd :='200' 表示到200字節處結束 如果使用 TNMHTTP 控件 在OnAboutToSend事件，寫： NMHTTP1.SendHeader.Values['Range'] := 'bytes=100-' 表示從100字節處開始下載到最後 NMHTTP1.SendHeader.Values['Range'] := 'bytes=100-200' 表示從100字節處開始下載到200字節處結束 ***************

procedure TForm1.Button6Click(Sender: TObject);
var
f:TSearchRec;
begin
   FindFirst('a.doc',faAnyFile,f);
   fPreSize:=f.Size;
   NMFtp.DoCommand('Rest ' IntToStr(fPreSize));
   NMFtp.DownloadRestore('a.doc','a.doc');
end;

這是用TNMFtp來續傳的Source Code。 ICS(Internet Component Suite ) Freeware元件,下載處: http://overbyte.delphicenter.com/ 網路志工聯盟----Visita網站http://www.vista.org.tw ---[ 發問前請先找找舊文章 ]--- 發表人 - axsoft 於 2003/02/25 12:15:46

【Delphi】【轉貼】用TCP/IP做文件續傳 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=25806 這個也可以參考看看 哈哈 ********************************************************* 哈哈&兵燹 最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好 Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知 K.表Knowlege 知識,就是本站的標語:Open our mind to make knowledge together! 希望能大家敞開心胸,將知識寶庫結合一起

------
**********************************************************
哈哈&兵燹
最會的2大絕招 這個不會與那個也不會 哈哈哈 粉好

Delphi K.Top的K.Top分兩個字解釋Top代表尖端的意思,希望本討論區能提供Delphi的尖端新知
K.表Knowlege 知識,就是本站的標語:Open our mind

可以用Indy元件方式寫一個嗎？