VB2008: прога зависает при работе с HttpWebRequest
Релиб
Форумы       Участники    Календарь    Кто он-лайн?
Добро пожаловать, гость ( Вход | Регистрация )
        



VB2008: прога зависает при работе с... Expand / Collapse
Автор
Сообщение
28.12.2009 19:28
Forum Member

Forum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum MemberForum Member

участник
Last Login: 07.01.2010 14:44
Сообщ.: 37, Visits: 297
Нужно определить размеры трёх файлов. Есть форма с кнопкой и тремя текстбоксами.

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

Но проблема в том, что получает размеры только двух файлов, на третьем зависает.

Делаю вот так:

Imports System.Net

Imports System.Text

Imports System.IO

 

Public Class Form1

   

    Private Function GetSize(ByVal strURL As String) As String

        Dim request As HttpWebRequest

        Dim responce As HttpWebResponse

        request = HttpWebRequest.Create(strURL)

        responce = request.GetResponse()

        responce.GetResponseStream()

        GetSize = responce.Headers("Content-length")

    End Function

 

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

        TextBox1.Text = GetSize("http://img.yandex.net/i/wiz1.png")

        TextBox2.Text = GetSize("http://img.yandex.net/i/wiz2.png")

        TextBox3.Text = GetSize("http://img.yandex.net/i/wiz3.png")

    End Sub

 

End Class

 

При пошаговой отладке, просто вылетает из отладки при третьем выполнении строки

responce = request.GetResponse()

без всяких сообщений об ошибке.

В чём может быть проблема?

Система: Win7 x64

Сообщ. #918603
07.01.2010 16:08
Supreme Being

Supreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme BeingSupreme Being

администратор
Last Login: 02.02.2010 22:27
Сообщ.: 4 421, Visits: 49 284

responce.Close() поставь в конце

Сообщ. #918611
« пред. тема | след. тема »


Эту тему читают Expand / Collapse
Посетители: 0 (0 гостей, 0 участников, 0 скрыт.участников)
Сейчас нет участников, просматривающих тему.

Время GMT +3:00, Сейчас 10:10