Зависание при загрузке страницы с помощью Indy

@HelloWold · Регистрация: 09.02.2015

Author24 — интернет-сервис помощи студентам

Здравствуйте.
Есть код:

C++

void __fastcall TForm1::Button2Click(TObject *Sender)
{
TStringList *List = new TStringList();
IdHTTP1->HandleRedirects = true;
try
{
    IdHTTP1->Request->Accept = "text/html";
    //http://railway.kanaries.ru/index.php?showtopic=18882
    //http://www.trainsim.ru/forum/showthread.php?t=17135
    List->Text = IdHTTP1->Get("http://www.trainsim.ru/forum/showthread.php?t=17135");
    List->SaveToFile("code_page.txt");
}
catch (EIdException &E)
{
    ShowMessage("Error");
}
delete List;
}

Суть проблемы состоит в том, что в момент загрузки страницы программа виснет и процессор грузится на 50% на project1.
Скажите, с чем это связано? Ведь другую страницу грузит нормально.

@gunslinger · 01.05.2015, 11:24

Загружай в потоке (TThread). А причину "тяжеловесности" страницы нужно искать в ней самой.

@HelloWold · 02.05.2015, 17:19 **[ТС]**

gunslinger, я не правильно сформулировал проблему

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

@HelloWold · 04.05.2015, 00:16 **[ТС]**

Доброй ночи,форумчане.
Будьте добры,протестируйте мое приложение. У меня программа виснет,как при запуске в доп.потоке, так и без него.
Спасибо...
И,если есть,какие-нибудь мысли по этому поводу,то поделитесь,пожалуйста

P.S. проест для XE2,но и на более новые версии билдера также пойдет.

@Dr.Xank · 04.05.2015, 19:50

На ХЕ6 отработало всё норм.
Только ->Resume()(старая команда) замен на ->Start() и все.

@HelloWold · 05.05.2015, 21:20 **[ТС]**

Dr.Xank, отлично!

Сам же я протестировал на XE2 и XE3 - также висит. Неужто это в версии среды проблема?
Dr.Xank,будьте добры,откомпилируйте проект и скиньте сюда, хочу посмотреть

Спасибо.

@Dr.Xank · 05.05.2015, 21:45

Держи

@HelloWold · 05.05.2015, 22:20 **[ТС]**

Dr.Xank, Компиляция программы под С++ Builder, чтобы работала на других компьютерах.
А то ошибка при запуске появляется.

@Dr.Xank · 06.05.2015, 17:52

Сделал

@HelloWold · 06.05.2015, 21:43 **[ТС]**

Dr.Xank, действительно все работает

Но все равно очень странно. Почему на XE2 и XE3 не пашет?!
Ребят, если у вас есть XE2 или XE3,то помогите,пожалуйста,протестить. Нужно же узнать в чем проблема...

@HelloWold 0 / 0 / 0 Регистрация: 09.02.2015 Сообщений: 83
	06.05.2015, 21:43 [ТС]	10
	Dr.Xank, действительно все работает Но все равно очень странно. Почему на XE2 и XE3 не пашет?! Ребят, если у вас есть XE2 или XE3,то помогите,пожалуйста,протестить. Нужно же узнать в чем проблема... 0

@gunslinger случайный прохожий 3031 / 2062 / 626 Регистрация: 20.07.2013 Сообщений: 5,548
	01.05.2015, 11:24	2
	Загружай в потоке (TThread). А причину "тяжеловесности" страницы нужно искать в ней самой. 0

@HelloWold 0 / 0 / 0 Регистрация: 09.02.2015 Сообщений: 83
	02.05.2015, 17:19 [ТС]	3
	gunslinger, я не правильно сформулировал проблему Программа виснет и грузится на 50% не во время загрузки сайта, а с момента нажатия на кнопку. Сниффер показывает,что обращение к сайту было, но в папке с программой не появляется файла с кодом сайта. 0

@Dr.Xank Марсианин))) 713 / 46 / 15 Регистрация: 18.07.2010 Сообщений: 637
	04.05.2015, 19:50	5
	На ХЕ6 отработало всё норм. Только ->Resume()(старая команда) замен на ->Start() и все. 0

@HelloWold 0 / 0 / 0 Регистрация: 09.02.2015 Сообщений: 83
	05.05.2015, 21:20 [ТС]	6
	Dr.Xank, отлично! Сам же я протестировал на XE2 и XE3 - также висит. Неужто это в версии среды проблема? Dr.Xank,будьте добры,откомпилируйте проект и скиньте сюда, хочу посмотреть Спасибо. 0

@HelloWold 0 / 0 / 0 Регистрация: 09.02.2015 Сообщений: 83
	05.05.2015, 22:20 [ТС]	8
	Dr.Xank, Компиляция программы под С++ Builder, чтобы работала на других компьютерах. А то ошибка при запуске появляется. 0