Модераторы: Poseidon, Snowy, bems, MetalFan

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Почему зависает поток? 
:(
    Опции темы
UKRtortik
Дата 24.3.2014, 08:15 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



Почему при старте зависает поток?

Код

procedure TNewThread.Execute;
var
StringList: TStringList;
RegExpr: TRegExpr;
HTTPSend: THTTPSend;
begin
HTTPSend := THTTPSend.Create;
StringList := TStringList.Create;
RegExpr := TRegExpr.Create;
RegExpr.Expression := '\d{1,3}\.\d{1,3}\.\d{1,3}\.\d{1,3}:\d{1,5}';
HTTPSend.HTTPMethod('GET', Site);
StringList.LoadFromStream(HTTPSend.Document);
if RegExpr.Exec(StringList.Text) then
repeat
Site := RegExpr.Match[0];
Synchronize(Reg);
until not RegExpr.ExecNext;
RegExpr.Free;
HTTPSend.Free;
StringList.Free;
end;
 
procedure TNewThread.Reg;
begin
  Form1.sMemo2.Lines.Add(Site);
end;

PM MAIL   Вверх
Poseidon
Дата 26.3.2014, 07:49 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Откуда сведения о том, что зависает? Долго HTTPSend.HTTPMethod('GET', Site); обрабатывается? Так это нормально. 


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
UKRtortik
Дата 14.4.2014, 14:09 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



Poseidon, при старте программа полностю зависает секунд на 5-10, из-за чего?
PM MAIL   Вверх
CynicRus
Дата 14.4.2014, 14:58 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Бывалый
*


Профиль
Группа: Участник
Сообщений: 248
Регистрация: 31.5.2012

Репутация: нет
Всего: 5



Application.ProcessMessage попробуй. Из-за чего? Может из-за цикла, может из-за Get.

PM MAIL   Вверх
UKRtortik
Дата 14.4.2014, 15:02 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



А где именно должен быть Application.ProcessMessages?
PM MAIL   Вверх
UKRtortik
Дата 14.4.2014, 15:18 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



Код

SetLength(NewThread, sMemo1.Lines.Count);
for i := 0 to sMemo1.Lines.Count - 1 do
begin
NewThread[i] := TNewThread.Create(True);
NewThread[i].Site := sMemo1.Lines.Strings[i];
NewThread[i].Resume;
Application.ProcessMessages;
end;
end;


Не помогает.
PM MAIL   Вверх
Romikgy
Дата 14.4.2014, 15:22 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



в потоке имхо надо...


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
UKRtortik
Дата 14.4.2014, 15:24 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



а где именно в потоке?
PM MAIL   Вверх
Poseidon
Дата 14.4.2014, 15:34 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Цитата(UKRtortik @  14.4.2014,  14:09 Найти цитируемый пост)
Poseidon, при старте программа полностю зависает секунд на 5-10, из-за чего? 
Тут нужно смотреть код. Может в OnCreate что-то "тяжелое" выполняется, может еще что. Так просто "на глаз" сказать сложно.


--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
UKRtortik
Дата 14.4.2014, 15:52 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



при чем сдесь OnCreate? Они же не при запуске программы зависает. А когда поток запускаю.
PM MAIL   Вверх
Romikgy
Дата 14.4.2014, 15:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



где то между repeat  &  until (если не http затыка)


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
UKRtortik
Дата 14.4.2014, 16:31 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



не помогает
PM MAIL   Вверх
Poseidon
Дата 14.4.2014, 16:57 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Delphi developer
****


Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

Репутация: 53
Всего: 133



Цитата(UKRtortik @  14.4.2014,  15:52 Найти цитируемый пост)
при чем сдесь OnCreate? Они же не при запуске программы зависает. А когда поток запускаю. 

Я не совсем понял изначально эту фразу 
Цитата(UKRtortik @  14.4.2014,  14:09 Найти цитируемый пост)
при старте программа полностю зависает секунд на 5-10


"При старте" - это на какой строке? Что показывает отладка? Вполне возможно что поток стартует быстро, и останавливается на HTTPSend.HTTPMethod. Я уже писал, "зависание" на HTTPSend вполне объяснимо.




--------------------
Если хочешь, что бы что-то работало - используй написанное, 
если хочешь что-то понять - пиши сам...
PM MAIL ICQ   Вверх
UKRtortik
Дата 14.4.2014, 17:03 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Новичок



Профиль
Группа: Участник
Сообщений: 29
Регистрация: 24.3.2014

Репутация: нет
Всего: нет



Цитата

"зависание" на HTTPSend вполне объяснимо.

А как с этим бороться?
PM MAIL   Вверх
Romikgy
Дата 14.4.2014, 17:07 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Любитель-программер
****


Профиль
Группа: Участник Клуба
Сообщений: 7326
Регистрация: 11.5.2005
Где: Porto Franco Odes sa

Репутация: 26
Всего: 146



интернет мощнее


--------------------
Владение русской орфографией это как владение кунг-фу — истинные мастера не применяют его без надобности. 
smile

PM   Вверх
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: Общие вопросы"
SnowyMetalFan
bemsPoseidon
Rrader

Запрещается!

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Дельфи обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи


Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader.

 
0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: Общие вопросы | Следующая тема »


 




[ Время генерации скрипта: 0.0932 ]   [ Использовано запросов: 22 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.