如何實現斷點續傳 |
|
axsoft
版主 發表:681 回覆:1056 積分:969 註冊:2002-03-13 發送簡訊給我 |
如何實現斷點續傳資料來源: 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 |
jackkcg
站務副站長 發表:891 回覆:1050 積分:848 註冊:2002-03-23 發送簡訊給我 |
【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 |
flyup
資深會員 發表:280 回覆:508 積分:385 註冊:2002-04-15 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |