|
|
楼主 |
发表于 2007-10-18 22:19:49
|
显示全部楼层
<%@ WebService Language="vb" Class="ReceiveWS" %>
Imports System
Imports System.Web.Services
Imports System.Web.Services.Protocols
Imports System.Xml
Imports System.IO
Namespace ReceiveWS
<WebService()> _
Public Class ReceiveWS
Inherits WebService
Private Const strAction As String = "OP_ReceiveEventInformation"
Private strFilename As String = "D:\Website\" & DateTime.Now.ToString("MM-dd-yy_HHmm") & ".xml"
<TraceExtension(), _
WebMethod(Description:="Accepts MSG_FullEventUpdate message as SOAP request"), _
SoapDocumentMethod(Action:=strAction, _
ParameterStyle:=SoapParameterStyle.Bare)> _
Public Function OP_ReceiveEventInformation() As String
Try
Return strFilename
Catch err As Exception
' Create the detail information
' an <ExceptionType> element with the type name.
Dim doc As XmlDocument = New XmlDocument()
Dim node As XmlNode = doc.CreateNode(XmlNodeType.Element, SoapException.DetailElementName.Name, SoapException.DetailElementName.Namespace)
Dim child As XmlNode = doc.CreateNode(XmlNodeType.Element, "ExceptionType", SoapException.DetailElementName.Namespace)
child.InnerText = err.GetType().ToString()
node.AppendChild(child)
' Create the custom SoapException.
' Use the message from the original exception,
' and add the detail information.
Dim soapErr As SoapException = New SoapException(err.Message, SoapException.ServerFaultCode, Context.Request.Url.AbsoluteUri, node)
' Throw the revised SoapException.
Throw soapErr
End Try
End Function
End Class
' Define a SOAP Extension that traces the SOAP request and SOAP response
' for the XML Web service method the SOAP extension is applied to.
<WebService()> _
Public Class TraceExtension
Inherits SoapExtension
Private Const strOutputPath As String = "D:\Website\"
Private oldStream As Stream
Private newStream As Stream
Private m_filename As String
' Save the Stream representing the SOAP request or SOAP response into
' a local memory buffer.
Public Overrides Function ChainStream(ByVal stream As Stream) As Stream
oldStream = stream
newStream = New MemoryStream()
Return newStream
End Function
' When the SOAP extension is accessed for the first time, the XML Web
' service method it is applied to is accessed to store the file
' name passed in, using the corresponding SoapExtensionAttribute.
Public Overloads Overrides Function GetInitializer(ByVal methodInfo As _
LogicalMethodInfo, _
ByVal attribute As SoapExtensionAttribute) As Object
Return CType(attribute, TraceExtensionAttribute).Filename
End Function
' The SOAP extension was configured to run using a configuration file
' instead of an attribute applied to a specific XML Web service
' method. Return a file name based on the class implementing the Web
' Service's type.
Public Overloads Overrides Function GetInitializer(ByVal WebServiceType As _
Type) As Object
' Return a file name to log the trace information to, based on the
' type.
Return strOutputPath & DateTime.Now.ToString("MM-dd-yy_HHmm") & ".xml"
End Function
' Receive the file name stored by GetInitializer and store it in a
' member variable for this specific instance.
Public Overrides Sub Initialize(ByVal initializer As Object)
m_filename = CStr(initializer)
End Sub
' If the SoapMessageStage is such that the SoapRequest or SoapResponse
' is still in the SOAP format to be sent or received over the network,
' save it out to file.
Public Overrides Sub ProcessMessage(ByVal message As SoapMessage)
Select Case message.Stage
Case SoapMessageStage.BeforeSerialize
Case SoapMessageStage.AfterSerialize
'WriteOutput(message)
Case SoapMessageStage.BeforeDeserialize
WriteInput(message)
Case SoapMessageStage.AfterDeserialize
Case Else
Throw New Exception("invalid stage")
End Select
End Sub
'' Write the SOAP message out to a file.
'Public Sub WriteOutput(ByVal message As SoapMessage)
' newStream.Position = 0
' Dim fs As New FileStream(m_filename, FileMode.Append, _
' FileAccess.Write)
' Dim w As New StreamWriter(fs)
' w.WriteLine("-----Response at " + DateTime.Now.ToString("MM-dd-yy_HHmm"))
' w.Flush()
' Copy(newStream, fs)
' w.Close()
' newStream.Position = 0
' Copy(newStream, oldStream)
'End Sub
' Write the SOAP message out to a file.
Public Sub WriteInput(ByVal message As SoapMessage)
Copy(oldStream, newStream)
Dim fs As New FileStream(m_filename, FileMode.Create, _
FileAccess.Write)
Dim w As New StreamWriter(fs)
'w.WriteLine("----- Request at " + DateTime.Now.ToString("MM-dd-yy_HH:mm:ss"))
w.Flush()
newStream.Position = 0
Copy(newStream, fs)
w.Close()
newStream.Position = 0
End Sub
Sub Copy(ByVal fromStream As Stream, ByVal toStream As Stream)
Dim reader As New StreamReader(fromStream)
Dim writer As New StreamWriter(toStream)
writer.WriteLine(reader.ReadToEnd())
writer.Flush()
End Sub
End Class
' Create a SoapExtensionAttribute for our SOAP Extension that can be
' applied to an XML Web service method.
<AttributeUsage(AttributeTargets.All)> _
Public Class TraceExtensionAttribute
Inherits SoapExtensionAttribute
Private m_filename As String = "D:\Website\" & DateTime.Now.ToString("MM-dd-yy_HHmm") & ".xml"
Private m_priority As Integer = 1
Public Overrides ReadOnly Property ExtensionType() As Type
Get
Return GetType(TraceExtension)
End Get
End Property
Public Overrides Property Priority() As Integer
Get
Return m_priority
End Get
Set(ByVal Value As Integer)
m_priority = Value
End Set
End Property
Public Property Filename() As String
Get
Return m_filename
End Get
Set(ByVal Value As String)
m_filename = Value
End Set
End Property
End Class
End Namespace |
|
狗仔卡
发表于 2007-10-17 12:25:36
提升卡
置顶卡
变色卡
恢复卡