Delphi のメインスレッドがクリティカルセクションに入れない場合の対処法

2年 ago
光, 明
1 minute

Delphiでは、主スレッドがクリティカルセクションに入れないのはデッドロックを避けるためと競合状態を避けるためです。もし、主スレッドでクリティカルセクションにアクセスする必要がある場合は、以下の方法を利用することで解決できます。

  1. クリティカルセクションの中のコード セクションで同期を図ります：クリティカルセクションで実行する必要があるコードセクションを抜き出して、クリティカルセクションのEnterおよびLeaveメソッドに囲みます。こうすることで、メインスレッドがクリティカルセクションにアクセスする前にクリティカルセクションのロックを取得して、アクセスが終了したらロックを解放します。
procedure TForm1.Button1Click(Sender: TObject);
begin
  // 执行临界区代码
  EnterCriticalSection(CriticalSection);
  try
    // 在这里执行需要同步的代码
  finally
    LeaveCriticalSection(CriticalSection);
  end;
end;
  1. ワーカースレッドを使用する。クリティカルセクションのコードをメインスレッド中に実行する必要がある場合は、ワーカースレッドを作成してクリティカルセクションのコードを実行し、メッセージングメカニズムを使用して結果をメインスレッドに戻す
type
  TMyThread = class(TThread)
  protected
    procedure Execute; override;
  end;

procedure TMyThread.Execute;
begin
  // 执行临界区代码
  EnterCriticalSection(CriticalSection);
  try
    // 在这里执行需要同步的代码
  finally
    LeaveCriticalSection(CriticalSection);
  end;

  // 将结果发送给主线程
  PostMessage(MainForm.Handle, WM_MYTHREAD_DONE, 0, 0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
  // 创建并启动辅助线程
  TMyThread.Create(True).Start;
end;

procedure TForm1.HandleMyThreadDone(var Msg: TMessage);
begin
  // 处理辅助线程完成后的结果
end;

これらの手法で、主スレッドがクリティカルセクションに入れなくなってしまう問題を解決하고、スレッドセーフを確保できます。

bannerAds