Нужны исходники многопоточного чекера HTTP прокси

@Igorek97 · Регистрация: 05.05.2014

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

Обыскал весь интернет исходников мнопоточного чекера HTTP прокси, все не то. По сообшениям кодеров этого форума, за какое-то упоминание VCL форм и контролов в доп. потоках, расстрел. Может, чтобы не стрелять меня, поделетесь правильным кодом? За понимание +

@mss · 06.05.2014, 21:31

Сообщение от FIL

В Memo1 (перед запуском потоков).

Ну так собственно к работе с потоками это же не относится ..
К тому же куда там втыкать костыль, если мемо загружается методом LoadFromFile ?
Да и за каким лешим вообще грузить все это хозяйство в мемо, если можно раздавать потокам строчки прямо из файла ?)

@FIL · 06.05.2014, 21:42

Сообщение от mss

К тому же куда там втыкать костыль, если мемо загружается методом LoadFromFile ?

Если в Мемо1 много строк (неважно загружены они или уже были там), то при запуске процесса "копирования их в Мемо2" приложение просто зависает без ProcessMessages в цикле создания потоков.

@Igorek97 · 06.05.2014, 21:51 **[ТС]**

FIL,
еще заметил что при перетаскивания окна, выполнение приостанавливается. Хотя автор шаблона заверяет, что к форме не относится работа.

@mss · 06.05.2014, 22:01

Сообщение от FIL

без ProcessMessages в цикле создания потоков

При создании потоков копирование в мемо2 не происходит.
А тормоза в осн.потоке при этом вполне естественны : создание даже одного потока - операция ресурсовремяемкоя сама по себе, что уж говорить о создании тысячи потоков ?) Так что дело тут не только и не столько в мемо)

Добавлено через 6 минут

Сообщение от Igorek97

выполнение приостанавливается

Выполнение чего приостанавливается ?
То что в мемо2 ты при этом не видишь изменений в мемо2, отнюдь не говорит о какой-то там приостановке ..

Сообщение от Igorek97

автор шаблона заверяет, что к форме не относится работа

Абсолютно не относится.
Где в коде потока ты видишь хоть какое-либо упоминание о форме ?
И это правильно, потому что любая форма и любой иной объект могут использовать юнит, в котором реализован поточный класс, без какой-либо его переделки-доработки при этом.

@Igorek97 · 07.05.2014, 04:51 **[ТС]**

Еще одна странность, при запуске процесса форму не закрыть.

@krapotkin · 07.05.2014, 08:40

создание пары десятков потоков - не такая уж и процедура. ну пусть будет 10.
1. создаем ThrList:=TObjectList.Create(True);
2. пишем (схематично. Добавить/переименовать как надо):

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
procedure TForm1.TryCreateNewThread;
begin
  if FThreadsCreated<memo1.lines.Count then
  begin
    thread:=TMyThread.Create(True);
    thrList.add(thread);
    thread.WhatToCheck := memo1.lines[FThreadsCreated];
    thread.freeOnTerminate:=false; // при удалении из ThrList вызовется Free!
    thread.OnTerminate:=ThrTerminated;
    thread.start;
    inc(FThreadsCreated);
  end
  else
     showMesssage('Все готово');
end;
procedure  TForm1.ThrTerminated(sender:TObject);
begin
  ThrList.Remove(Sender);
  if application.terminated then exit;
  if ThrList.Count<10 then
    TryCreateNewThread;
end;

3. 10 раз или меньше (вдруг memo1.lines.Count<10) вызываем TryCreateNewThread
4. дальше идет само до последнего, т.к. каждому потоку добавили обработку OnTerminate (кстати, этот обработчик уже в главном потоке исполняется и можно обращаться к VCL) где происходит создание нового потока, если нужно

@mss · 07.05.2014, 09:04

Сообщение от Igorek97

при запуске процесса

Какого "процесса" ?

@Igorek97 · 07.05.2014, 13:16 **[ТС]**

Сообщение от mss

