使用工厂类模式构建的数据库访问层

一个项目用到驱动Access数据库，MySql数据库，定义一个IDBManager接口。然后分别定义了TAccessManager和TMySqlManager，分别实行该接口。然后定义一个TDBFactory来创建这个接口。为了做到通用，采用从配置文件中读取字符串，然后转换为类名，TDBFactory的CreateDBMgr方法，根据传递的参数创建不同的数据驱动。

unit untDBFactory;

interface

uses
  SysUtils, Windows, Messages, Classes, Graphics, Controls, untIDBManager;

type
  TDBFactory = class(TObject)
  public
    function CreateDBMgr(DBMgrStr: string): IDBManager;
  end;
implementation
{
********************************** TDBFactory **********************************
}
{ TDBFactory }
/// <summary>
/// 创建数据库接口
/// </summary>
/// <param name="DBMgrStr"> </param>
/// <returns> </returns>
function TDBFactory.CreateDBMgr(DBMgrStr: string): IDBManager;
var
  DBMgrClass: TClass;
  Inf: TComponent;
  guid: TGUID;
begin
   inherited;
   Result := nil;
   DBMgrClass := GetClass(DBMgrStr);
   if DBMgrClass=nil then
     raise EClassNotFound.Create('找不到类定义：'+DBMgrStr)
   else begin
     inf := (TComponentClass(DBMgrClass)).Create(nil);
     (Inf as iinterface).QueryInterface(
     StringToGUID('{6C036DF2-E05F-4C23-A72D-3CE4AA9BC2F1}'),result);
   end;
end;

end.

开始的时候，我采用 result := IDBManager(IInterface(TComponentClass(DBMgrClass)).create(nil)));的方法创建，却发现运行时有av异常。后经一位杨XX同事指点原来Delphi的接口有bug,2次转换后就会出错。