在SQLServer中调用Com组件

 有时候，出于SQL Server本身的功能不足，我们需要用外部的程序来实现，而Com由于其语言的无关性和强大的功能就成为与Sql Server接口的首选，并且sql Server本身也提供了这方面的系统存储过程用以实现与com的接口。这几个相关的系统存储过程为： 
        sp_OACreate　在 Microsoft® SQL Server™ 执行个体建立 OLE 对象的执行个体。 
        sp_OAMethod　呼叫 OLE 对象的方法 
        sp_OAGetProperty　取得 OLE 对象的属性值 
        sp_OASetProperty　将 OLE 对象属性设定为新值。 
        sp_OAGetErrorInfo　获得 OLE Automation 错误信息 
        sp_OAStop　停止整个服务器 OLE Automation 预存程序执行环境。 
        sp_OADestroy　销毁建立的 OLE 对象。

        知道了实现的可能性，那么到底该如何实现呢？下面请跟我来：
一、 其它编程语言建立Com程序（以Delphi为例） 
        1、 关闭所有项目，新建一个工程，将默认的单元文件unit1.pas保存为uMain.pas，将默认的工程文件project1保存为ptestCom。当然你也可以保存为你想要的文件名，但要记住这里设定的工程名就是后面需调用的com名称； 
        2、 点击菜单File->New->Other…，打开新建项目窗口，选择ActiveX页，在其中找到Automation Object（因为sql server中要求被它调用的OLE Automation Server须支持Idispatch接口，所以选择它），然后点OK，在弹出的响导框中输入Class Name（这里输入testObject），其它保持不变，按OK完成； 
        3、 在以上步骤完成后，就会弹出一个名叫testCom的类型库窗口，在窗口的左侧我们就会看到上面所创建的类testObject和一个叫ItestObject的接口类，选中ItestObject，点击工具栏上的New Method创建一个新的方法，命名为testfunc，然后在右边的parameters页上添加两个输入参数param1和param2（Type为BSTR，Modifier为[in]）、一个输出参数paramout（Type为Variant *，Modifier为[out, retval]），Return type保持不变，为Hresult。点一下工具栏上的刷新按钮，按保存，将它保存为utestcom.pas和utestcom.tlb，然后关闭窗口； 
        4、 此时，在utestcom单元文件中你将会看到已经产生了一个函数： 
        function TtestObject.testfunc(const param1,param2: Widestring): OLEVariant; 
        begin 

        end; 
        在其中加上如下代码（当然你可以在此函数中使用你自己的方法来实现）： 
                Result := Param1 + Param2; //将传入两个字符串相加，然后返回 
        按保存，运行它，确认无误即可，如果有误，请检查以上步骤是否正确完成。

二、在SQL Server中的调用
        当创建好了Com程序并确定无误后，我们就可以用上面提到的几个相关系统存储过程来调用了，下面请看实例，具体说明已包含在代码中，不再重述。

create   procedure  Check_UserAthor        --定义一个存储过程，接受两个参数
 @c_id  varchar ( 20 ),
 @c_name  varchar ( 20 )
As
DECLARE  @object  int
Declare  @Err  int
Declare  @return_value  varchar(255)
Declare  @src  varchar ( 255 ), @desc  varchar ( 255 )

/**/ /*創建Com實例,调用如上创建的ptestcom.testobject*/
exec  @err  =  master..sp_OACreate "ptestcom.testobject", @object out

IF  @err  <>   0      /**//* 創建失敗*/
BEGIN
    
     EXEC  sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
     SELECT  hr = convert ( varbinary ( 4 ),@err), Source = @src, Description = @desc
         RETURN
END

/**/ /*調用如上声明的Com方法testfunc,@return_value为返回值,@c_id与@c_name为输入参数*/
EXEC  @err  =  sp_OAMethod @object, 'testfunc ' ,@return_value OUT,@c_id,@c_name
IF  @err  <>   0
BEGIN
     EXEC  sp_OAGetErrorInfo @object, @src OUT, @desc OUT 
     SELECT  hr = convert ( varbinary ( 4 ),@err), Source = @src, Description = @desc
     EXEC  sp_OADestroy @object
     RETURN
END

PRINT   ' 返回結果為： '   + (@return_value)     --这里显示返回值

/**/ /*釋放Com實例*/
exec  sp_OADestroy @object

GO

三、调用
        如上存储过程创建无误后，我们就可以直接拿来调用了，在如上的示例中，如果我们输入'123','company'，返回的结果就应该是123company这个字符串了。

四、推论
        以上的com程序其实适合于任何能与com进行通信的其它程序调用，比如在ASP中，也可以直接调用com组件，方法一样简单，不再详述，如有兴趣可与我探讨。 
 
后记
        以上示例有参考网上广为流传的一篇文章，不过那篇文章经转来转去，已被折磨得不成样子了。