IF NOT object_id('proc_CallWebServices') IS NULL DROP PROCEDURE proc_CallWebServices GO CREATE PROCEDURE proc_CallWebServices( @parametor VARCHAR(20) = NULL ) AS BEGIN DECLARE @obj INT DECLARE @ValordeRegreso int DECLARE @sUrl VARCHAR(200) DECLARE @response VARCHAR(8000) DECLARE @hr INT DECLARE @src VARCHAR(255) DECLARE @desc VARCHAR(255) SET @sUrl = 'http://mys-zhangj06:802/WebService1.asmx/HelloWorld' EXEC sp_OACreate 'MSXML2.ServerXMLHTTP', @obj OUT EXEC sp_OAMethod @obj, 'open',NULL,'GET',@sUrl,false EXEC sp_OAMethod @obj, 'send' EXEC sp_OAMethod @obj, 'responseText',@response OUT SELECT @response [response] EXEC sp_OADestroy @obj RETURN END GO EXEC proc_CallWebServices '' IF NOT object_id('HTTP_POST') IS NULL DROP PROCEDURE HTTP_POST GO CREATE PROCEDURE [dbo].[HTTP_POST] ( @sUrl VARCHAR(500) , @response VARCHAR(500) OUT ) AS BEGIN DECLARE @obj INT , @hr INT , @status INT , @msg VARCHAR(255) EXEC @hr = sp_OACreate 'MSXML2.ServerXMLHttp', @obj OUT IF @hr <> 0 BEGIN RAISERROR('sp_OACreate MSXML2.ServerXMLHttp.3.0 failed', 16,1) RETURN END EXEC @hr = sp_OAMethod @obj, 'open', NULL, 'POST', @sUrl, false IF @hr <> 0 BEGIN SET @msg='sp_OAMethod Open failed' GOTO eh END EXEC @hr = sp_OAMethod @obj, 'setRequestHeader', NULL, 'Content-Type','application/x-www-form-urlencoded' IF @hr <> 0 BEGIN SET @msg='sp_OAMethod setRequestHeader failed' GOTO eh END EXEC @hr = sp_OAMethod @obj, send, NULL, '' IF @hr <> 0 BEGIN SET @msg='sp_OAMethod Send failed' GOTO eh END EXEC @hr = sp_OAGetProperty @obj, 'status', @status OUT IF @hr <> 0 BEGIN SET @msg='sp_OAMethod read status failed' GOTO eh END IF @status <> 200 BEGIN SET @msg='sp_OAMethod http status '+STR(@status) GOTO eh END EXEC @hr = sp_OAGetProperty @obj, 'responseText', @response OUT IF @hr <> 0 BEGIN SET @msg='sp_OAMethod read response failed' GOTO eh END EXEC @hr = sp_OADestroy @obj RETURN eh: EXEC @hr = sp_OADestroy @obj RAISERROR(@msg, 16, 1) RETURN END GO DECLARE @res VARCHAR(500) EXEC [HTTP_POST] 'http://mys-zhangj06:802/WebService1.asmx/GetTime?date=zzz',@res OUT SELECT @res