从辅助线程更改 Virtual TreeView 数据是否安全?
如果是,我应该使用关键部分(甚至是同步方法)吗?
我担心当我从另一个线程写入 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;
Update
我已将关键部分添加到代码中,即使该函数仅返回指向记录的指针,从 TMyCreatedThread 类调用 GetNodeData 真的不安全吗?
多谢
Regards
不,尤其是你这样做的方式。
VST
是视觉控制。亦是如此MainForm
,您直接从您的线程中引用它。 GUI 控件不是线程安全的,不应直接从线程访问。此外,您还引用了线程中的全局变量“MainForm”。这绝对不是线程安全的。
如果您需要访问以下数据VST
来自您的主窗体和单独的线程,不要将其直接存储在VST.Node.Data
。将其保存在一个外部列表中,您可以用关键部分或其他一些线程安全方法包围该列表,并在线程中访问该外部列表(首先锁定它)或在VST
事件。看TLockList
在 Delphi RTL 中的可锁定列表的示例,以及TMultipleReadExclusiveWrite
示例同步类。
本文内容由网友自发贡献,版权归原作者所有,本站不承担相应法律责任。如您发现有涉嫌抄袭侵权的内容,请联系:hwhale#tublm.com(使用前将#替换为@)