Потоки и их синхронизация

[Denis_2017]

Здравствуйте, помогите разобраться с потоками.
Есть MID приложение, которое работает с удаленной базой Firebird. У меня проблемы с синхронизацией с динамически создаваемой формой.
На главной форме по нажатии на кнопку button1 :

procedure TFmMain.SP_USERS_NClick(Sender: TObject);
begin
  // Создаю дочернюю форму
  Application.CreateForm(TFmUsers, FmUsers);
  // Показываю дочернюю форму
  FmUsers.Show;
  // Создаю критическую секцию`
  G_GOUSERS := TCriticalSection.Create;
  //Создаю и запускаю поток
  with ThGOUSERS.Create(True) do
    begin
      Priority := tpNormal;
      FreeOnTerminate := True;
      Resume;
    end;
end;

В потоке:

procedure ThGOUSERS.Execute;
begin
  try
    G_GOUSERS.enter;
  //Выключаю все котролы на форме(кнопки, edit, combobox и т.п.)
  Synchronize(DisCtr);
   //Проверяю соединение с БД
  if ThDBCONNECTU.G_DBCONNECT(DB,T,ERRMES) < 0 then
        begin
          Synchronize(SetErrMes);
          Exit;
        end;
//Запрашиваю данные из таблицы
//……Здесь много кода
//Запрашиваю данные из таблицы  конец
//Включаю все котролы на форме(кнопки, edit, combobox и т.п.)
  Synchronize(EnCtr)
  Finally
     G_GOUSERS.leave;
  end;
end;

Все хорошо работает, но если закрыть форму во время выполнения потока, то получаю Exception в связи с тем, что процедура Synchronize(EnCtr) не может отработать – формы больше не существует, по закрытию дочернего окна я его уничтожаю.
procedure TFmUsers.FormClose(Sender: TObject; var Action: TCloseAction);
begin
Action := caFree;
end;
Подскажите как правильно проверять в Synchronize существование обновляемого объекта, чтобы избежать Exception.
P.S. Я привел сокращенный пример потока с 2 –мя процедурами Synchronize для лучшего понимаю, у меня в потоке синхронизаций 10-12 и больше…

[Sciv]

Если на каждую динамическую форму создаётся свой поток по нажатию на button1, то можно в Button1.OnClick запоминать поток, а в OnClose формы делать ему terminate.

[Denis_2017]

Сообщение от Sciv

Если на каждую динамическую форму создаётся свой поток по нажатию на button1, то можно в Button1.OnClick запоминать поток, а в OnClose формы делать ему terminate.

Т.е. поток сделать глобальной переменной?

[Slym]

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

TFmUsers
...
public
  thread:TThread;

[Denis_2017]

Сообщение от Slym

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

На Button1 могут нажать 685 раз

[7in]

Сообщение от Slym

подозреваю что ходоков много, но ты для каждого свой TCriticalSection лепишь...

Это да. Его нужно создавать не в обработчике сообщения каждый раз (тем более, объект не освобождается в итоге), а в TFmMain.OnCreate основной формы.

Сообщение от Slym

кроме того потенциальный дедлок - Synchronize тоже синхронизатор и если внутри Synchronize (работа в основном потоке) еще раз сделать enter в ту же критическую секцию - зависнет нахрен т.к. уже войдено в другом потоке
глобальной? забудь это слово... делай в поле создаваемой формы хоть в varом public

Откуда предположение, что в основной форме будет вход в критическую секцию?

У меня такие вопросы:
1. Зачем Synchronize(DisCtr) и Synchronize(EnCtr) делать в критической секции? И процедуры DisCtr и EnCtr - это методы какого класса? Откуда они понимают, на какой форме нужно отключать контролы? Откуда они берут адрес FmUsers?
2. Почему нельзя сделать один Enter+Synchronize(InitForm)+Leave и в этом InitForm сделать всё, что нужно? Каждый Synchronize порождает дополнительные задержки.

А основную проблему можно решить вот так:

procedure TFmMain.FormCreate(Sender: TObject);
begin
  // Создаю критическую секцию
  G_GOUSERS := TCriticalSection.Create;
end;

procedure TFmMain.SP_USERS_NClick(Sender: TObject);
begin
  //Создаю и запускаю поток
  with ThGOUSERS.Create(True) do
    begin
      // Создаю дочернюю форму
      Application.CreateForm(TFmUsers, FmUsers);  // FmUsers должен быть определён ВНУТРИ ThGOUSERS
      // ....Здесь отключаем все контролы формы....
      FmUsers.AllowClose := False;  // Запрещаем закрытие формы (на всякий случай... вдруг юзер успеет закрыть форму до синхронизации) :)))
      // Показываю дочернюю форму
      FmUsers.Show;
//      Priority := tpNormal;  // Смысл? Он и так будет Normal
      FreeOnTerminate := True;
      Resume;
    end;
end;

procedure ThGOUSERS.Execute;
begin
  try
     G_GOUSERS.enter;
  //Выключаю все котролы на форме(кнопки, edit, combobox и т.п.)
     Synchronize(FmUsers.InitForm);  // InitForm - это метод TFmUsers... ну или метод ThGOUSERS, тогда без "FmUsers."
  Finally
     FmUsers.AllowClose := True;
     G_GOUSERS.leave;
  end;
end;

procedure TFmMain.FormCloseQuery(Sender: TObject; var CanClose: Boolean);
begin
  CanClose := AllowClose;
end;

procedure TFmUsers.InitForm;
begin
  // тут ведётся работа с базой и в конце влючаются контролы
end;

Типа такого...

[Denis_2017]

FmUsers.AllowClose := False; // Запрещаем закрытие формы
FmUsers.WannaClose := False; // Не было попыток закрыть форму

Это конечно выход, но что если соединение не стабильно, пользователю по-любому нужно дождаться завершение потока?

[7in]

Кон писал "на лету", без проверки.... немного поменял, посмотри заново
Без WannaClose. Всё равно форма подвиснет, пока идёт соединение с базой...

Сообщение от 7in

Откуда они понимают, на какой форме нужно отключать контролы?

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

[7in]

Сообщение от Denis_2017

Это конечно выход, но что если соединение не стабильно, пользователю по-любому нужно дождаться завершение потока?

Ну а как ещё?
Скажи как надо, от этого и будем плясать...

[Denis_2017]

Сообщение от 7in

Кон писал "на лету", без проверки.... немного поменял, посмотри заново
Без WannaClose. Всё равно форма подвиснет, пока идёт соединение с базой...

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

Примерно понял, буду пробовать. Спасибо.