NativeXml和線程

Question

我嘗試讓這個庫與線程一起工作，但我無法使用syncronize將結果返回到主線程。

在excute方法中創建xml沒有問題。

有人用過它嗎？

• NativeXml

---

TMyThread = class(TThread) 
     private 
     ADoc : TNativeXml; 
     protected 
     procedure Execute; override; 
     procedure DoProgress; 
     public 
     constructor Create(CreateSuspended: Boolean); 
     end; 

    { TMyThread } 

    constructor TMyThread.Create(CreateSuspended: Boolean); 
    begin 
     inherited; 
    end; 

procedure TMyThread.DoProgress; 
begin 
formMain.meminfo.Lines.Add(ADoc.WriteToString); 
end; 

procedure TMyThread.Execute; 
var i,j : integer; 
begin 
    inherited; 
begin 
    ADoc:= ADoc.Create(formMain); 
    try 
    Adoc.XmlFormat := xfReadable; 
    ADoc.LoadFromFile('test.xml'); 
    Synchronize(DoProgress); 
    finally 
     FreeAndNil(ADoc); 
    end; 
end; 
end; 

Answer 1

沒有得到結果返回給主線程或在該行獲得訪問衝突？

ADoc:= ADoc.Create(formMain); 

這一行代碼包含一個錯誤，一個code smell：代碼味道，你reffering到formMain，從一個線程。錯誤在於你不會在類名上調用.Create()，而是在變量名本身上調用.Create()！您可能想要：

ADoc := TNativeXml.Create(nil);