Многопоточность. Безопасный доступ к переменной/функции из потока.

[Lime]

Всем доброго времени суток!
Делаю многопоточное приложение (в дебаг моде присутствует консолька).
Суть: каждый поток при некоторых событиях и результатах работы должен добавлять в общий лог сообщения и менять некоторые переменные.
Во многих источниках пророчат страшные муки тем кто не до конца обдумал работу с вводом/выводом данных из потока (с чтением записью переменных в общем) посему вопрос: Хватит ли для подобных действий критической секции?
а именно в

var cs:TCriticalSection;

а в одном из метотдов потока

cs.Enter;
// работа с внешней переменной
cs.Leave;

Или-же доступ к методам TCriticalSection так-же является проблемным местом?
P.S. как я понял Synchronize более "актуален и применим" в оконных приложениях?

Спасибо!

[Аватар]

Да все нормально, для этого и придуманы критические секции

[GunSmoker]

Synchronize - это более сильное ограничение, чем критическая секция.

В большинстве случаев достаточно критической секции. При условии, конечно, что вы правильно её используете.

Но это я руками в воздухе помахал. Кокретику, не видя вашего кода, не скажешь.

[GunSmoker]

Посмотрите ещё: http://www.gunsmoker.ru/2011/04/blog-post.html

[Lime]

Спасибо, статью прочитал, но это немного не то. В своих программах стараюсь действовать описанными методами давно

А псевдо код такой:

ПотокХ.AddMessageToLog(MSG)
Начало
Подготовка текста сообщения
КритСекция.Вход
Добавление сообщения в глобальный список/LogManager
КритСекция.Выход
Конец

P.S. Статья напомнила - нужно сделать класс с настройками

[Пепел Феникса]

а нет ли смысла перенести секцию и её применение внутрь самого LogManager?

[Lime]

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

procedure MyWriteln(const S: string);
var
  NewStr: string;
begin
  SetLength(NewStr, Length(S));
  CharToOem(PChar(S), PChar(NewStr));
  Writeln(NewStr);
end;

procedure DConsolePrint(S:string);
begin
DConsolePrintCritSect.Enter;
{$IFDEF CONSOLE}
MyWriteln(S);
{$ENDIF}
//LogManager ещё не написан :)
DConsolePrintCritSect.Leave;
end;


procedure TPortListener.PrintSyncMessage(MSG:string);
begin
if Length(MSG) > 0 then
DConsolePrint(MSG);
end;

Переделывал классы и логику из аналогичного приложения с формами (там была немного другая задача и реализация). Сейчас с "тесто-дебагом" выглядит немного хаотично

[Пепел Феникса]

я про это и говорил, чтоб поток вызывая PrintSyncMessage, не заботился про синхронизацию.

[Lime]

сложно сформулировать
Как я понял пока код внутри крит секции не отработает - дальше не пройдёт, по сему я не представляю как это организовать, мне кажется нужно создавать отдельный(лишний) поток который будет добавлять сообщение в лог, чтобы "основной из рабочих" потоков продолжал работать не отвлекаясь на очередь доступа к крит секции. как-то так ...

А в том коде который я привёл выше получается что поток всёравно доходит до критический секции и вынужден ждать фактического добавления сообщения в лог.

[Пепел Феникса]

только потоки встающие в очередь за секцию(на вход) будут стопорится, что вполне естественно.