VPF::Отмена совершаемого события - Форум программистов

DENSHER

Дата 29.11.2010, 18:05 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет

Каким образом можно отменить событие (DownloadTest) закачки файла.

Код


Private Sub BtStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStart.Click
        Label2.Text = "Идет закачка файла."       
        Call DownloadTest()
    End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        ' Отменить закачку файла
    End Sub

Sub DownloadTest()
        Try
            Dim myClient As New WebClient()

            AddHandler myClient.DownloadProgressChanged, AddressOf DownloadProgressCallback
            AddHandler myClient.DownloadFileCompleted, AddressOf DownloadFileUnzip

            Dim url As New Uri("http://127.0.0.1/test.zip")
            Dim file As String = My.Application.Info.DirectoryPath & "\update\test.zip"

            myClient.DownloadFileAsync(url, file)
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub DownloadProgressCallback(ByVal sender As Object, ByVal e As DownloadProgressChangedEventArgs)
        ProgressBar1.Value = e.ProgressPercentage
        Label1.Text = (e.ProgressPercentage.ToString & "%")
    End Sub

Private Sub DownloadFileUnzip()
            ' Распаковка файла
        Try
            Label2.Text = "Идет распаковка файла."
            File.Exists("update\test.zip")
            zipfile.ExtractZip("update\test.zip", ".", "")
            Label2.Text = "Файл успешно распакован."
            File.Delete("update\test.zip")
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Это сообщение отредактировал(а) DENSHER - 29.11.2010, 18:07

RobinHoodPHD

Дата 29.11.2010, 20:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 78
Регистрация: 12.8.2007
Где: Русь

Репутация: нет
Всего: 2

Запустите загрузку - DownloadTest, в отдельном потоке, для этого служит класс System.Threading.Thread А по нажатию кнопки отмены вызывайте метод Abort класса Вашего потока загрузки.

DENSHER

Дата 29.11.2010, 21:50 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 179
Регистрация: 3.3.2010

Репутация: нет
Всего: нет

Попытался сделать отдельный поток и остановить, но файл все равно докачиваеться до конца (

Вот что делал , (может что-то неправильно):

Код


Public DownloadThread As System.Threading.Thread

Private Sub BtStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtStart.Click
        Label2.Text = "Идет закачка файла."     
        DownloadThread = New System.Threading.Thread(AddressOf DownloadTest)
        DownloadThread.Start() ' Запуск нового потока.  
    End Sub

Private Sub BtCancel_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BtCancel.Click
        ' Отменить закачку файла
        DownloadThread.Abort()
    End Sub

Нашел способ как сеё чудо остановить.
Перед оператор объявить переменную - Dim myClient As New WebClient() , BtCancel добавить myClient.CancelAsync() и закачивание файла останавливается.

Это сообщение отредактировал(а) DENSHER - 30.11.2010, 00:27

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| VB .NET \| Следующая тема »