Идея реализации задуманного

[vipok72]

Всех приветствую, есть задумка которую хочу реализовать, а как не знаю, вот и прошу помощи, подсказки, идеи...

В общем есть 1 поток который грузит страницу с неким кодом из которого получается по 10 кусков кода в каждом из которых есть по 1 ссылке которая собстна и обрабатывается...

Вот... хочу сделать программу многопоточной, ибо скорость мне ооочень кстати будет... только вот придумать никак не могу...
Нужно чтобы 1 поток грузил основную страницу...
и запускал по очереди еще 10 потоков которым давал по куску кода, далее после обработки кода и нужной страницы каким либо образом оповещал главный поток чтобы он продолжил свою работу...
Впринципе остановить поток можно как нибудь поставив его на паузу, а как проверять закончили они работу или нет не знаю... хотя с помощью переменной-флага можно
Но как реализовать это понятия не имею к сожалению...
Код каждого из потоков в potok.Execute будет один и тот же включая и основной, как реализовать выполнение одним потоком одной части кода а остальными другой не знаю...
ну чтобы они выполняли разные задачи...
ну куски кода для каждого из потоков можно хранить в переменной объявленной в threadvar...
Как дается кусок кода вообще в данный момент... из основного кода копируется от начала до определенного символа часть кода, кусок кода который поступил в обработку удаляется из основного кода
Как реализовать такое... поток не притронется к коду пока другой код не скопирует нужную ему часть... ну впринципе это можно сделать с помощью переменной-флага

[Stilet]

А как сейчас загрузка выглядит? Всмысле код.

[vipok72]

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

А как сейчас загрузка выглядит? Всмысле код.

запускаю поток кнопкой, поток грузит код страницы в переменную и в цикле for от 1 до 10 (ссылок всего 10 которые обрабатываются) вырезает из этого кода кусок, который и обрабатывает
А нужно сделать так:
запускаю основной поток кнопкой, поток грузит страницу в переменную, и запускает потоки которые вырезают себе по куску кода, основной поток приостанавливается до завершения работы потоками... (1-10 сек)

[Slym]

Не правильно...
Резать должен один поток, т.к. переменная одна, и доступ к ней из разных потоков все равно придется синхронизировать

[Stilet]

Вот именно. Скачал, порезал - в цикле попередавал в доппотоки и порядок.

[vipok72]

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

Не правильно...
Резать должен один поток, т.к. переменная одна, и доступ к ней из разных потоков все равно придется синхронизировать

Т.е. надо будет сделать массив в него пихнуть куски, потом запустить доп потоки и в зависимости от переменной i каждый поток будет брать свой кусок и работать с ним?
А можно например объявить 2 разных класса в type?
ну типо:
TNewThread = class(TThread)
potok = class(TThread)
Например чтобы TNewThread работал постоянно со страницой и резал, а potok это те самые 10 потоков которые обрабатывают, а как реализовать ожидание основным потоком остальных потоков?
Есть идея как с переменной-флагом это реализовать и все...

[evg_m]

Т.е. надо будет сделать массив в него пихнуть куски, потом запустить доп потоки и в зависимости от переменной i каждый поток будет брать свой кусок и работать с ним?

Отрезать кусок и пихать СРАЗУ в поток.
А в массиве можно хранить сами потоки (на всякий случай, вдруг захочется их остановить и еще что-то сделать с ними).

как реализовать ожидание основным потоком остальных потоков?

их не надо ждать, надо получать информацию об их завершении!!!
ожидание (ПОЛУЧЕНИЕ информации о завершении!!!!) потоков через OnTerminate

[vipok72]

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

Отрезать кусок и пихать СРАЗУ в поток.

я не совсем понимаю... надо я так понял создать переменную в threadvar и каким то образом передать кусок примерно таким образом?

potok.Execute(false,"тут передать кусок")

[Stilet]

var Kuski:TStringList; //Определяем массив для кусков
...
Kuski.Text:=....; //Загоняем в него информацию
for i:=0 to Kuski.Count-1 do //В цикле
 With TPotok.Create(True) do begin //Создаем поток
  FreeOnTerminate:=true; //Просим его самоустраниться, когда его услуги более не понадобятся
  ValueKusok:=Kuski[i]; //Кидаем ему в некое свойство кусок
  Start; //Запускаем
 end;

Идея ясна?

[vipok72]

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

var Kuski:TStringList; //Определяем массив для кусков
...
Kuski.Text:=....; //Загоняем в него информацию
for i:=0 to Kuski.Count-1 do //В цикле
 With TPotok.Create(True) do begin //Создаем поток
  FreeOnTerminate:=true; //Просим его самоустраниться, когда его услуги более не понадобятся
  ValueKusok:=Kuski[i]; //Кидаем ему в некое свойство кусок
  Start; //Запускаем
 end;

Идея ясна?

Ну допустим что массив я создал, все сделал как вы написали, а как мне объявить свойство?
Как мне точно узнать что все потоки завершили работу?