同期を使用している問題

Question

別のスレッドで関数を実行し、スレッドが終了するまで待つ必要があります。

例えば、ここで本来の機能があります：上記のスレッドのコードが動作しない理由を

Procedure Search; 
var 
    testMyThread: TMyThread; 
    Done: Boolean; 
begin 
    // create a new thread to execute CallA 
    testMyThread:=TMyThread.Create(False,Done); 
    WaitForSingleObject(testMyThread.Handle, INFINITE); 
    if not Done then 
    begin 
    TerminateThread(testMyThread.Handle, 0); 
    end 
    else; 
    CallB; 
end 

unit uMyThread; 

interface 

uses classes; 

type 
    TMyThread = class(TThread) 
    private 
    { Private declarations } 
    FDone: ^boolean; 
    protected 
    procedure Execute; override; 
    public 
    constructor Create(const aSuspended: boolean; var Done: boolean); 
    procedure CallA; 
    end; 

implementation 

uses uMain; 

constructor TMyThread.Create(const aSuspended: boolean; 
    var Done: boolean); 
begin 
    inherited Create(aSuspended); 
    FDone := @Done; 
end; 

procedure TMyThread.CallA; 
begin 
    // enumurating several things + updating the GUI 
end; 

procedure TMyThread.Execute; 
begin 
    inherited; 
    Synchronize(CallA); // << the problem 
    FDone^ := true; 
end; 
end. 

あなたが私に言うことができる（CallA実行されないされない：

Procedure Search; 
begin 
    CallA; 
    CallB; 
end; 

これは修正機能です私がSynchronizeをTMyThread.Executeの中に使うと？

Answer 1

Synchronizeはアプリケーションのメッセージループ内でメソッドを呼び出します。 WaitForSingleObjectを使用すると、すべてのアプリケーションを保留状態にするだけです。これを試してください：

Procedure Search; 
    var 
    testMyThread: TMyThread; 
    Done: Boolean; 
    begin 
    // create a new thread to execute CallA 
    testMyThread:=TMyThread.Create(False,Done); 

    while (not Done) and (not Application.Terminated) do 
     Application.ProcessMessages; 

    if not Application.Terminated then 
     CallB; 
    end 

Answer 2

Delphiのtthreadクラスには、onThreadTerminateというイベントがあります。 これは、スレッドがexecuteメソッドを終了するときに、アプリケーションスレッドのコンテキストで呼び出されます。

このイベントは、アプリケーションで使用できます。