線程安全的德爾福

Question

我要修改和改變線程一些可視化組件，正如你知道這是不是安全的這樣做。

我的問題是如何編寫完全線程安全的代碼？這可能嗎？如果是的話可以請給我一個簡單的例子嗎？

我的代碼不是線程安全的：

type 
    tMyWorkerThread = class(TThread) 
     public 
     procedure Execute; override; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure tMyWorkerThread.Execute; 
begin 
    //codes 
    //working with visual components 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    TMyWorkerThread.Create(false); 
end; 

謝謝。

Answer 1

我的問題與Synchronize!

type 
    tMyWorkerThread = class(TThread) 
     public 
     procedure Execute; override; 
    end; 

var 
    Form1: TForm1; 

implementation 

{$R *.dfm} 

procedure tMyWorkerThread.Execute; 
begin 

    //codes that takes long time 
    Synchronize(procedure begin 
    //working with visual components 
    end 
); 

end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin 
    TMyWorkerThread.Create(false); 
end; 

解決了，謝謝大家對我的幫助。

Answer 2

您應該只訪問VCL從主VCL線程對象。

一些閱讀方法（屬性獲得者）在其他線程中的工作 - 但你必須提前證明它閱讀特定德爾福構建的VCL源。或不使用它。

PS：Synchronize方法在主VCL線程中運行給定過程，如果主線程也被阻塞，則暫停調用者線程，這可能導致死鎖。

瞭解更多：（實際上使這個答案，列出一些鏈接）

• http://www.michael-puff.de/Programmierung/Delphi/Code-Snippets/VCLThreadDemo.shtml
• http://www.drbob42.com/uk-bug/hood-04.htm
• http://delphi.about.com/od/kbthread/a/thread-gui.htm
• Is it better to use TThread's "Synchronize" or use Window Messages for IPC between main and child thread?
• Delphi 6 : breakpoint triggered on non-VCL thread stops main thread repaints
• http://docs.embarcadero.com/products/rad_studio/delphiAndcpp2009/HelpUpdate2/EN/html/devwin32/win32_mthreadusemainthread_xml.html
• Simplifying VCL thread wrapper code
• Update a VCL component from CreateAnonymousThread
• http://thaddy.co.uk/threads/ - 「多線程 - 德爾福之路」 的鏡由馬丁·哈維
• http://otl.17slon.com/ - 新德爾福的方法來穿線

Answer 3

編寫線程安全的代碼在Delphi中涉及基礎護理，你必須在任何其他語言，這意味着應對競爭條件。當不同的線程訪問相同的數據競爭條件發生。處理這個問題的一個好方法是聲明TCriticalSection的一個實例，並將危險的代碼包裝在其中。

下面的代碼顯示了一個屬性的getter和setter，它通過hypotesis具有競爭條件。

constructor TMyThread.Create; 
begin 
    CriticalX := TCriticalSection.Create; 
end; 

destructor TMyThread.Destroy; override; 
begin 
    FreeAndNil(CriticalX); 
end; 

function TMyThread.GetX: string; 
begin 
    CriticalX.Enter; 
    try 
    Result := FX; 
    finally 
    CriticalX.Leave; 
    end; 
end; 

procedure TMyThread.SetX(const value: string); 
begin 
    CriticalX.Enter; 
    try 
    FX := Value; 
    finally 
    CriticalX.Leave; 
    end; 
end; 

通知使用（CriticalX）的TCriticalSection單個實例的序列化訪問數據成員FX。

但是，對於Delphi，您有一個額外的考慮！VCL不是線程安全的，所以爲了避免VCL競爭條件，導致改變屏幕必須在主線程中運行的任何操作。你得到的是通過調用同步方法中這樣的代碼。考慮到上述類，你應該這樣做：

procedure TMyThread.ShowX; 
begin 
    Synchronize(SyncShowX); 
end; 

procedure TMyThread.SyncShowX; 
begin 
    ShowMessage(IntToStr(FX)); 
end; 

如果你有2010 德爾福或更高版本，有可能利用匿名方法更簡單的方法：

procedure TMyThread.ShowX; 
begin 
    Synchronize(procedure begin 
    ShowMessage(IntToStr(FX)); 
    end); 
end; 

希望這有助於！