怎样在DLL中共享TDATABASE？？？？

Question

我写了一个DLL得函数,需要用TDATABASE做为参数,可调试时执行过程都能执行就是最后一步执行完后报地址冲突得错误,请高手帮忙!!!先谢了!!!
function PP_10001( ADatabase: TDatabase; AData: Pchar; AFile: Pchar): Integer; stdcall;
var
  vqry: TQuery;
begin
    Session := ADatabase.Session; //如不加这句总提示数据库得用户/密码不正确,加上后执行完最后一句就报地址冲突
    result := -1;
    try
    vQry := TQuery.Create(nil);
    try
       vQry.DatabaseName := ADatabase.DatabaseName;
       .....执行查询,修改等SQL操作
       result := 0;
    finally
        if vQry.Active then vQry.Close;
        vQry.Free;
    end;
    except
    end;
end;

Answer 1

楼主请看这里
http://expert.csdn.net/Expert/TopicView1.asp?id=2997778