Многопоточность

[PUH]

Доброго времени суток, уважаемые форумчане.

При написании программы, работающей с idhttp столкнулся с необходимостью реализации многопоточности.

Код выглядит примерно так:

for p:=0 to memo1.Lines.Count-1 do begin
name := 'Puh'+inttostr(random(10000));
email := inttostr(random(10000))+'@mail.ru';

if reg(memo1.Lines[p], name, email)='1' then begin
n:=n+1;
end;

end;

Соответственно, все выполняется в 1 поток. Функция reg использует idhttp.

Что можно сделать? Как реализовать исполнение функции, скажем, в 5 потоков одновременно?

Заранее благодарен за помощь.

[Evgeniy26]

Почитайте:
http://forum.vingrad.ru/forum/s/1afb...pic-60076.html

[PUH]

Спасибо за информацию.

Покажусь наглым, но все же - ищу хотя бы примерную реализацию.

Как засунуть функцию в поток, как ограничивать количество исполняемых потоков, как отдавать им данные и т.п.

[Evgeniy26]

Стукни в асю