add async api method

Author: davidnguye

web-call/async/APIAsync.sql

@@ -0,0 +1,96 @@
+--======================================================
+-- Usage: APIAsync
+-- Notes: 
+-- Dependencies: Required to enable 'show advanced options' and 'Ole Automation Procedures'
+/*
+	sp_configure 'show advanced options', 1;
+	go
+	RECONFIGURE;
+	GO
+	sp_configure 'Ole Automation Procedures', 1;
+	GO
+	RECONFIGURE;
+	GO
+*/
+-- History:
+-- Date			Author		Description
+-- 2020-05-21	DN		Intial
+--======================================================
+DROP PROCEDURE IF EXISTS APIAsync
+GO
+CREATE PROCEDURE APIAsync	@Url varchar(8000), 
+							@Method varchar(5) = 'GET',--POST
+							@BodyData nvarchar(max) = NULL,--normally json object string : '{"key":"value"}',
+							@Authorization varchar(8000) = NULL,--Basic auth token, APIAsync key,...
+							@ContentType varchar(255) = 'application/json'--'application/xml'
+AS
+BEGIN
+	SET NOCOUNT ON;
+
+    DECLARE @vWin int --token of WinHttp object
+    DECLARE @vReturnCode int 
+    DECLARE @tResponse TABLE (ResponseText nvarchar(4000)) 
+
+    EXEC @vReturnCode = sp_OACreate 'WinHttp.WinHttpRequest.5.1',@vWin OUT
+    IF @vReturnCode <> 0 GOTO EXCEPTION
+
+	-- This section can be put in a loop
+	-- Store Win object into a temp table
+	PRINT 'Win = ' + CONVERT(varchar(255), @vWin)
+	SELECT @vReturnCode = dbo.SendAsync(@vWin, @Url, @Method, @BodyData, @Authorization, @ContentType)
+	IF @vReturnCode <> 0 GOTO EXCEPTION
+	
+
+	-- This section can be put in a loop
+	-- Process for each Win object from the temp table
+	PRINT 'Get response by Win = ' + CONVERT(varchar(255), @vWin)
+	INSERT 
+	INTO	@tResponse
+	SELECT	ResponseText
+	FROM	dbo.GetResponseAsync(@vWin)
+	WHERE	ResponseText IS NOT NULL
+
+	IF @vReturnCode = 0 
+		GOTO RESULT
+
+	EXCEPTION:
+		BEGIN
+			DECLARE @tException TABLE
+			(
+				Error binary(4),
+				Source varchar(8000),
+				Description varchar(8000),
+				HelpFile varchar(8000),
+				HelpID varchar(8000)
+			)
+
+			INSERT INTO @tException EXEC sp_OAGetErrorInfo @vWin
+			INSERT
+			INTO	@tResponse
+			(
+					ResponseText
+			)
+			SELECT	( 
+						SELECT	*
+						FROM	@tException
+						FOR		JSON AUTO
+					) AS ResponseText
+		END
+
+	--FINALLY
+	RESULT:
+	--Dispose objects 
+	IF @vWin IS NOT NULL
+		EXEC sp_OADestroy @vWin
+
+	--Result
+    SELECT	* 
+	FROM	@tResponse
+
+	RETURN
+END
+/*
+EXEC APIAsync @Method = 'GET', @Url = 'http://dummy.restapiexample.com/api/v1/employees'
+EXEC API @Method = 'GET', @Url = 'http://dummy.restapiexample.com/api/v1/employees'
+
+*/

web-call/async/GetResponseAsync.sql

@@ -0,0 +1,45 @@
+--======================================================
+-- Usage: GetResponseAsync
+-- Notes: 
+-- Dependencies: Required to enable 'show advanced options' and 'Ole Automation Procedures'
+/*
+	sp_configure 'show advanced options', 1;
+	go
+	RECONFIGURE;
+	GO
+	sp_configure 'Ole Automation Procedures', 1;
+	GO
+	RECONFIGURE;
+	GO
+*/
+-- History:
+-- Date			Author		Description
+-- 2020-05-21	DN		Intial
+--======================================================
+DROP FUNCTION IF EXISTS GetResponseAsync
+GO
+CREATE FUNCTION GetResponseAsync (@Win INT)
+RETURNS @Result TABLE (Win INT, ResponseText nvarchar(4000))
+AS
+BEGIN
+	DECLARE @vResponse nvarchar(4000)
+	DECLARE @vTimeoutSec INT = 60
+	DECLARE @vSuccess BIT  = 0
+	
+	--Wait
+	EXEC sp_OAMethod @Win, 'WaitForResponse', NULL, @vTimeoutSec, @vSuccess OUT
+
+	--Response
+	IF @vSuccess IS NOT NULL
+	BEGIN
+		EXEC sp_OAGetProperty @Win,'ResponseText', @vResponse OUT
+		INSERT INTO @Result SELECT @Win, @vResponse
+	END
+
+	IF @Win IS NOT NULL EXEC sp_OADestroy @Win
+
+	RETURN
+END
+/*
+-- See APIAsync
+*/

web-call/async/SendAsync.sql

@@ -0,0 +1,66 @@
+--======================================================
+-- Usage: SendAsync
+-- Notes: 
+-- Dependencies: Required to enable 'show advanced options' and 'Ole Automation Procedures'
+/*
+	sp_configure 'show advanced options', 1;
+	go
+	RECONFIGURE;
+	GO
+	sp_configure 'Ole Automation Procedures', 1;
+	GO
+	RECONFIGURE;
+	GO
+*/
+-- History:
+-- Date			Author		Description
+-- 2020-06-17	DN		Intial
+--======================================================
+DROP FUNCTION IF EXISTS SendAsync
+GO
+CREATE FUNCTION SendAsync (
+	@Win INT, 
+	@Url varchar(8000), 
+	@Method varchar(5) = 'GET',--POST
+	@BodyData nvarchar(max) = NULL,--normally json object string : '{"key":"value"}',
+	@Authorization varchar(8000) = NULL,--Basic auth token, SendAsync key,...
+	@ContentType varchar(255) = 'application/json'--'application/xml'
+)
+RETURNS INT
+AS 
+BEGIN
+    DECLARE @vReturnCode int 
+    DECLARE @tResponse TABLE (ResponseText nvarchar(max))
+
+    EXEC @vReturnCode = sp_OAMethod @Win, 'Open', NULL, @Method/*Method*/, @Url /*Url*/, 'true' /*IsAsync*/
+    IF @vReturnCode <> 0 GOTO RESULT
+
+	IF @Authorization IS NOT NULL
+	BEGIN
+		EXEC @vReturnCode = sp_OAMethod @Win, 'SetRequestHeader', NULL, 'Authorization', @Authorization
+		IF @vReturnCode <> 0 GOTO RESULT
+	END
+
+	IF @ContentType IS NOT NULL
+	BEGIN
+		EXEC @vReturnCode = sp_OAMethod @Win, 'SetRequestHeader', NULL, 'Content-Type', @ContentType
+		IF @vReturnCode <> 0 GOTO RESULT
+	END
+
+    IF @BodyData IS NOT NULL
+	BEGIN
+		EXEC @vReturnCode = sp_OAMethod @Win,'Send', NULL, @BodyData
+		IF @vReturnCode <> 0 GOTO RESULT
+	END
+	ELSE
+	BEGIN
+		EXEC @vReturnCode = sp_OAMethod @Win,'Send'
+		IF @vReturnCode <> 0 GOTO RESULT
+	END
+
+	RESULT:
+	RETURN @vReturnCode
+END
+/*
+-- See APIAsync
+*/