8

我的 DLL 中有一个类。而这个DLL提供了一个“接口”来创建这个类的对象并调用它们的方法。

类代码（简化）：

TLogger = class
  private
    //
  public
    function AddToLog(sBuf: PWideChar): Word;
    constructor Create(Name: PWideChar);
    destructor Destroy; override;
end;

constructor Create(Name: PWideChar);
begin
  //
end; 

destructor TLogger.Destroy;
begin
  //
end;

function TLogger.AddToLog(sBuf: PWideChar): Word;
var
  Temp1 : WideString;
  Temp2 : AnsiString;

begin
  Result := NO_ERRORS;

  WaitForSingleObject( FMutex, INFINITE );

  Temp1 := 'a';
  Temp2 := Temp1;

  //

  ReleaseMutex( FMutex );
end;

DLL 代码

function CreateLogger( LogFileName: PWideChar; PLogger: PCardinal): Word; stdcall;
begin
  try
    PLogger^ := Cardinal(TLogger.Create(LogFileName));
    Result := NO_ERRORS;
  except
    Result := ERR_CREATE_OBJECT;
  end;
end;

function DestroyLogger( PLogger: Cardinal ): Word; stdcall;
begin
  try
    TLogger(PLogger).Free;
    Result := NO_ERRORS;
  except
    Result := ERR_OBJECT_NOT_FOUND;
  end;
end;

function AddToLog( PLogger: Cardinal; BufStr: PWideChar ): Word; stdcall;
begin
  try
    Result := TLogger(PLogger).AddToLog( BufStr );
  except
    Result := ERR_OBJECT_NOT_FOUND;
  end;
end;

当我尝试从 1 个线程使用这个库时 - 一切正常。当我创建许多调用AddToLog随机周期函数的线程时，问题就开始了（每个线程都有它自己的类对象）。在一段时间内，我抓住了Access Violationor Invalid pointer operation。我做了一些研究并指出，如果变量Temp2有WideString类型，一切都很好。另一种解决方案是将互斥锁移至库代码（它只是一个“研究”代码）：

function AddToLog( PLogger: Cardinal; BufStr: PWideChar ): Word; stdcall;
begin
  WaitForSingleObject( TLogger(PLogger).FMutex, INFINITE );
  Result := TLogger(PLogger).AddToLog( BufStr );
  ReleaseMutex( TLogger(PLogger).FMutex );
end;

第二种解决方案对我不利，因为每个对象都有自己的互斥锁（想法是，如果两个对象必须使用一个文件，它们有相同的互斥锁来相互等待；如果两个对象必须使用不同的文件，它们有不同的互斥锁并并行工作）。

我试图解决这个问题 2 天，但我不明白出了什么问题。字符串转换如何导致这样的问题？

4

1 回答 1

14

放入以下行：

IsMultiThread := True;

作为 DLL 项目主代码块的第一行。这将指示内存管理器切换到线程安全模式。

这将解释和之间的行为差​​异AnsiString，WideString因为AnsiString它是由 Delphi 内存管理器分配的，并且WideString是在 COM 堆上分配的。当IsMultiThread是False时，Delphi 内存管理器不是线程安全的，但 COM 堆始终是线程安全的。

于 2013-07-30T15:36:47.857 回答