SQL Server 访问发送Http请求

水深无声 2022-06-13 06:16 286阅读 0赞

\------------------- 开启Sql Server 通讯配置 -------------------  
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  
\---------------------------------------------------------------  
  
  
  
\-- HTTP POST 请求  
\-- \[测试\]  
\-- SELECT dbo.FN\_HTTP\_POST('http://10.7.1.47/seeyon/rest/token','\{"userName":"rest","password":"123456"\}','application/json','application/json');  
\-- DROP FUNCTION FN\_HTTP\_POST;  
CREATE FUNCTION FN\_HTTP\_POST(  
@URL VARCHAR(256),  
@DATA VARCHAR(2000),  
@REQ\_H\_ACCEPT VARCHAR(256),  
@REQ\_H\_CONTENT\_TYPE VARCHAR(256)  
)  
RETURNS VARCHAR(5000)  
AS   
BEGIN  
  
DECLARE   
@object int,  
@returnStatus int,  
@returnText varchar(5000),  
@errMsg varchar(2000),  
@httpStatus varchar(20)  
;  
  
  
  
/\* 初始化 \*/    
    EXEC @returnStatus = SP\_OACreate 'Msxml2.ServerXMLHTTP.3.0',@object OUT;    
      
    IF @returnStatus <> 0    
    BEGIN    
EXEC SP\_OAGetErrorInfo @object, @errMsg OUT, @returnText OUT;  
RETURN ('初始化对象失败，' + @errMsg + ISNULL(@returnText,''));    
    END    
      
      
      
/\*创建链接\*/  
EXEC @returnStatus= SP\_OAMethod @object,'open',NULL,'post',@URL,'false';  
  
IF @returnStatus <> 0  
BEGIN  
EXEC SP\_OAGetErrorInfo @object, @errMsg OUT, @returnText OUT;  
RETURN ('创建连接失败，' + @errMsg + ISNULL(@returnText, ''));  
END  
  
EXEC @returnStatus=SP\_OAMethod @object,'setRequestHeader',NULL,'Accept',@REQ\_H\_ACCEPT;  
EXEC @returnStatus=SP\_OAMethod @object,'setRequestHeader',NULL,'Content-Type',@REQ\_H\_CONTENT\_TYPE;  
EXEC @returnStatus=SP\_OAMethod @object,'setRequestHeader',NULL,'Content-Length','1000000';  
  
  
  
/\*发起请求\*/  
EXEC @returnStatus= SP\_OAMethod @object,'send',NULL,@DATA;  
IF @returnStatus <> 0   
BEGIN   
EXEC SP\_OAGetErrorInfo @object, @errMsg OUT, @returnText OUT;  
RETURN ('发起请求失败，' + @errMsg + ISNULL(@returnText, ''));  
END  
  
  
  
/\*获取HTTP状态代码\*/  
EXEC @returnStatus = SP\_OAGetProperty @Object, 'Status', @httpStatus OUT;  
  
    IF @returnStatus <> 0  
    BEGIN  
        EXEC sp\_OAGetErrorInfo @Object, @errMsg OUT, @returnText OUT;  
        RETURN ('获取HTTP状态代码失败，' + @errMsg + ISNULL(@returnText, ''));  
    END  
  
    IF @httpStatus <> 200  
    BEGIN  
        RETURN ('访问错误，HTTP状态代码:' + @httpStatus);  
    END  
          
      
          
/\*获取返回信息\*/  
EXEC @returnStatus= SP\_OAGetProperty @object,'responseText',@returnText OUT;  
  
IF @returnStatus <> 0   
BEGIN   
EXEC SP\_OAGetErrorInfo @object, @errMsg OUT, @returnText OUT;  
RETURN ('获取返回信息失败，' + @errMsg + ISNULL(@returnText, ''));  
END  
  
   
RETURN @returnText;  
END   
;