帮我解决一个简单问题,关于文件操作 在线等
smuzy 2003-09-14 11:34:14 以下是我的写的一个用XMLHTTP组件取得图片数据
用VB把这个数据存为文件的时候他在前面加上了12个字节其他东西
莫名其妙
请大虾门帮忙
Private Sub SaveImage(ByVal URL As String, ByVal tofile As String)
Dim Imgs
Dim FileNumber
FileNumber = FreeFile
Open "c:/smuzy.gif" For Binary Access Write As #FileNumber
Imgs = GetHTTPPage(URL) '取得图片的具休内容的过程
Put #FileNumber, , Imgs
Close #FileNumber
'以下注释掉的使用的ADODB.Stream方法
'Dim objStream As New ADODB.Stream
'Imgs = GetHTTPPage(URL) '取得图片的具休内容的过程
'objStream.Type = 1 '以二进制模式打开
'objStream.Open
'objStream.Write Imgs '将字符串内容写入缓冲
'objStream.SaveToFile APPL_PHYSICAL_PATH & tofile, adSaveCreateOverWrite '-将缓冲的内容写入文件
'objStream.Close '关闭对象
'Set objStream = Nothing
End Sub
Private Function GetHTTPPage(ByVal URL As String)
'On Error Resume Next
Dim objXmlhttp As New XMLHTTP '使用xmlhttp的方法来获得图片的内容
objXmlhttp.Open "GET", URL, False
objXmlhttp.send
If objXmlhttp.readyState <> 4 Then Exit Function
GetHTTPPage = objXmlhttp.responseBody
Set objXmlhttp = Nothing
'If Err.Number <> 0 Then Err.Clear
End Function