MS SQL SERVER操作API的GET和POST儲存過程

阿新 • • 發佈：2021-08-30

上個星期，為了連線DingDing，查找了諸多資料和朋友的指點與幫助。
整理好2個儲存過程，Get和Post：

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO

CREATE PROCEDURE [dbo].[usp_Util_HttpGet]
    @Url NVARCHAR(4000),
    @ResponseText NVARCHAR(MAX) OUTPUT
AS 
BEGIN
    SET NOCOUNT ON
    DECLARE @ErrMsg VARCHAR(5000)
    DECLARE @token INT,@result 
 INT,@returnTextErr VARCHAR(200),@HttpStatus VARCHAR(200)       
    
    EXECUTE @result = sp_OACreate 'Msxml2.ServerXMLHTTP.3.0', @token OUT
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '初始化物件失敗，' + @ErrMsg + ISNULL(@returnTextErr 
, '')
        RAISERROR(@ErrMsg,16,-1)
    END
    
    EXECUTE @result = sp_OAMethod @token, 'open', NULL, 'GET', @Url,'false'   
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '建立連線失敗，' + @ErrMsg + ISNULL(@returnTextErr 
, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sp_OAMethod @token, 'setRequestHeader', NULL,'Content-Type', 'application/json; charset=UTF-8'
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '設定RequestHeader屬性失敗，'+ @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sp_OAMethod @token, 'send', NULL, ''
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '傳送請求頭失敗，'+ @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sys.sp_OAGetProperty @token, 'Status', @HttpStatus OUT   
   IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '讀取[Status]屬性值失敗，'+ @ErrMsg + ISNULL(@returnTextErr,'')
        RAISERROR(@ErrMsg,16,-1)
    END

    IF @HttpStatus <> 200
    BEGIN
        SET @ErrMsg ='訪問錯誤,http狀態程式碼,'+ @HttpStatus +''
        RAISERROR(@ErrMsg,16,1)
    END
       
    DECLARE @xml TABLE([ResponseText] NVARCHAR(MAX))
    INSERT INTO @xml([ResponseText]) EXECUTE @result = dbo.sp_OAGetProperty @token, 'responseText'

    SELECT @ResponseText = [ResponseText] FROM @xml
    
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '獲取回覆報文失敗：' + ISNULL(@ErrMsg, '') + '，'+ ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sp_OADestroy @token
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '釋放資源物件，' + @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END    
END

Source Code

SET ANSI_NULLS ON
GO
SET QUOTED_IDENTIFIER ON
GO



CREATE PROCEDURE [dbo].[usp_Util_HttpPost]
    @Url NVARCHAR(4000),
    @PostData NVARCHAR(4000)
AS
BEGIN        
    SET NOCOUNT ON
    DECLARE @ErrMsg VARCHAR(5000)
    DECLARE @token INT,@result INT,@returnTextErr VARCHAR(200),@HttpStatus VARCHAR(200)         

    EXECUTE @result = sp_OACreate 'Msxml2.ServerXMLHTTP.3.0', @token OUT
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '初始化物件失敗，' + @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

   EXECUTE @result = sp_OAMethod @token, 'open', NULL, 'POST', @Url,'false'
   IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '建立連線失敗，' + @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END
  
   EXECUTE @result = sp_OAMethod @token, 'setRequestHeader', NULL,'Content-Type', 'application/json; charset=UTF-8' 
   IF @result <> 0
        BEGIN
            EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
            SET @ErrMsg = '設定RequestHeader屬性失敗，' + @ErrMsg + ISNULL(@returnTextErr, '')
            RAISERROR(@ErrMsg,16,-1)
        END    

    EXECUTE @result = sp_OAMethod @token,'send', NULL, @PostData
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '傳送請求頭失敗，' + @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sys.sp_OAGetProperty @token, 'Status', @HttpStatus OUT
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '讀取[Status]屬性值失敗，' + @ErrMsg + ISNULL(@returnTextErr,'')
        RAISERROR(@ErrMsg,16,-1)
    END

    IF @HttpStatus <> 200
    BEGIN
        SET @ErrMsg ='訪問錯誤,http狀態程式碼,'+@HttpStatus+''
        RAISERROR(@ErrMsg,16,1)
    END
            
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '獲取回覆報文失敗：' + ISNULL(@ErrMsg, '') + '，'+ ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END

    EXECUTE @result = sp_OADestroy @token
    IF @result <> 0
    BEGIN
        EXECUTE sp_OAGetErrorInfo @token, @ErrMsg OUT, @returnTextErr OUT
        SET @ErrMsg = '釋放資源物件，' + @ErrMsg + ISNULL(@returnTextErr, '')
        RAISERROR(@ErrMsg,16,-1)
    END
END