Article View: pl.comp.lang.vbasic
Article #104137[VB6] Download przy pomocy Inet-u.
From: Tomek B.
Date: Thu, 26 Mar 2009 12:17
Date: Thu, 26 Mar 2009 12:17
25 lines
1683 bytes
1683 bytes
Witam,
Mam następujący probem - ściągam binarny plik przy pomocy kontrolki Inet
następująco:
MP3() = In1.OpenURL("link_do_pliku", icByteArray)
Open LocalMP3 For Binary Access _
Write As #1
Put #1, , MP3()
Close #1
Wszystko jest OK tylko nie wiem w jaki sposób dynamicznie sprawdzić ile już
danych zostało ściągniętych? Próbowałem
sprawdzać wielkość tablicy bajtów MP3() w sposób:
Dim nLen As Long
nLen = UBound(MP3) - LBound(MP3) + 1
MsgBox nLen
Ale niestety zwraca rozmiar dopiero po ściągnięciu (przed tym jest tylko
Subscript out of range).
Czy jest jakiś sposób aby program na bieżąco zwracał ile aktualnie bajtów
zostało ściągniętych?
Pozdr.
Technical Details
Message-ID:
<gqfrsf$147$1@atlantis.news.neostrada.pl>Path:
mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.neostrada.pl!nemesis.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mailShow Full Headers
Complete Article Headers
Path: mbox-mo1.pugleaf.net!news-archive.icm.edu.pl!newsfeed.gazeta.pl!news.onet.pl!newsfeed.neostrada.pl!nemesis.news.neostrada.pl!atlantis.news.neostrada.pl!news.neostrada.pl!not-for-mail From: "Tomek B." <mephisto(cutoff)@msi.pl> Newsgroups: pl.comp.lang.vbasic Subject: [VB6] Download przy pomocy Inet-u. Date: Thu, 26 Mar 2009 13:17:29 +0100 Organization: TP - http://www.tp.pl/ Lines: 27 Message-ID: <gqfrsf$147$1@atlantis.news.neostrada.pl> NNTP-Posting-Host: adfb170.neoplus.adsl.tpnet.pl X-Trace: atlantis.news.neostrada.pl 1238069967 1159 79.184.105.170 (26 Mar 2009 12:19:27 GMT) X-Complaints-To: usenet@news.neostrada.pl NNTP-Posting-Date: Thu, 26 Mar 2009 12:19:27 +0000 (UTC) X-Priority: 3 X-MSMail-Priority: Normal X-Newsreader: Microsoft Outlook Express 6.00.2900.2180 X-RFC2646: Format=Flowed; Original X-MimeOLE: Produced By Microsoft MimeOLE V6.00.2900.2180 MIME-Version: 1.0 Content-Type: text/plain; charset=UTF-8 Content-Transfer-Encoding: 8bit