Вот есть простой нерабочий код:

В принципе причина неработоспособности ясна - нет синхронизации.
Я долго искал но не нашел ничего про синхронизацию потоков созданных при помощи createthread (без класса TThread).
Помогите сделать код, преведеный выше, рабочим.  

Вопрос не в синхронизации, а в вызове form1.Button2.Click; 
Такие финты с визуальными контролами глючат из-под потоков. Можно только SendMessage этому контролу. А так все нормально, нечего здесь синхронизировать IMHO - захотел и удалил  

PS Offtop О, сообщение юбилейное 100  

Это сообщение отредактировал(а) Ibragim - 14.12.2006, 00:13

Sunvas, ну уже пора знать про этот топ: http://forum.vingrad.ru/index.php?showtopic=60076
Что касается VCL. 
Да, нежелательно обращаться из стороннего потока, ибо VCL работает в основном.
Но, если защитить синхронизацией, то вполне допустимо.

Sunvas, c VCL нормально синхронизирует только метод Sincronize потомков TThread. Большинство объектов имеют между собой внутренние связи, которые нельзя ограничить, т.е. всегда есть шанс обратиться одновременно из двух потоков к общей памяти.

alexeis1, ну это ты слишком загнул.
Синхронизацию можно установить всегда.
У VCL есть своя специфика. Но не до такой степени...

Я знаю про этот топ. Однако просматривая его я не увидел, чтобы там поток создавался без класса tthread. Может я просто невнимательно читал..  


Читаем тему внимательней:


  

Sunvas, я это понимаю, но ведь требуется именно синхронизация с VCL, я смотрел этот (Sincronize) и как я понял суть его в том, что в определенный момент (у VCL есть спец. мьютекс позволяющий корректно это делать) останавливается главный поток и второй поток становится за главного и выполняет все нужные операции, после чего он должен разблокировать исходный главный поток. Можно посмотреть как это там реализовано и сделать аналогично, но уже без Thread.

Добавлено @ 20:57 
Получается что главный поток большую часть времени владеет VCL мьютексом и в определенные моменты его отдает, второй поток должен ждать этого момента и его захватить.

Вот этот метод класса можно вызывать без того чтобы создавать сам класс и тем самым синхронизироваться с VCL. Не создавая потомка TThread.

Че-то я не врубился как его вызывать... Туплю однако.

Так же как конструктор. Класс Объект еще не существует а конструктор можно вызывать.

Это сообщение отредактировал(а) alexeis1 - 14.12.2006, 23:06

кроме тех случаев когда это уже как-то мутно сделано и есть шанс получить дедлок

Да не так уж всё сложно.
Но в данном случае проще нарисовать, чем объяснить 
Создаём критическую секцию.
В OnIdle отпускаем её, и сразу снова занимаем.
Таким образом мы подготовили Application к синхронизации.
Теперь нашь поток должен просто занять секцию. 
Если занял, то основной поток засыпает до тех пор, пока мы не отпустим секцию, и вся VCL работа выполняется уже в нём.
После этого отпускаем секцию и её снова получает основной, вместе с управлением.
Получается такая вот весёлая секция - кто ей владеет, тот и рулит VCL'ем.
Обычно ей владеет основной поток.
Но, если он ничем не занят, то рулилку при необходимости может взять второстепенный.

Ну это я давно догадался. Просто не пойму почему Делфи упорно видит исключительно функцию

И не хочет ни в какую видеть ту, что ты написал??

А блин, она в привате 
Ну тогда просто сделать процедуру и включить в нее этот код. Он делает по сути тоже, что Snowy сказал, вот только не зачем помещать критическую секцию в OnIdle, потому что одна такая секция, точнее мьютекс похоже уже включена в цикл обработки TApplication. Хорошо бы в этом разобраться. 

так и есть. Следующий фрагмент взят из функции обработки сообщений класса TApplication


CheckSynchronize; - позволяет блокироваться главному потоку.

Вот что про нее сказано в модуле classes


А вот ее фрагмент 


Т.е. как видно  она зависима от глобальной критической секции ThreadLock

Если она занята, то главный поток тут заблокируется.

Если вернуться к коду class procedure TThread.Synchronize(ASyncRec: PSynchronizeRecord);



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