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

一个项目用到驱动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次转换后就会出错。