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