• Revista PROGRAMAR: Já está disponível a edição #53 da revista programar. Faz já o download aqui!

freaklori

Download Files

1 mensagem neste tópico

Boas,

Estou com alguma dificuldade em aceder aos ficheiros que se encontram no estado de DOWNLOAD.

ou seja.. criei um form com uma  lv, txt,btn

meto a url no txt carrego no btn e é adicionado a lv o ficheiro... ate aqui tudo bem so com um ficheiro

o problema é.. dado que a lv tem 2 colunas uma para mostrar o nome do ficheiro outra para mostrar o progresso

qd adiciono mais que um ficheiro para download nao consigo aceder aos valores do progresso de ambos mas sim so de um... como posso fazer isso??

aqui fica o codigo :



  Public WC As WebClient
  Public Item As ListViewItem
  Public SubItem As ListViewItem.ListViewSubItem
  Private TR As Thread

  Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
    txtUrl.Text = "http://www.rarlab.com/rar/wrar371br.exe"
    ' ftp://ubuntu.univ-nantes.fr/ubuntu-cd/hardy/ubuntu-8.04-desktop-i386.iso
    ' http://www.rarlab.com/rar/wrar371br.exe
    ' http://www.efnet.org/clients/win32/mirc/mirc631.exe
  End Sub


  Private Sub AsyncCompletedEventHandler(ByVal sender As Object, ByVal e As System.ComponentModel.AsyncCompletedEventArgs)
    SubItem.Text = "COMPLETO"
  End Sub

  Private Sub DownloadProgressChangedEventHandler(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs)
    SubItem.Text = e.ProgressPercentage.ToString
  End Sub


  Private Sub btnDownload_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnDownload.Click
    WC = New WebClient

    Dim uri As New Uri(txtUrl.Text)
    Dim tmp() As String = Split(txtUrl.Text, "/")
    Dim FileName As String = tmp(tmp.Length - 1)


    Item = LVDownloads.Items.Add(FileName, FileName, "")
    SubItem = Item.SubItems.Add("")

    WC.DownloadFileAsync(uri, "C:\" & FileName)

    'Progresso do download
    AddHandler WC.DownloadProgressChanged, AddressOf DownloadProgressChangedEventHandler

    'Download Completo
    AddHandler WC.DownloadFileCompleted, AddressOf AsyncCompletedEventHandler

  End Sub

acho que n fui mt explicito.. mas qualquer duvida perguntem que eu respondo..

Cumps

0

Partilhar esta mensagem


Link para a mensagem
Partilhar noutros sites

Crie uma conta ou ligue-se para comentar

Só membros podem comentar

Criar nova conta

Registe para ter uma conta na nossa comunidade. É fácil!


Registar nova conta

Entra

Já tem conta? Inicie sessão aqui.


Entrar Agora