* In message <3da1dd00$0$84318$edfadb0f@dspool01.news.tele.dk> Neo.dk wrote:
>> Du kan jo se på ett eksempel jeg har lavet:
>> <
http://www.hbsoft.com/files/MyDownload.zip>
>>
>> I kildekoden:
>> 'myURL' angir dokument/fil som skal lastes ned,
>> og 'strServer' angir fra hvilken server
>
>Hej Helge
>
>Det er lige det jeg skal bruge !
>
>Men jeg har et problem med den
... det ser ud til at download af din fil
>brum.mp3 stopper ved ca. 90%, jeg har prøvet med andre filer på andre
>lokationer, og hver gang er det det samme ... download stopper ved ca. 90% !
>
>Har du en ide til hvad der er galt ?
Virker fint på WIN98, men ser ut til å være noen problemer under XP.
Vet ikke hva (enda)...
Her er ett "minimum" for å laste ned en fil med http;
Legg til kontrollen 'Microsoft Internet Transfer Control'
med navnet 'Inet1' (Inet1 er default-navn).
Private Sub Command1_Click()
MousePointer = vbHourglass
Inet1.AccessType = icUseDefault
Dim b() As Byte
Dim strURL As String
strURL = "
http://www.hbsoft.com/files/brum.mp3"
b() = Inet1.OpenURL(strURL, icByteArray)
Open "C:\brum.mp3" For Binary Access Write As #1
Put #1, , b()
Close #1
MsgBox "Ferdig!!"
MousePointer = vbDefault
End Sub
OBS! Programmet vil "henge" til download er ferdig.
--
Snutten
Reply-to adressen er gyldig inntil spam er mottatt