"Mads" <mads@iname.com> wrote in message
news:c1n135$1949$1@news.cybercity.dk...
> "Mads" <mads@iname.com> wrote in message
> news:c1mubt$15an$1@news.cybercity.dk...
> > Hej
> >
> > Jeg har brug for at hente en fil fra mit VB6 program via en HTTP
> connection.
> > Hvordan gøres det smartes og lettest?
> > Mit program er en Windows NT Service.
> >
> Jeg er indtil videre kommet op med at bruge Microsoft Internet Transfer
> Control og følgende kode:
>
> Dim byteData() As Byte
> Inet1.Protocol = ishttp
> Inet1.AccessType = icUseDefault
> byteData() = Inet1.OpenURL("
http://localhost/test.zip", icByteArray)
> Open "d:\test.zip" For Binary Access Write As #1
> Put #1, , byteData()
> Close #1
> Debug.Print "Done"
>
> Men det er også muligt at lytte efter StateChanged event'en og såfremt
State
> = icResponseCompleted så bruge GetChunk og gemme filen i 1 KB bidder eller
> lignende.
>
> Men hvad vil være bedst?
>
Derudover har jeg det problem at jeg gerne skulle bruge control'en fra en
klasse, og ikke på en form. Men kan ikke rigtig få det til at virke.
Hvorledes gør jeg det?
Hilsen
Mads