сохранение изображений на диск

[FireFenix]

С одной стороны мне как новичку интересно порешать всякие задачки:

спасио за пример но после выдачи сообщения в MsgBox что удалёный сервер не отвечает, жму ок и вылетает прога с ошибкой в строке

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

Dim FileData As Byte() = WC.DownloadData(Address)


Значение не может быть неопределенным.
Имя параметра: address
перед строками MsgBox
вставил строчку exit try проблема осталась

Начните заново изучать язык с учебника по .NET ибо уже все вопросы перерастают в неумение пользоваться средой или языком

[Invader]

На форме Бутон, Текстбокс, Лебл
Я не проверяю чего он там грузит, но факт что грузит или выводит сообщение об отсутствие адреса.

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

Imports System.Web
Imports System.Net
Public Class Form1

    Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            Dim Address As String = TextBox1.Text '"http://tonkosti.ru/images/9/95/%254D0%25A5%25D0%25BE%25D0%25BB%25D0%25BB_Aladdin_Beach.jpg"
            Address = HttpUtility.UrlDecode(Address)
            Address = HttpUtility.UrlDecode(Address)
            Using WC As New Net.WebClient
                WC.Headers(Net.HttpRequestHeader.Cookie) = "nm=val"
                Dim FileData As Byte() = WC.DownloadData(Address)
                'Здесь запись на диск
                '=========================
                ' IO.File.WriteAllBytes("c:\100\542\88171.jpg", FileData)
                '=========================
                Label1.Text = "Данные сохранены"
            End Using
        Catch ex As WebException
            If ex.Status = WebExceptionStatus.ProtocolError Then
                If CType(ex.Response, HttpWebResponse).StatusCode = 404 Then
                    Label1.Text = "Адреса не существует"
                End If
            End If
        End Try
    End Sub
End Class

я благодарю за ответ спасибо всем но, во первых не составит ли вам труда передать исходник у меня проблема с инициализацией HttpUtility, это раз, второе в моем плохом скажем коде, есть передача в цикле через функцию и может она меня подводит....
пока стыдно полный код разместить, но извиняюсь за ранее если ночью не решу вопрос прошу не осуждать за код, это не шаблон... это для другой задачи, но уверен что в финале тема будет полезна

[edyapd]

Начните заново изучать язык с учебника по .NET ибо уже все вопросы перерастают в неумение пользоваться средой или языком[/quote]
Учебник хорош, только когда есть учитель. Сколько их не читал, знаний не прибавилось. Все свои задачи решал поиском подобного в MSDN и переделыванием под себя. VB изучаю чисто из интереса.
Если есть ошибки, ткните, и я их постараюсь не повторять.

[edyapd]

не составит ли вам труда передать исходник у меня проблема с инициализацией HttpUtility,

Я не сохраняю таких исходников. Половину кода взял с форума, половину из MSDN. Вы спрашивали как обойти 404 ошибку, только это и показывал.

[Qwertiy]

WC.Headers(Net.HttpRequestHeader.Cookie) = "nm=val"

Это зачем?

Сколько их не читал, знаний не прибавилось.

Прибавляются знания в плане того, что вообще возможно. А когда понадобится, можно легко найти то, что нужно.

Все свои задачи решал поиском подобного в MSDN и переделыванием под себя.

Так он даже поиском не пользуется. Даже совсем элементарных вещей типа блоков Try-Catch...

Я не сохраняю таких исходников.

Надо их сразу выкладывать, вместе с exe'шником.

[edyapd]

WC.Headers(Net.HttpRequestHeader.Cookie) = "nm=val"

Это зачем?

Я не вникал в код, просто скопировал с этого топика из того, что было выложено.
Задача стояла показать как отловить 404 ошибку.

Сколько их не читал, знаний не прибавилось.

Прибавляются знания в плане того, что вообще возможно. А когда понадобится, можно легко найти то, что нужно.

Значит мне не попадались хорошие учебники. Такое ощущение, что они написаны для тех кто уже в совершенстве владеет VB.

Надо их сразу выкладывать, вместе с exe'шником.

Буду иметь ввиду.

[Invader]

то есть синхронная, если я подставлю вместо адреса в строчку кода

Синхронная операция - та, которая выполняется в том же потоке. Асинхронная - которая выполняется в другом потоке, т. е. паралельно.
Я не пользовался классом Net.WebClient, но судя по названию метода и возвращаемому типу, он является синхронным, что означает, что сохранение в файл даже не начнётся до завершения его скачивания.

вот и странно, получилось много сохранённых файлов .jpg с нулевым размером - пустышек. Предполагаю картинка была найдена, но во время формирования пути и имени будущего файла было подставлена другая ссылка на копирование - весь процесс в цикле

[Qwertiy]

Ерунда какая-то.
Ответ сервера какой, пустой?