SQL Server 存储过程/触发器中调用COM组件的方法

实施别的系统时遇到一个问题,就是在SQL Server中中使用新建服务器连接方式连接到数据库Oracle时查询和写入某个表时出错,后来想到用一个外挂的程序来操作,可需要触发条件,轮询的话涉及到及时性和网络负荷问题.到网上一搜索,发现可以在SQL Server的存储过程或触发器中调用COM组件,这就比较好解决了.

首先建立一个COM服务器,只在里面写一个测试方法:Hello:

 function TCotest.Hello(const Value: WideString): WideString;
2 begin
3   Result:='您输入的是:'+Value;
4 end;

 可以在IDE中注册这个服务器,或者在初始化代码后加入自动注册的代码:

 initialization
2   TComponentFactory.Create(ComServer, TCotest,
3     Class_Cotest, ciMultiInstance, tmApartment);
4   ComServer.UpdateRegistry(true);
5 end.

 从D2007开始需要手工加入:

ComServer.UpdateRegistry(true);

否则COM服务器不能自动注册(当然可以手工注册) .

好了,可以先写个客户端测试一下,放个TDCOMConnection组件,设定好服务器的名称,OK,可以正常激活这个COM组件.

用代码来调用测试一下吧:

 var
2   v:Variant;
3   s:string;
4 begin
5   v:=CreateOleObject('Project4.Cotest');
6   s:=v.Hello('Garfield');
7   ShowMessage(s);
8   v := Unassigned;
9 end;

注意:要引用ComObj单元.

程序可以正常执行并返回结果,说明COM组件运行正常.

好了,让我们来到关键的SQL Server中,可以在查询分析器中或建立一个储存过程来测试一下调用:

(注:参考了网络上的代码) 

 1   declare @i int
 2   declare @strRet varchar(50)
 3   declare @strRetCode int
 4   DECLARE @strErr varchar (255)
 5   DECLARE @strErr1 varchar (255)
 6   /* 首先创建Com 实例 */
 7   exec @strRetCode = sp_OACreate "Project4.Cotest", @i out
 8   IF @strRetCode <> 0
 9   BEGIN
10   /* 创建实例 失败 */
11   EXEC sp_OAGetErrorInfo @i, @strErr OUT, @strErr1 OUT
12   PRINT '创建实例失败,失败的原因是:' + @strErr + '' + @strErr1
13   RETURN
14   END
15   /* 创建成功,开始调用 */
16   EXEC @strRetCode = sp_OAMethod @i,'Hello',@strRet OUT,'Garfield'
17   IF @strRetCode <> 0
18   BEGIN
19   /* 调用方法出错 */
20   EXEC sp_OAGetErrorInfo @i, @strErr OUT, @strErr1 OUT
21   PRINT '调用方法失败,失败的原因是::' + @strErr + @strErr1
22   EXEC sp_OADestroy @i
23   RETURN
24   END
25   PRINT '返回的结果是:' + @strRet
26   exec sp_OADestroy @i 

  

 注意,只有 sysadmin 固定服务器角色的成员才能执行 sp_OACreate。

执行一下,看到COM组件成功地在储存过程中返回了结果.

(测试环境:Win7+Delphi2010+SQL Server 2000) 

 示例程序下载