VB2008: прога зависает при работе с HttpWebRequest

Period · 28.12.2009, 23:28

Нужно определить размеры трёх файлов. Есть форма с кнопкой и тремя текстбоксами.
При нажатии на кнопку, прога обращается к серверу, получает размеры файлов и выводит их в текстбоксы.
Но проблема в том, что получает размеры только двух файлов, на третьем зависает.
Делаю вот так:
[quote]
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</FONT

07.01.2010, 20:08

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

28.12.2009, 23:28	#1
Period Пользователь Регистрация: 17.12.2001 Сообщений: 37	VB2008: прога зависает при работе с HttpWebRequest Нужно определить размеры трёх файлов. Есть форма с кнопкой и тремя текстбоксами. При нажатии на кнопку, прога обращается к серверу, получает размеры файлов и выводит их в текстбоксы. Но проблема в том, что получает размеры только двух файлов, на третьем зависает. Делаю вот так: [quote]</P><FONT color=#0000ff size=2><FONT color=#0000ff size=2> Imports<FONT size=2><FONT color=#000000> System.Net</P><FONT color=#0000ff size=2><FONT color=#0000ff size=2> Imports<FONT size=2><FONT color=#000000> System.Text</P><FONT color=#0000ff size=2><FONT color=#0000ff size=2> Imports<FONT size=2><FONT color=#000000> System.IO <FONT size=2><FONT color=#000000> </P><FONT color=#0000ff size=2><FONT color=#0000ff size=2> Public<FONT color=#000000 size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>Class<FONT size=2><FONT color=#000000> Form1</P><FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2> Private<FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>Function<FONT size=2> GetSize(<FONT color=#0000ff size=2><FONT color=#0000ff size=2>ByVal<FONT size=2> strURL <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As<FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>String<FONT size=2>) <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As<FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>String</P><FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2> Dim<FONT size=2> request <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As<FONT size=2> HttpWebRequest <FONT color=#0000ff size=2><FONT color=#0000ff size=2> Dim<FONT size=2> responce <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As<FONT size=2> HttpWebResponse request = HttpWebRequest.Create(strURL)</P><FONT size=2> responce = request.GetResponse() responce.GetResponseStream() GetSize = responce.Headers(<FONT color=#a31515 size=2><FONT color=#a31515 size=2>"Content-length"<FONT size=2>) <FONT color=#0000ff size=2><FONT color=#0000ff size=2> End<FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>Function <FONT color=#0000ff size=2><FONT color=#0000ff size=2> </P><FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2> Private<FONT size=2> <FONT color=#0000ff size=2><FONT color=#0000ff size=2>Sub<FONT size=2> Button1_Click(<FONT color=#0000ff size=2><FONT color=#0000ff size=2>ByVal<FONT size=2> sender <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As<FONT size=2> System.Object, <FONT color=#0000ff size=2><FONT color=#0000ff size=2>ByVal<FONT size=2> e <FONT color=#0000ff size=2><FONT color=#0000ff size=2>As</FONT

07.01.2010, 20:08	#2
Alexey Гость Сообщений: n/a	RE: VB2008: прога зависает при работе с HttpWebRequest <FONT size=2> responce.Close() поставь в конце</P>

Похожие темы
Тема	Автор
Visual Basic Поворот изображения на определенный угол Возможно ли повернуть изображение на определённый угол ? На форме есть image1, как повернуть картинку на 45 градусов ?	dieman
Автоматическое выполнение макроса Visual Basic Доброго времени суток! Я разрабатываю плеер на Delphi для воспроизведения звуковой рекламы. Плейлист для плеера делаю в MS Access, т.к. файлы для воспроизведения должны выбираться из...	Xakand
Появление картинки при нажатии в листбоксе Visual Basic Вот есть программа такого типа: http://img22.imageshack.us/img22/5786/56025916.jpg Нужно сделать, что бы при нажатии на запись в листбоксе появлялась картинка. Как это сделать? Я не знаю...	bosscs
Visual Basic В Windows 7 не выполняется DllRegisterServer 1. Если запускать программу из командной строки от имени администратора, то выполняется. Но этот вариант не подходит, т.к. программа рассчитана на самых неподготовленных User-ов, которые прийдут с...	aleksmir
Программа: поведения бильярдного шара.. Visual Basic Привет! Совершенно я не программист, но тут задали написать программку на поведение бильярдного шара (одного). Пока вот что есть: Стол с границами, координаты шара, координаты точки, задающей...	Aivika
Visual Basic Подключение таблиц, защищенных паролем, разделенной базы данных Добрый день всем. Стояла задача подключения таблиц, защищенных паролем, разделенной базы данных. Полазил по Интернету - нашел модуль, подключил. Примерно так это выглядит. Dim dbs As Database Dim...	Yulo

Опции темы
Версия для печати Отправить по электронной почте

Ads

VB2008: прога зависает при работе с HttpWebRequest

Visual Basic