从另一个线程访问 VT 数据是否安全？

Question

从辅助线程更改 VirtualTreeView 数据是否安全？ 如果是，我应该使用临界区（甚至是同步方法）吗？

我担心当我从另一个线程写入 VT 的数据记录时，主线程同时调用它的重绘，这个刷新会导致一次读取相同的记录。我会补充一下，我在应用程序中只使用了 2 个线程。

类似...

type
  PSomeRecord = ^TSomeRecord;
  TSomeRecord = record
    SomeString: string;
    SomeInteger: integer;
    SomeBoolean: boolean;
end;

...
var FCriticalSection: TRTLCriticalSection; // global for both classes
...

procedure TMyCreatedThread.WriteTheTreeData;
var CurrentData: PSomeRecord;
begin
  EnterCriticalSection(FCriticalSection); // I want to protect only the record

  CurrentData := MainForm.VST.GetNodeData(MainForm.VST.TopNode);

  with CurrentData^ do // I know, the ^ is not necessary but I like it :)
    begin
      SomeString := 'Is this safe ? What if VT will want this data too ?';
      SomeInteger := 777;
      SomeBoolean := True;
    end;

  LeaveCriticalSection(FCriticalSection);

  MainForm.VST.Invalidate;
end;

// at the same time in the main thread VT needs to get text from the same data
// is it safe to do it this way ?

procedure TMainForm.VST_GetText(Sender: TBaseVirtualTree;
  Node: PVirtualNode; Column: TColumnIndex; TextType: TVSTTextType;
  var CellText: string);
var CurrentData: PSomeRecord;
begin
  EnterCriticalSection(FCriticalSection); // I want to protect only the record

  CurrentData := VST.GetNodeData(VST.TopNode);

  with CurrentData^ do
    begin
      case Column of
        0: CellText := SomeString;
        1: CellText := IntToStr(SomeInteger);
        2: CellText := BoolToStr(SomeBoolean);
      end;
    end;

  LeaveCriticalSection(FCriticalSection);
end;

// I'm afraid the concurrent field reading may happen only here with the private VT fields
// FNodeDataSize, FRoot and FTotalInternalDataSize, since I have Node.Data locked by the
// critical sections in the VT events, some of those may be accessed when VT is refreshed
// somehow

function TBaseVirtualTree.GetNodeData(Node: PVirtualNode): Pointer;
begin
  Assert(FNodeDataSize > 0, 'NodeDataSize not initialized.');

  if (FNodeDataSize <= 0) or (Node = nil) or (Node = FRoot) then
    Result := nil
  else
    Result := PByte(@Node.Data) + FTotalInternalDataSize;
end;

更新

我已经在代码中添加了关键部分，从 TMyCreatedThread 类调用 GetNodeData 真的不安全吗，即使这个函数只返回一个指向记录的指针？

非常感谢

问候

Answer 1

不，尤其是你这样做的方式。

VST 是一个可视化控件。 MainForm 也是如此，您直接从您的线程中引用它。 GUI 控件不是线程安全的，不应直接从线程访问。此外，您指的是线程中的全局变量“MainForm”。这绝对不是线程安全的。

如果您需要从主窗体和单独的线程访问VST 的数据，请不要将其直接存储在VST.Node.Data 中。将其保存在一个外部列表中，您可以用关键部分或其他一些线程安全方法将其包围，并在线程中访问该外部列表（首先锁定它）或在VST 事件中访问您的主窗体。请参阅 Delphi RTL 中的 TLockList 以获取可锁定列表的示例，并参阅 TMultipleReadExclusiveWrite 以获取示例同步类。