Fetstil Fetstil Kursiv Understrykning linje färgläggning tabellverk Punktlista Nummerlista Vänster Centrerat högerställt Utfyllt Länk Bild htmlmode
  • Forum & Blog
    • Forum - översikt
      • .Net
        • asp.net generellt
        • c#
        • vb.net
        • f#
        • silverlight
        • microsoft surface
        • visual studio .net
      • databaser
        • sql-server
        • databaser
        • access
        • mysql
      • mjukvara klient
        • datorer och komponenter
        • nätverk, lan/wan
        • operativsystem
        • programvaror
        • säkerhet, inställningar
        • windows server
        • allmänt
        • crystal reports
        • exchange/outlook
        • microsoft office
      • mjukvara server
        • active directory
        • biztalk
        • exchange
        • linux
        • sharepoint
        • webbservers
        • sql server
      • appar (win/mobil)
      • programspråk
        • c++
        • delphi
        • java
        • quick basic
        • visual basic
      • scripting
        • asp 3.0
        • flash actionscript
        • html css
        • javascript
        • php
        • regular expresssion
        • xml
      • spel och grafik
        • DirectX
        • Spel och grafik
      • ledning
        • Arkitektur
        • Systemutveckling
        • krav och test
        • projektledning
        • ledningsfrågor
      • vb-sektioner
        • activeX
        • windows api
        • elektronik
        • internet
        • komponenter
        • nätverk
        • operativsystem
      • övriga forum
        • arbete karriär
        • erbjuda uppdrag och tjänster
        • juridiska frågor
        • köp och sälj
        • matematik och fysik
        • intern information
        • skrivklåda
        • webb-operatörer
    • Posta inlägg i forumet
    • Chatta med andra
  • Konto
    • Medlemssida
    • Byta lösenord
    • Bli bonsumedlem
    • iMail
  • Material
    • Tips & tricks
    • Artiklar
    • Programarkiv
  • JOBB
  • Student
    • Studentlicenser
  • KONTAKT
    • Om pellesoft
    • Grundare
    • Kontakta oss
    • Annonsering
    • Partners
    • Felanmälan
  • Logga in

Hem / Forum översikt / inlägg

Posta nytt inlägg


Nerladdning med antal procent man har laddat ner

Postades av 2006-10-13 15:12:35 - Alexander Av Ekenstam, i forum vb.net, Tråden har 2 Kommentarer och lästs av 819 personer

Hej alla!

Använder följde kod för att ladda ner en fil

Dim wc As New WebClient
wc.DownloadFile("http://servern/filen.rar", "C:\temp\filen.rar")


Det fungerar fint, filen laddas ner. Men nu undrar jag hur man ska göra för att t.ex. få reda på hur mycket procent man har laddat ner av det. Kan ju bland annat användas för en progressbar sen.

Tack i förhand!

Mvh Alex


Svara

Sv: Nerladdning med antal procent man har laddat ner

Postades av 2006-10-14 10:42:18 - Johan Djupmarker

Jag hittade bara C#-exempel, men du kanske kan översätta...

http://www.codeproject.com/cs/internet/webdownload.asp

/Johan


Svara

Sv:Nerladdning med antal procent man har laddat ner

Postades av 2006-10-14 18:45:36 - Alexander Av Ekenstam

Tack, läste lite i kommentarerna och tillsist hitta jag detta på nätet

Dim WebReq As HttpWebRequest = HttpWebRequest.Create("http://server.com/huge.bmp")
            Dim WebResp As HttpWebResponse = WebReq.GetResponse

            Dim str As Stream = WebResp.GetResponseStream()

            Dim inBuf(WebResp.ContentLength) As Byte

            Dim bytesToRead As Integer = CInt(inBuf.Length)
            Dim bytesRead As Integer = 0


            While bytesToRead > 0
                Dim n As Integer = str.Read(inBuf, bytesRead, bytesToRead)
                If n = 0 Then
                    Exit While
                End If
                bytesRead += n
                bytesToRead -= n

                Application.DoEvents()

                lbl_bytesRead.Text = bytesRead
                lbl_bytesToRead.Text = bytesToRead
                lbl_totalBytes.Text = (bytesRead + bytesToRead)

                progressbar.Value = (bytesRead / (bytesRead + bytesToRead)) * 100

            End While

            Dim fstr As New FileStream("C:\huge.bmp", FileMode.CreateNew, FileAccess.Write)
            fstr.Write(inBuf, 0, bytesRead)
            str.Close()
            fstr.Close()


Och det fungerar perfekt! Pricis som jag ville ha det :)


Svara

Nyligen

  • 19:55 kick-off med fokus på hälsa?
  • 19:53 kick-off med fokus på hälsa?
  • 16:24 Föreslå en skönhetsklinik online
  • 16:23 Föreslå en skönhetsklinik online
  • 18:42 Hvor finder man håndlavede lamper
  • 18:41 Hvor finder man håndlavede lamper
  • 16:36 Allt du behöver veta om keramiskt
  • 16:14 Vem anlitar man egentligen när tak

Sidor

  • Hem
  • Bli bonusmedlem
  • Läs artiklar
  • Chatta med andra
  • Sök och erbjud jobb
  • Kontakta oss
  • Studentlicenser
  • Skriv en artikel

Statistik

Antal besökare:
Antal medlemmar:
Antal inlägg:
Online:
På chatten:
4 570 725
27 958
271 751
311
0

Kontakta oss

Frågor runt konsultation, rådgivning, uppdrag, rekrytering, annonsering och övriga ärenden. Ring: 0730-88 22 24 | pelle@pellesoft.se

© 1986-2013 PelleSoft AB. Last Build 4.1.7169.18070 (2019-08-18 10:02:21) 4.0.30319.42000
  • Om
  • Kontakta
  • Regler
  • Cookies