FreePascal.ru

yus писал(а): 
for i := 0 to 2 do
  begin
    MYThread := TMyHTTPRequest.Create(True);

Вы создали MYThread и потом снова его создаёте.
Сделайте var MYThread array [0..2] of TMyHTTPRequest;
и потом создавайте MYThread[i] := TMyHTTPRequest.Create(True);

Раз была просигналена thereAreTasks, задания были.
RTLEventWaitFor(thereAreTasks); // <== Вот эта хрень, своим Wait не вешает ли В ИСКЛЮЧИТЕЛЬНЫХ СЛУЧАЯХ последний поток навечно или она делает exit вместо Wait?
Что значит её Wait? В коде thread.inc , там currenttm.rtleventWaitFor(state); А если ...

vitaly_l может поправишь?
Вот когда ты делишься со мной знаниями по программированию, я никогда не прошу сделай за меня работу.

Пойми, это полностью твой проект, я всего лишь поделился моими знаниями, в области дизайна интерфейсов.
Также как ты делишься со мной знаниями по программированию.

И ...

runewalsh
Пардон что, опять встреваю, но мне снова стало интересно, вот этот кусочек:

ok &#58;= length(tasks) > 0; // до EnterCriticalSection задачу мог перехватить другой воркер, тогда повторить всё сначала
if ok then
begin
&#46;&#46;&#46;&#46;
end;
if task&#46;proc = nil then break;

В ...

получилось
Смотри. Есть брендинг. Есть трендинг. Есть стильный Дезигнинг. <== Это всё очень модные фишки. ~_^
И есть полная хрень называемая: фирменный стиль. ^_~

Серьёзным людям, которые не верят в настоящее балалаечное искусство - модные фишки ненужны.
Соответственно остаётся: фирменный стиль ...

самому понравился пример, правда не знаю насколько он реален - про чужой код. В этом случае, твоя булевая переменная ему может оказаться пох, а вот на семафоре он точно споткнется.
Не "может оказаться пох", а 100% пох . <== И никак иначе.

С другой стороны, художники рады что, Вам (и ещё 1000 ...

runewalsh писал(а):После того, как ты отпустил семафор, его может тут же

Верю. +100500

Тема закрыта. Теперь, семафор идентифициован. Спасибо.

Второй inc(iCount) ничем не защищён...
Всё правильно - не защищён, для выключенного boSemaphore .

Но не защищён только когда не работает кусок if boSemaphore then begin .
А когда он включен, то Второй inc(iCount) запускается только после него,
соответственно при включенном boSemaphore счёт ...

Сам сопляк ещё в этой теме
Будете так самоутверждаться, навсегда им и останетесь.

Соответственно выставляя в нужных местах wait и release ты не даёшь потокам косячить с какой то НАПРИМЕР общей для них переменной.
Вот я выставлял их и запрещал им больше одного потока:

WaitForSingleObject(Sem ...

stesl писал(а):А статейки научной не будет?

https://translate.google.ru/translate?sl=en&tl=ru&js=y&prev=_t&hl=ru&ie=UTF-8&u=https%3A%2F%2Ftechnet.microsoft.com%2Fru-ru%2Flibrary%2Fms684957&edit-text=&act=url

stesl писал(а):Понял, что вместо параметра Nil, как раз можно параметры ф-ции своей передать

С таким примером у меня глаза на переносицу лезут. Пусть будет ф_ция с каким то параметром, и ты будешь натравливать на нее свои задачи. Из условия, если задача (или как правильно назвать то, что создает эта ф-ция...) ничем не занята, значит вперед. Ну и с имитацией бурной деятельности в вызываемой ...

Вот тут взял код от runewalsh http://www.freepascal.ru/forum/viewtopic.php?f=23&t=27493#p131008
И там же узнал о существовании семафора.

Переделал код вот в такой тест.

{$mode objfpc} {$h+} {$codepage UTF8}
uses
Windows, SysUtils;

function QueueUserWorkItem(func&#58; LPTHREAD_START_ROUTINE ...

Судя по картинке, он очень старый 2010 года. В нём куча ошибок. В смысле, вы ловите там не только свои ошибки но и чужие. И поэтому "мой" код у Вас не работает. Соответственно и код runewalsh тоже, т.к. я слегка переделал его пример.

stesl писал(а):Сваливается с ошибкой, кстати, код.

А у меня работает. Что за FPC ?

stesl писал(а):Может есть решение другой МЕГАзадачи, как сделать окошко FPC побольше?

Да. есть. Установите последний Лазарус, и куча проблем исчезнет. А главное IDE - немного больше умеет нежели блокнот.