从网站下载二进制文件,如何去掉文件附加的文件头,我已经实现了但感觉不好。有更好的方法吗? 请指教?

ko321 2004-08-29 09:15:07
HTTP/1.1 200 OK
Server: Microsoft-IIS/5.1
X-Powered-By: ASP.NET
Date: Sun, 29 Aug 2004 13:15:01 GMT
Content-Type: application/octet-stream
Accept-Ranges: bytes
Last-Modified: Thu, 19 Aug 2004 09:13:22 GMT
ETag: "0654dc6cc85c41:942"
Content-Length: 3142837
我下载一个.exe文件,下载后打不开,我用记事本看了一下 多了上面的文件。怎么能去掉。
我找到了类似的程序。但感觉不好。这个问题如何解决的。
Private Sub Winsock_DataArrival(ByVal bytesTotal As Long)
Dim bytData() As Byte

Dim strData As String

If bytesTotal <= 0 Then
Exit Sub
End If
Winsock.GetData bytData, vbByte
strData = StrConv(bytData, vbUnicode)
InStr(strData, "Content-Type:") Then

Dim Pos%, LENGTH%, HEAD$
Pos = InStr(strData, vbCrLf & vbCrLf)
LENGTH = Len(strData)
HEAD = Left(strData, Pos - 1)
strData = Right(strData, LENGTH - Pos - 3)
Exit Sub
End If
Open FilePathName For Binary Access Write As #1
Put #1, BytesAlreadySent, bytData
BytesAlreadySent = Seek(1)
Close #1
End Sub
...全文
149 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
mbqbaisha 2004-10-04
  • 打赏
  • 举报
回复
我也碰到这个问题~
我在这里http://community.csdn.net/Expert/TopicView1.asp?id=3425766发贴问过~
你有好的解决源码能给我发一份吗?
邮箱:9966331@qq.com
VirtualAlloc 2004-08-30
  • 打赏
  • 举报
回复
我也是这样写的。好像 http 协议的书都是建议我们这样写的,没有问题的啦,只是心理不舒服而已 ;))

1,502

社区成员

发帖
与我相关
我的任务
社区描述
VB 网络编程
社区管理员
  • 网络编程
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