SQLServer HTTP POST GET PUT
------------------- 開啟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;
-- HTTP GET 請求
CREATE FUNCTION FN_HTTP_GET(
@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,'get',@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
;
-- HTTP PUT 請求
CREATE FUNCTION FN_HTTP_PUT(
@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,'put',@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;