set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

ALTER function [dbo].[m_wx_post](@P1_Value varchar(20),@P2_Value varchar(200))

returns @t table(col varchar(200))

as

begin

--sp_configure 'show advanced options', 1;
--GO
--RECONFIGURE;
--GO
--sp_configure 'Ole Automation Procedures', 1;
--GO
--RECONFIGURE;
--GO

declare @ServiceUrl as varchar(1000)
declare @UrlAddress varchar(500)

set @UrlAddress = 'http://168.10.100.3:8190/WeiChatWS.asmx/'

declare @FunName varchar(50)
set @FunName = 'sendMoreMessage'

--以下引數對應WebService中引數的[引數名]
declare @P1 varchar(800),@P2 varchar(100)
set @P1 = 'userid'
set @P2 = 'content'

--declare @P1_Value varchar(100),@P2_Value varchar(100)
--set @P1_Value = '601347'
--set @P2_Value = 'aaatest'

set @ServiceUrl = @UrlAddress + @FunName + '?' + @P1 + '=' + @P1_Value +'&' + @P2 + '=' + @P2_Value

Declare @Object as Int
Declare @ResponseText as Varchar(8000)

--建立 OLE 物件的例項。
--sp_OACreate { progid | clsid } , objecttoken OUTPUT [ , context ]
--返回的物件令牌，並且必須是資料型別為 int 的區域性變數。 該物件令牌用於標識所建立的 OLE 物件，並用於呼叫其他 OLE 自動化儲存過程。
Exec sp_OACreate 'MSXML2.XMLHTTP', @Object OUT;
--sp_OAMethod 呼叫一個 OLE 物件的方法。
Exec sp_OAMethod @Object, 'open', NULL, 'get',@ServiceUrl,'false'
Exec sp_OAMethod @Object, 'send'
Exec sp_OAMethod @Object, 'responseText', @ResponseText OUTPUT


Exec sp_OADestroy @Object --破壞已建立的 OLE 物件。--如果未呼叫 sp_OADestroy，則在批處理結束時將自動破壞已建立的 OLE 物件。
--當不再需要物件時，呼叫 sp_OADestroy 釋放使用 sp_OACreate 建立的物件例項。

return

end