小弟我程序中需要一个断点续传的功能，多谢大家

我程序中需要一个断点续传的功能，谢谢大家
我程序中要有一个从FTP上断点续传的下载功能，网速慢了点，一次不一定下的完，所以想下次启动时再接着下，
我找了有10多天了，大部分全是C的代码，我不太明白，
分不是问题，我只能发200分的贴，如果 解决了，我再送100分。如果想独享这300分可以给我发信，我们可以QQ联系，
希望大家帮帮我，谢谢


[解决办法]
http://www.cnblogs.com/charles001/articles/726272.html
http://www.cnblogs.com/z2002m/archive/2008/12/24/1361088.html
[解决办法]
C#和VB.NET相互转换
http://www.developerfusion.com/tools/convert/csharp-to-vb/
[解决办法]
http://www.mndsoft.com/blog/article.asp?id=623

一个VB编写的，实时显示进度条的HTTP下载控件，使用WINSOCK,支持断点续传。

界面：


[解决办法]

探讨

FTP的服务器和客户端都是你自己编写的吗?
如果不是的话可能就有些麻烦了.

最基本的原理就是你要记住你的文件是从哪个服务器上下的,文件名和已经下了多少了.
这样写一个附助用的文件可能好一点,有利于长久保存.

再就是看服务器支不支持重新定位了,把读文件的位置重新定位到你要下载的位置.
这样就可以断点续传了.如果是自己写的服务器的话这点很容易就能实现了.

[解决办法]
c#和vb.net差不多，把原理和方法看懂了不就行了吗
[解决办法]
WebRequest的方法 
用Dim request As HttpWebRequest = WebRequest.Create(下载地址) 
' 找到下载的开始位置 
If startPos > 0 Then request.AddRange(startPos)
[解决办法]
我用的My.Computer.Network.DownloadFile 下载


Public Function DownLoadFiles(ByVal strUrl As String, ByVal strVer As String)
Dim strFiles, strVFile, strCheckVer As String
Dim a() '数组
Dim i As Int16
Try
'比较版本号
strVFile = XmlR(strUrl & "\Update\update.xml", "Root", "Update", "Ver")
strCheckVer = CheckVer(strVFile, strVer)
'还有小于
Select Case strCheckVer.Trim
Case "0"
Return 0 : Exit Function
Case "<"
'strver 小于从文本中取得版本号则更新
Case ">"
Return 0 : Exit Function
End Select
' My.Computer.Network.DownloadFile("http://www.cohowinery.com/downloads/WineList.txt", "C:\Documents and Settings\All Users\Documents\WineList.txt", False, 500)
strFiles = XmlR(strUrl & "\Update\update.xml", "Root", "Update", "Files")
a = Split(strFiles, ",") '文件中files项中不可含回车换行，如有则出现路径含非法字符错误
For i = 0 To a.Length - 1
If System.IO.File.Exists(Application.StartupPath & "\" & a(i)) = True Then
System.IO.File.Move(Application.StartupPath & "\" & a(i), a(i) & ".old") '改名
My.Computer.Network.DownloadFile((strUrl & "\Update\" & a(i)), (Application.StartupPath & "\" & a(i))) '复制
System.IO.File.Delete(Application.StartupPath & "\" & a(i) & ".old") '删除备份
Else
My.Computer.Network.DownloadFile(strUrl & "\Update\" & a(i), Application.StartupPath & "\" & a(i)) '复制
End If
Next
Return 1
Catch ex As Exception
MessageBox.Show(ex.Message) : Return -1
End Try
End Function

查看更多 下一篇