thread onterminate - 이벤트 작성에 도움이됩니다.

Question

Delphi-v5와 스레드에서 실행되는 구성 요소 (TmFileScan - thanks Mats)를 사용하여 스레드를 정상적으로 종료 할 수 있기를 원합니다. 여기에서 많은 검색과 읽기를 한 후에 나는 그것을 끝낼 수 있었지만 중단 후 화면 정리를 처리하는 이벤트가 필요합니다.

는 스레드에서 나는

Button1Click... 
begin 
    SearchThread.Terminate; 
end; 

응용 프로그램에서 다음

while not(Terminated) do // Iterating about a zillion times :) 
    ... 

를 ... 추가하고 그것을 잘 작동합니다. 스레드가 정상적으로 완료되면 시작되는 기존 OnReady 이벤트에서 화면을 정리합니다. 그러나 스레드가 종료 된 경우에는 OnAbort 이벤트를 구성 요소에 추가해야합니다.

누군가 해당 이벤트에 대한 코드 스 니펫을 제공해 줄 수 있습니까? 구성 요소에는 일시 중지 및 다시 시작 이벤트가 있지만 중단은 없습니다.

감사합니다.

Answer 1

TThread 클래스에는 OnTerminate 이벤트가 있습니다. Execute()이 종료되는지 여부와 상관없이 Execute() 종료 후에 호출되는 가상 TThread.DoTerminate() 메서드에 의해 트리거되거나 캐치되지 않는 예외를 통해 트리거됩니다. DoTerminate()을 무시하고 Terminated 속성이 True이거나 FatalException 속성이 nil이 아니고 그렇지 않으면 OnReady 이벤트를 트리거하는 경우 OnAbort 이벤트를 발생 시키십시오.

업데이트 :

TSearchThread = class(TThread) 
private 
    ... 
protected 
    ... 
    procedure DoTerminate; override; // <-- add this 
public 
    destructor Destroy; override; // <-- add this 
end; 

constructor TSearchThread.Create(Owner: TmFileScan; SubDir, Started: Boolean; 
    FilePaths, Filter: TStrings; fOnFileFound: TOnFileFoundEvent; 
    fOnReady: TOnReadyEvent); 
begin 
    inherited Create(true); 
    ... 
    ffList := TStringList.Create; // <-- add this 
    ... 
    Resume; 
end; 

// add this 
destructor TSearchThread.Destroy; 
begin 
    ffList.Free; 
    inherited Destroy; 
end; 

procedure TSearchThread.Execute; 
var 
    ... 
begin // function FindFile 
    // remove this 
    { 
    ffList:= TStringList.Create; 
    try 
    while not Terminated do 
    begin 
    } 
     for q:= 0 to ffPaths.Count - 1 do 
     begin 
     if Terminated then Break; // <-- add this 
     for n:= 0 to ffFilters.Count - 1 do 
     begin 
      if Terminated then Break; // <-- add this 
      Spec:= ffFilters[n]; 
      RFindFile(BackSlashFix(ffPaths[q])); 
     end; 
     end; 
    // remove this 
    { 
     Synchronize(Ready); // <-- remove this 
     Terminate; 
    end; 
    finally 
    ffList.Free; 
    end; 
    } 
end; 

// add this 
procedure TSearchThread.DoTerminate; 
begin 
    Synchronize(Ready); 
    inherited; 
end; 

의