xml - NativeXml和线程

我正在尝试使该库与线程一起使用，但是我无法使用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;

最佳答案

没有将结果返回主线程或在此行出现访问冲突？

ADoc:= ADoc.Create(formMain);

单行代码包含一个错误和一个code smell：代码的味道是您从线程转为formMain。问题是您不是在类名上调用.Create()，而是在变量名本身上调用！您可能想要：

ADoc := TNativeXml.Create(nil);

adoc

xml - NativeXml和线程