none
Problema creazione downloader RRS feed

  • Domanda

  • Io sto creando un downloader. Vi spiego le mie procedure:

    1inserisco nel TextBox  l' URL in cui è presente il file da scaricare

    2premo il button1  che io ho chiamato "download"

    3scelgo dove salvare il file

    4premo il tasto "salva"

    dopo aver fatto tutto questo dovrebbe iniziare a scaricare, invece non parte nulla, adesso copierò il codice di tutto il form, vi ricordo che visual basic non visualizza nessun errore:

     

    Imports System.Net

    Public Class Form1

        Dim WithEvents download As New WebClient

     

        Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

            Button1.Enabled = False

            SaveFileDialog1.Title = "Salva File"

            SaveFileDialog1.FileName = ".exe"

            SaveFileDialog1.Filter = "Eseuibile|*.exe"

            If SaveFileDialog1.ShowDialog = DialogResult.Cancel = True Then

                Button1.Enabled = True

            Else

                download.DownloadFileAsync(New Uri(TextBox1.Text), SaveFileDialog1.FileName)

                Button2.Enabled = True

            End If

        End Sub

     

        Private Sub download_DownloadProgressChanged(ByVal sender As Object, ByVal e As System.Net.DownloadProgressChangedEventArgs) Handles download.DownloadProgressChanged

            ProgressBar1.Value = e.ProgressPercentage

            Label2.Text = e.ProgressPercentage & "%"

            If Label2.Text = "100%" Then

                ProgressBar1.Value = 0

                Label2.Text = "0%"

                Button2.Enabled = False

                Button1.Enabled = True

            End If

        End Sub

     

     

        Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

            download.CancelAsync()

            Button2.Enabled = False

            Button1.Enabled = True

        End Sub

     

        Private Sub Label1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Label1.Click

     

        End Sub

     

        Private Sub TextBox2_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs)

     

        End Sub

    End Class

    potete dirmi cosa devo c
    giovedì 10 marzo 2011 16:31

Risposte

  • Ciao,

    a parte che dovresti utilizzare un titolo un po più indicativo del tuo problema (ma per questo interverranno i moderatori), ho provato il tuo codice e sembra funzionare.

    Basta che indichi l'url di un file che esiste e il download parte correttamente, la progressbar avanza e il file viene scaricato bene. Se invice indichi un url che non esiste non succede proprio nulla come dicevi tu.

    Non è che hai omesso di dirce qualcosa?

    Il tuo url è in formato http://www.tuosito.it/filedascaricare.exe ?

     

    ciao


    Diego Riccardi
    venerdì 11 marzo 2011 08:17

Tutte le risposte

  • Ciao,

    a parte che dovresti utilizzare un titolo un po più indicativo del tuo problema (ma per questo interverranno i moderatori), ho provato il tuo codice e sembra funzionare.

    Basta che indichi l'url di un file che esiste e il download parte correttamente, la progressbar avanza e il file viene scaricato bene. Se invice indichi un url che non esiste non succede proprio nulla come dicevi tu.

    Non è che hai omesso di dirce qualcosa?

    Il tuo url è in formato http://www.tuosito.it/filedascaricare.exe ?

     

    ciao


    Diego Riccardi
    venerdì 11 marzo 2011 08:17
  • Come da manifesto del forum, ti invito ad indicare titoli dei thread che permettano a chi legge di identificare il problema. Per la seconda volta modifico io il titolo, per il futuro cerca di farlo nel momento in cui poni la domanda.

    Ti ringrazio per la collaborazione.


    Alessandro Del Sole
    Microsoft MVP - Visual Basic: development
    http://community.visual-basic.it/alessandro/
    venerdì 11 marzo 2011 10:12