如何在delphi里实现断点再续

[yjuc]

如何在delphi里实现断点再续，能提供该控件最好

[smile_and_smile]

关注,
UP!!

[dana]

你是指什么断点再续？

[cobi]

gz

[torrentwang]

具体点

[ExitWindows]

up

[yjuc]

ftp的断点再续。主要是client，类似 cuteftp

[gototop99]

Delphi 自带的FTP 控件好象有次功能的饿。

[trainbox]

up

[trainbox]

如果使用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来续传的代码。
***********

[ExitWindows]

up