Как скачать файл?

[_Мика_]

В VB.NET появился какой нибудь новый способ скачать не большой файл? Или надо опять, этим...*****...URLDownloadToFile

[_Мика_]

Один способ нашел, но при этом форма виснит, а надо, желательно, шоб не висла

вот способ котрый я нашел...

Код: Выделить всё


    Dim wb As New Net.WebClient
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        wb.DownloadFile (<<URL>>,<<FILENAME>>)
    End Sub


[_Мика_]

Вроде нашел

Код: Выделить всё


wb.DownloadFileAsync(<<URL>>,<<FILENAME>>)


Но как определить, скачался файл или нет?

[_Мика_]

Вот, переделал один примерчик, кому интересно....

Код: Выделить всё


    Public Function D(ByVal sURL As String, ByVal pProgress As ProgressBar, ByVal Filename As String) As Boolean
        D = False
        Dim scaricato As Double

        Dim URLReq As Net.HttpWebRequest
        Dim URLRes As Net.HttpWebResponse
        Dim FileStreamer As New IO.FileStream(Filename, IO.FileMode.Create)
        Dim bBuffer(999) As Byte
        Dim iBytesRead As Integer

        Label1.Text = Filename
        Label2.Text = sURL

        URLReq = System.Net.WebRequest.Create(sURL)
        URLRes = URLReq.GetResponse

        Dim sChunks As IO.Stream = URLReq.GetResponse.GetResponseStream

        pProgress.Value = 0
        pProgress.Maximum = URLRes.ContentLength


        Do
            DoEvents()
            iBytesRead = sChunks.Read(bBuffer, 0, 1000)

            scaricato += iBytesRead
            Label3.Text = "Downloading " & Format(ProgressBar1.Value / 1024, "#,###,###,###0.00") & " Kb di " & Format(ProgressBar1.Maximum / 1024, "#,###,###,###0.00") & " kb"
            DoEvents()
            If pProgress.Value + iBytesRead <= pProgress.Maximum Then
                pProgress.Value += iBytesRead
            Else
                pProgress.Value = pProgress.Maximum
            End If

            FileStreamer.Write(bBuffer, 0, iBytesRead)
        Loop Until iBytesRead = 0

        sChunks.Close()
        FileStreamer.Close()
        D = True
    End Function

Показывает прогресс бар, сколько скачано, итд

[Andrey Fedorov]

Или надо опять, этим...*****...URLDownloadToFile

Кстати, в VB6 можно было и без этого. И вообще без API. Достаточно было воспользоваться методом AsyncRead у UserControl-a.

[Andrey Fedorov]

Один способ нашел, но при этом форма виснит, а надо, желательно, шоб не висла

А запустить без формы?

[Sebas]

Вот, переделал один примерчик, кому интересно....



Показывает прогресс бар, сколько скачано, итд

А позицинирование в потоке поддерживается? Это к вопросу о докачке....

[Andrey Fedorov]

А позицинирование в потоке поддерживается? Это к вопросу о докачке....

Stream.Position Property - похоже это...

[Sebas]

А позицинирование в потоке поддерживается? Это к вопросу о докачке....

Stream.Position Property - похоже это...

Эт то понятно, а не выскочит NotSupported ?

Ктонить сам пробовал?

[Andrey Fedorov]

Эт то понятно, а не выскочит NotSupported ?

Сервер может поддерживать докачку или нет...
Возможно тут поможет Stream.CanSeek Property.

Ктонить сам пробовал?

Увы не приходилось...