SqlServer2000 呼叫Http介面的儲存過程
SET QUOTED_IDENTIFIER ON
GO
SET ANSI_NULLS ON
GO
create Proc P_HttpGet(@url varchar(2000),
@ResponseText varchar(8000) out)
As
DECLARE @object int
DECLARE @hr int ,
@Size int
DECLARE @src varchar(255), @desc varchar(255)
Declare @tmp int
--建立Scripting元件例項
EXEC @hr = sp_OACreate 'Microsoft.XMLHTTP', @object OUT
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr),
RETURN
END
-- open
exec @hr=sp_oamethod @object,'open',null, 'GET', @url, 0
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr),
RETURN
END
-- send
exec @hr=sp_oamethod @object,'send',null,@ResponseText out
IF @hr <> 0
BEGIN
EXEC sp_OAGetErrorInfo @object, @src OUT, @desc OUT
SELECT hr=convert(varbinary(4),@hr), [email protected], [email protected]
RETURN
END
EXEC @hr = sp_OAMethod @object, 'responseText', @ResponseText out
-- 釋放 xmlhttp 物件
exec @hr=sp_oadestroy @object
return 0