Вопрос про потоки TThread

← →
Eugene © (2002-08-29 08:30) [0]

Здравствуйте.
Есть необходимость создать динамически несколько потоков (1-10)
При этом каждый потом выполняет одну и тужу процедуру, только с чуть разными параметрами. Вопрос: как мне их сихронизировать, а то все очень тормозит. До этого создовался одтн поток, все работало, но мою задачу можно выполнять разбив её на несколько частей, для этого я решил использовать для каждый части свой поток. Скажите, правильно ли это.
Спасибо.

← →
MBo © (2002-08-29 08:36) [1]

В принципе, наверно, правильно все зависит от правильной реализации. Конкретного вопроса пока нет?

← →
Anatoly Podgoretsky © (2002-08-29 08:57) [2]

Но твою задачу можно решить без разбиения на потоки, правильно ли это. Сравнив эти два высказывания ты сможешь выбрать какое правильно для тебя.
Хинт вариант с 10 потоками требует больше времени.

← →
Eugene © (2002-08-29 09:00) [3]

Tagthread - компонент из известной библиотеки
Alex Ghost Library http://aghost.da.ru

Вот пример кода, посмотрите правильно ли я сделал ?

Var MyThread : Array of TagThread; Thread_Count : Integer = 0; procedure TFormMain.Button3Click(Sender: TObject); begin SetLength(MyThread,5); for i:=0 to high(MyThread) do MyThread[i]:=nil; for i:=1 to high(MyThread) do Thread_Create(i); for i:=1 to high(MyThread) do MyThread[i].execute end procedure TFormMain.Thread_Create(Const ID: Integer); Begin try inc(Thread_Count); MyThread[ID]:=TagThread.Create(self); except Dec(Thread_Count); MyThread[ID]:=nil; end; with MyThread[ID] do Begin Name:="MyThread"+FssIntToStr(ID); Cycled:=False; Interval:=0; Priority:=tpNormal; Suspended:=True; Tag:=ID; OnExecute:=Thread_OnStart; OnTerminate:=Thread_OnStop; OnException:=Thread_OnException; end; end; procedure TFormMain.Thread_OnStart(Sender: TObject); Begin // Главная процедура с большими вычислениями end; procedure TFormMain.Thread_OnStop(Sender: TObject); var i : integer; Begin Dec(Thread_Count); if (Thread_Count = 0) then Begin for i:=1 to high(MyThread) do Begin MyThread[i].Destroy; MyThread[i]:=nil; end; end; end;

← →
ЮЮ © (2002-08-29 09:16) [4]

"Главная процедура с большими вычислениями" в 10 потоках не будет работать в 10 раз быстрее, но медленнее, чем в одном :-)

← →
Eugene © (2002-08-29 09:19) [5]

> ЮЮ
Тогда как же мне сделать разбиение ?
Ну не запускать же мне 10 программ одновременно, что бы они выполняли каждый свой кусок.

← →
Polevi © (2002-08-29 09:20) [6]

2ЮЮ ©
это если процессор один

← →
ЮЮ © (2002-08-29 09:24) [7]

> Polevi ©
А автор ны 10 прцессорах мучается ? :-)
> Eugene ©
10 программ точно также не сделают работу в 10 раз быстрей, только если на 10 разных компьютерах.

← →
Polevi © (2002-08-29 09:26) [8]

2Eugene ©
я не знаком с TagThread но твой код както мне не нравится :-)
я на твоем месте все описал своего наследника от TThread
type
TZThread=class(TTHread)
public
constructor Create(...);reintroduce;
procedure Execute;override;
end;

constructor TZThread.Create(...);
begin
inherited(true);
..
..
Resume;
end;

procedure TZThread.Execute;
begin
..
..
end;

← →
Eugene © (2002-08-29 09:39) [9]

> Polevi
TagThread - это и есть наследник TThread

> To All
Так как же грамотно решить мою задачу ?
10 потоков - плохо.
10 программ - тоже плохо.
Как быть ???

← →
ЮЮ © (2002-08-29 09:43) [10]

Написать алгоритм, работающий в 10 раз быстрее

← →
Eugene © (2002-08-29 09:47) [11]

> ЮЮ © (29.08.02 09:43)
> Написать алгоритм, работающий в 10 раз быстрее

Нельзя, алгоритм максимально оптимизорован.

← →
Alx2 © (2002-08-29 09:57) [12]

>Eugene © (29.08.02 09:47)
С какой именно целью задача рапределяетмя между десятью исполнителями?

← →
Eugene © (2002-08-29 10:06) [13]

> Alx2 © (29.08.02 09:57)
Есть алгоритм, который генерит уникальные комбинации паролей из заданного набора символов. Работа идет большая, при заданных 10 исходный сомволах и ширине пароля в 6 символов количество результатов = (1^6 + 2^6 +...+10^6). Число перебора очень большое, при этом каждый символ из 10 можно вычислять отдельно. Вот для этого и нужны потоки.
Я могу выложить исходники если это поможет решить мою проблему.

← →
MBo © (2002-08-29 10:07) [14]

>каждый символ из 10 можно вычислять отдельно. Вот для этого и нужны потоки
Не помогут.

← →
kronprince © (2002-08-29 10:09) [15]

- ну извини мужик :)
- если нужно 10(десять) потоков и Execute максимально оптимизирован - то единственный выход - идти заваривать кофе и ЖДАТЬ
- хотя - если можно - разбить "Главная процедура с большими вычислениями" на более мелкие части - в этом случае есть вероятность исполнения критического по времени кода в разное время

> kronprince
А никак нельзя синхронизировать ?

> Alx2
Это рассчитано на серваки (от 2 и более процов)

> To All
Я выложил архивчик с исходниками 30кб в архиве, пароль TThread
Посмотрите, может что и посоветуете.
http://proga.fromru.com/Main.exe

Да, если не будет качаться, то замените раширение на bmp

← →
Набережных С. (2002-08-29 16:48) [19]

> Alx2 © (29.08.02 10:17)
> >Eugene © (29.08.02 10:06)
> На однопроцессорной машине такой подход очень сильно замедлит
> выполнение.

Разница очень незначительная, в пределах погрешности измерений - при условии, что задача достаточно длительная.

А че это за модный TTHread - откуда у него методы OnExecute,
OnStart?

> max2057
Смотри выше, я написалчто использовал компонент TagThread из коллекции компонентов Alex Ghost Library http://aghost.da.ru
Это обычный наследник TThread с дополнительными функциями.

Значит никто исходники не смотрел, жаль.

Вопрос про потоки TThread Найти похожие ветки