1

我的应用程序曾经是单线程的，但现在为了提高性能，我们需要使其成为多线程。

我们在以下架构中有 Lists 和 ListItems：

TBListItem = class(TBusinessObjects)
private 
  FList : TBList;
protected
  //methods
public 
  constructor Create(AList: TBList); reintroduce;
  //other methods
  //properties... 
end;

我们更喜欢列表的组合，而不是继承。

TBList = class(TPersistent)
private 
  FItemClass : TBListItemClass; //class of TBListItem

  //this is used to AddObject(key, object) of the TStringList duplicates are no allowed   
  function  BuildKey(ArrayOfKeys: array of Variant): string;
protected
  //we use a stringlist to save the items
  FList: TStringList; 

  function  GetItem(Index: Integer): TBListItem;
  //methods like Load(); Unload(); Save();
public 
  constructor Create(ARefClassItem: TBListItemClass); reintroduce;

  //these methods use buildkey
  function Add(ArrayOfKeys: Array of Variant): TBListItem; reintroduce;
  function FindByKey(const ArrayOfKeys: array of Variant): TBListItem;

  //other methods
  //properties... 
end;

在 ADD() 方法中执行以下操作：

var Index: Integer;
begin   
  Index:= FList.IndexOf(BuildKey(ArrayOfKeys));    
  if Index <> -1 then
    Result:= TBListItem(FList.Objects[Index])
  else 
  begin        
    Result:= FListItemClass.Create(Self);
    Result.FCodigo:= ArrayOfKeys;
    //load data from database.
    FList.AddObject(BuildKey(ArrayOfKeys), Result)
  end;    
end;

正如我所说，这些对象用于在运行时记录缓存数据，但每次我们需要在其中读取/写入对象时，我们必须：

EnterCriticalSection(instance of TRTLCriticalSection);
//Do Stuff
LeaveCriticalSection(Same instance);

我不能改变太多的架构，因为有无数的类继承自它。
当我运行这些进程时，处理器图形中有很多尖峰，也有很多停机时间。
该系统由delphi 6编译器编译而成。
关键会话已在单元初始化时创建。

还有另一种方法吗？
我可以以某种方式至少不锁定读数吗？

另外，我必须保证完整性，不允许使用相同密钥的 2 个对象。

4

1 回答 1

3

您将需要在阅读时执行一些同步。你不能让一个线程改变一个数据结构，而另一个线程试图读取它。一种常见的方法是单写多读锁。

Delphi 附带其中之一，即TMultiReadExclusiveWriteSynchronizer. 但是，我认为它的性能很差，而且自从TMonitor崩溃以来，我个人对 Emba 工程师编写正确同步原语的能力没有多少信心。

我的建议是使用Vista 中引入的Slim Reader/Writer (SRW) Lock 。如果您仍然需要支持 XP，那么我建议您回到关键部分。

于 2013-02-20T13:53:28.270 回答