Какого "процесса" ?

Копирования в мемо2. Вы бы хоть проверили работу своего шаблона, прежде чем вопрос задавать. Теперь видно, кого стрелять надо.

Всем спасибо за помощь, тему закрываю. Тему можно Del.

@krapotkin · 07.05.2014, 13:55

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

Новые блоги и статьи Все статьи Все блоги /
Запрет дублирования строк в табличной части Maks 13.09.2026 Реализация из решения ниже выполнена на нетиповом справочнике "Нормы ТО" с табличной часть "Виды ТО", разработанного в КА2, со следующими реквизитами: - ВидТО (СправочникСсылка. ВидыТО); - ВидГСМ. . .	Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Jin X 06.09.2026 Скрипты Tampermonkey для CyberForum, ChatGPT, Claude и пр. Работая с форумом и нейросетями в браузере часто хочется что-то подкорректировать или добавить какого-то функционала. Ниже прикреплён. . .	Программа опроса у.з. расходомера SLS-720F Argus19 02.09.2026 Программа опроса у. з. расходомера SLS-720F Программа опрашивает один раз в минуту три ультразвуковых расходомера SLS-720F через интерфейс RS-485 по протоколу Modbus RTU. Опрашиваются регистры. . .	Hyper-V: Компьютер должен поддерживать доверенный платформенный модуль 2.0. Maks 31.08.2026 При установке Windows 11 на виртуальную машину Hyper-V 2-го поколения вылезла такая ошибка: Решение: в параметрах виртуальной машины, в разделе "Безопасность" (Security) активировать флаг. . .
Архитектура биовида Стива в Майнкрафте: Зачем бонобо кубический каннибализм anaschu 30.08.2026 Кубический Вагинокапитализм в Minecraft: Математический инвариант ОДУ и рок Стивов-бонобо Главная задача разработанной «Модели Всего» — наглядно продемонстрировать наличие системной «судьбы». . .	Оттачиваю умение писать js программы. russiannick 30.08.2026 Проектом выходного дня стало написание Книги шифров Виженера. Итогом стала версия 200, синий туман. Синий туман назван так, потому что замораживает текст под собой. Нажатие синих кнопок управляют. . .	мат медиц модель 30. презентация проекта anaschu 27.08.2026 хоп хоп хоп хидахоп, а я кладую))	Как у меня протекала болезнь zorxor 27.08.2026 Здравствуйте, друзья! Эта запись блога предназначена именно для вас - для моих дорогих друзей, которые знали меня лично. Чтобы ответить на вопрос - а что же со мной произошло на самом деле? Я учился. . .

@Igorek97 0 / 0 / 0 Регистрация: 05.05.2014 Сообщений: 9

	Нужны исходники многопоточного чекера HTTP прокси 05.05.2014, 23:57. Показов 7434. Ответов 28 Метки нет (Все метки) Обыскал весь интернет исходников мнопоточного чекера HTTP прокси, все не то. По сообшениям кодеров этого форума, за какое-то упоминание VCL форм и контролов в доп. потоках, расстрел. Может, чтобы не стрелять меня, поделетесь правильным кодом? За понимание + 0

@Igorek97 0 / 0 / 0 Регистрация: 05.05.2014 Сообщений: 9
	06.05.2014, 21:51 [ТС]
	FIL, еще заметил что при перетаскивания окна, выполнение приостанавливается. Хотя автор шаблона заверяет, что к форме не относится работа. 0

@Igorek97 0 / 0 / 0 Регистрация: 05.05.2014 Сообщений: 9
	07.05.2014, 04:51 [ТС]
	Еще одна странность, при запуске процесса форму не закрыть. 0

@krapotkin 6854 / 4680 / 1465 Регистрация: 14.04.2014 Сообщений: 20,686 Записей в блоге: 21
	07.05.2014, 13:55
	советы, это не текст, который можно тупо переписывать это помощь, чтобы понять задачу. если нет желания, наймите программиста 0

Опции темы