麻煩各位一個問題,
我用inet要將網路上的檔案抓回來,放在某個temp目錄下
使用的方式如下:
Dim temparray() As Byte
Dim destpath As String
destpath = "c:\temp\temp.pdf"
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = Text1.Text
temparray() = Inet1.OpenURL(Text1.Text, icByteArray)
Open destpath For Binary Access Write As #1
Put #1, , temparray()
Close #1
其中text1我是使用oledragdrop的方式,將網頁上的檔案用拖放的方式,告訴inet1.url的路徑名稱,如下
Text1.Text = Data.GetData(vbCFText)
但是我在使用的時候,無法將網頁上放在SQL的檔案抓回來ㄝ,其實是有download下來,但是不論檔案多大,只有10K抓下來,而只要不是在SQL中的檔案,都可以download回來,也就是
當text1.text="http://xxx.xxx.xxx.xx/test.pdf"可以完全抓回,
若當text1.text="http://xxx.xxx.xxx.xx/testfiles.asp?TXfiletypeno=3&name=test.pdf"就只能抓下10K而已
(其中SQL資料庫是用ASP方式上傳所建立的)
所以得請教各位,是否我有忽略的地方,或是我有觀念不正確之處,請大家幫我思考一下,感謝各位....還在努力學習VB的小D
我用inet要將網路上的檔案抓回來,放在某個temp目錄下
使用的方式如下:
Dim temparray() As Byte
Dim destpath As String
destpath = "c:\temp\temp.pdf"
Inet1.Cancel
Inet1.Protocol = icHTTP
Inet1.URL = Text1.Text
temparray() = Inet1.OpenURL(Text1.Text, icByteArray)
Open destpath For Binary Access Write As #1
Put #1, , temparray()
Close #1
其中text1我是使用oledragdrop的方式,將網頁上的檔案用拖放的方式,告訴inet1.url的路徑名稱,如下
Text1.Text = Data.GetData(vbCFText)
但是我在使用的時候,無法將網頁上放在SQL的檔案抓回來ㄝ,其實是有download下來,但是不論檔案多大,只有10K抓下來,而只要不是在SQL中的檔案,都可以download回來,也就是
當text1.text="http://xxx.xxx.xxx.xx/test.pdf"可以完全抓回,
若當text1.text="http://xxx.xxx.xxx.xx/testfiles.asp?TXfiletypeno=3&name=test.pdf"就只能抓下10K而已
(其中SQL資料庫是用ASP方式上傳所建立的)
所以得請教各位,是否我有忽略的地方,或是我有觀念不正確之處,請大家幫我思考一下,感謝各位....還在努力學習VB的小D
全站熱搜
留言列表