SQL-存储过程GET，POST 接口方法

数据库版本：sql server 2016

先开启 Ole Automation Procedures，否则会报错：SQL Server 阻止了对组件 ‘Ole Automation Procedures’ 的 过程’sys.sp_OACreate’ 的访问

--开启 Ole Automation Procedures
sp_configure 'show advanced options', 1;
GO
RECONFIGURE;
GO
sp_configure 'Ole Automation Procedures', 1;
GO
RECONFIGURE;
GO
EXEC sp_configure 'Ole Automation Procedures';
GO

--关闭 Ole Automation Procedures
sp_configure 'show advanced options', 1;
GO
RECONFIGURE;
GO
sp_configure 'Ole Automation Procedures', 1;
GO
RECONFIGURE;
GO
EXEC sp_configure 'Ole Automation Procedures';
GO

--关闭高级选项
sp_configure 'show advanced options', 0;
GO
RECONFIGURE;
GO

一，参数说明

sp_OACreate 创建 OLE 对象实例。
–>第一个参数为 OLE 对象的程序标识符（ProgID）或类标识符（CLSID）。
–>第二个参数为返回的对象令牌，必须是数据类型为 int 的局部变量，在后面的方法中都要用到对象令牌。输出参数，必须加 OUT 或 OUTPUT。
sp_OAMethod 调用 OLE 对象的方法。
–>第一个参数为对象令牌。
–>第二个参数为方法名称。
–>第三个参数为方法的返回值，如果方法返回的是对象，则该参数类型为 int。输出参数，必须加 OUT 或 OUTPUT。
–>第四个及以后的参数为方法的参数值，如果方法的参数是输出参数，则要加上 OUT 或 OUTPUT。
–>sp_OAMethod也可用来获取属性值。
sp_OAGetErrorInfo 获取 OLE 自动化错误信息。
–>第一个参数为对象令牌。
–>第二个参数为错误信息的来源。输出参数，必须加 OUT 或 OUTPUT。
–>第三个参数为错误的描述。输出参数，必须加 OUT 或 OUTPUT。
sp_OADestroy 释放已创建的 OLE 对象。
–>第一个参数为对象令牌。
另外，sp_OAGetProperty 获取 OLE 对象的属性值，sp_OASetProperty 将 OLE 对象的属性设置为新值，sp_OAStop 停止服务器范围内的 OLE 自动化存储过程执行环境。这些都比较简单。
这七个存储过程都有返回值，如果返回值是 0 表示成功，其它值表示失败，示例中只对 sp_OACreate 的返回值作了判断。

二，GET方法参考

CREATE PROCEDURE [dbo].[get](  --创建存储过程get 
    @URL varchar(500),  --输入参数变量
    @ResponseText varchar(8000) OUTPUT  --返回参数
)
AS
BEGIN

Declare @Status as Int  --声明对象类型为INT整数
--sp_OACreate  创建 OLE 对象实例， Msxml2.ServerXMLHTTP.3.0 返回的对象令牌，@Status：自定义对象名称
--数据类型必须为 int 的局部变量，后面的方法中都要用到对象令牌。输出参数，必须加 OUT 或 OUTPUT。  
Exec sp_OACreate 'Msxml2.ServerXMLHTTP.3.0', @Status OUT;   --相当于将Msxml2.ServerXMLHTTP.3.0赋值为@Status，@Status就算对象令牌
-->sp_OAMethod 一共有4个参数，sp_OAMethod也可用来获取属性值。
Exec sp_OAMethod @Status, 'open', NULL, 'GET',@URL,'false'  --第一个参数为对象令牌。 
Exec sp_OAMethod @Status, 'setRequestHeader', NULL, 'Content-Type','application/json' --第二个参数为方法名称。
Exec sp_OAMethod @Status, 'send', NULL, NULL  --第三个参数为方法的返回值，如果方法返回的是对象，则该参数类型为 int。输出参数，必须加 OUT 或 OUTPUT。
Exec sp_OAMethod @Status, 'responseText', @ResponseText OUTPUT  --第四个及以后的参数为方法的参数值，如果方法的参数是输出参数，则要加上 OUT 或 OUTPUT。
if @Status<>0
  begin
--sp_OAGetErrorInfo 获取 OLE 自动化错误信息。
--第一个参数为对象令牌。
--第二个参数为错误信息的来源。输出参数，必须加 OUT 或 OUTPUT。
--第三个参数为错误的描述。输出参数，必须加 OUT 或 OUTPUT。
    EXEC sp_OAGetErrorInfo @Status  --sp_OAGetErrorInfo 获取 OLE 自动化错误信息。

  end
Exec sp_OADestroy @Status  --sp_OADestroy 释放已创建的 OLE 对象。
END

三，POST方法参考

CREATE PROCEDURE [dbo].[sp_http_post](
    @URL varchar(500),  --请求地址
    @Data varchar(8000), --请求参数
    @ResponseText varchar(8000) OUTPUT
)
AS
BEGIN

Declare @Status as Int   
Exec sp_OACreate 'Msxml2.ServerXMLHTTP.3.0', @Status OUT;
Exec sp_OAMethod @Status, 'open', NULL, 'POST',@URL,'false'
Exec sp_OAMethod @Status, 'setRequestHeader', NULL, 'Content-Type','application/json'
Exec sp_OAMethod @Status, 'send', NULL, @Data
Exec sp_OAMethod @Status, 'responseText', @ResponseText OUTPUT
if @Status<>0
  begin
    EXEC sp_OAGetErrorInfo @Status
  end
Exec sp_OADestroy @Status
END