UK ENS
This commit is contained in:
667
VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/errorresponse-v2.0.Designer.vb
generated
Normal file
667
VERAG_PROG_ALLGEMEIN/Schnittstellen/HMRC/Response/errorresponse-v2.0.Designer.vb
generated
Normal file
@@ -0,0 +1,667 @@
|
||||
'' ------------------------------------------------------------------------------
|
||||
'' <auto-generated>
|
||||
'' Generated by Xsd2Code++. Version 6.0.0.0. www.xsd2code.com
|
||||
'' {"TargetFramework":"Net48","NameSpace":"errorresponse_v2_0","Language":"VisualBasic","Properties":{},"XmlAttribute":{"Enabled":true},"ClassParams":{},"Serialization":{"ShouldSerialize":{},"AdditionalSerializers":{},"XmlSerializerEvent":{},"XmlOutput":{"Formating":true},"JsonOutput":{},"Enabled":true},"Miscellaneous":{}}
|
||||
'' </auto-generated>
|
||||
'' ------------------------------------------------------------------------------
|
||||
#Disable Warning
|
||||
Imports System
|
||||
Imports System.Diagnostics
|
||||
Imports System.Xml.Serialization
|
||||
Imports System.Runtime.Serialization
|
||||
Imports System.Collections
|
||||
Imports System.Xml.Schema
|
||||
Imports System.ComponentModel
|
||||
Imports System.Xml
|
||||
Imports System.IO
|
||||
Imports System.Text
|
||||
Imports System.Collections.Generic
|
||||
|
||||
Namespace errorresponse_v2_0
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
|
||||
System.Serializable,
|
||||
DebuggerStepThrough,
|
||||
DesignerCategoryAttribute("code"),
|
||||
XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse"),
|
||||
XmlRoot([Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse", IsNullable:=False)>
|
||||
Partial Public Class ErrorResponse
|
||||
|
||||
#Region "Private fields"
|
||||
Private _application As Application
|
||||
|
||||
Private _error As List(Of ErrorResponseError)
|
||||
|
||||
Private _schemaVersion As String
|
||||
|
||||
Private Shared _serializerXml As XmlSerializer
|
||||
#End Region
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me._error = New List(Of ErrorResponseError)()
|
||||
Me._application = New Application()
|
||||
End Sub
|
||||
|
||||
Public Property Application() As Application
|
||||
Get
|
||||
Return Me._application
|
||||
End Get
|
||||
Set
|
||||
Me._application = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<XmlElement("Error")>
|
||||
Public Property [Error]() As List(Of ErrorResponseError)
|
||||
Get
|
||||
Return Me._error
|
||||
End Get
|
||||
Set
|
||||
Me._error = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<XmlAttribute>
|
||||
Public Property SchemaVersion() As String
|
||||
Get
|
||||
Return Me._schemaVersion
|
||||
End Get
|
||||
Set
|
||||
Me._schemaVersion = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
||||
Get
|
||||
If (_serializerXml Is Nothing) Then
|
||||
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErrorResponse))
|
||||
End If
|
||||
Return _serializerXml
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "Serialize/Deserialize"
|
||||
''' <summary>
|
||||
''' Serialize ErrorResponse object
|
||||
''' </summary>
|
||||
''' <returns>XML value</returns>
|
||||
Public Overridable Function Serialize() As String
|
||||
Dim streamReader As StreamReader = Nothing
|
||||
Dim memoryStream As MemoryStream = Nothing
|
||||
Try
|
||||
memoryStream = New MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
streamReader = New StreamReader(memoryStream)
|
||||
Return streamReader.ReadToEnd
|
||||
Finally
|
||||
If (Not (streamReader) Is Nothing) Then
|
||||
streamReader.Dispose()
|
||||
End If
|
||||
If (Not (memoryStream) Is Nothing) Then
|
||||
memoryStream.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes ErrorResponse object
|
||||
''' </summary>
|
||||
''' <param name="input">string to deserialize</param>
|
||||
''' <param name="obj">Output ErrorResponse object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponse, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, ErrorResponse)
|
||||
Try
|
||||
obj = Deserialize(input)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponse) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return Deserialize(input, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String) As ErrorResponse
|
||||
Dim stringReader As StringReader = Nothing
|
||||
Try
|
||||
stringReader = New StringReader(input)
|
||||
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorResponse)
|
||||
Finally
|
||||
If (Not (stringReader) Is Nothing) Then
|
||||
stringReader.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorResponse
|
||||
Return CType(SerializerXml.Deserialize(s), ErrorResponse)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Serializes current ErrorResponse object into file
|
||||
''' </summary>
|
||||
''' <param name="fileName">full path of outupt xml file</param>
|
||||
''' <param name="exception">output Exception value if failed</param>
|
||||
''' <returns>true if can serialize and save into file; otherwise, false</returns>
|
||||
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
Try
|
||||
SaveToFile(fileName)
|
||||
Return True
|
||||
Catch e As System.Exception
|
||||
exception = e
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
||||
Dim streamWriter As StreamWriter = Nothing
|
||||
Try
|
||||
Dim dataString As String = Serialize()
|
||||
Dim outputFile As FileInfo = New FileInfo(fileName)
|
||||
streamWriter = outputFile.CreateText
|
||||
streamWriter.WriteLine(dataString)
|
||||
streamWriter.Close()
|
||||
Finally
|
||||
If (Not (streamWriter) Is Nothing) Then
|
||||
streamWriter.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes xml markup from file into an ErrorResponse object
|
||||
''' </summary>
|
||||
''' <param name="fileName">File to load and deserialize</param>
|
||||
''' <param name="obj">Output ErrorResponse object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponse, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, ErrorResponse)
|
||||
Try
|
||||
obj = LoadFromFile(fileName)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponse) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return LoadFromFile(fileName, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErrorResponse
|
||||
Dim file As FileStream = Nothing
|
||||
Dim sr As StreamReader = Nothing
|
||||
Try
|
||||
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
|
||||
sr = New StreamReader(file)
|
||||
Dim dataString As String = sr.ReadToEnd
|
||||
sr.Close()
|
||||
file.Close()
|
||||
Return Deserialize(dataString)
|
||||
Finally
|
||||
If (Not (file) Is Nothing) Then
|
||||
file.Dispose()
|
||||
End If
|
||||
If (Not (sr) Is Nothing) Then
|
||||
sr.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
|
||||
System.Serializable,
|
||||
DebuggerStepThrough,
|
||||
DesignerCategoryAttribute("code"),
|
||||
XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse"),
|
||||
XmlRoot([Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse", IsNullable:=False)>
|
||||
Partial Public Class Application
|
||||
|
||||
#Region "Private fields"
|
||||
Private _any As List(Of System.Xml.XmlElement)
|
||||
|
||||
Private _anyAttr As List(Of System.Xml.XmlAttribute)
|
||||
|
||||
Private Shared _serializerXml As XmlSerializer
|
||||
#End Region
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me._anyAttr = New List(Of System.Xml.XmlAttribute)()
|
||||
Me._any = New List(Of System.Xml.XmlElement)()
|
||||
End Sub
|
||||
|
||||
<XmlAnyElementAttribute()>
|
||||
Public Property Any() As List(Of System.Xml.XmlElement)
|
||||
Get
|
||||
Return Me._any
|
||||
End Get
|
||||
Set
|
||||
Me._any = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<XmlAnyAttributeAttribute()>
|
||||
Public Property AnyAttr() As List(Of System.Xml.XmlAttribute)
|
||||
Get
|
||||
Return Me._anyAttr
|
||||
End Get
|
||||
Set
|
||||
Me._anyAttr = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
||||
Get
|
||||
If (_serializerXml Is Nothing) Then
|
||||
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(Application))
|
||||
End If
|
||||
Return _serializerXml
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "Serialize/Deserialize"
|
||||
''' <summary>
|
||||
''' Serialize Application object
|
||||
''' </summary>
|
||||
''' <returns>XML value</returns>
|
||||
Public Overridable Function Serialize() As String
|
||||
Dim streamReader As StreamReader = Nothing
|
||||
Dim memoryStream As MemoryStream = Nothing
|
||||
Try
|
||||
memoryStream = New MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
streamReader = New StreamReader(memoryStream)
|
||||
Return streamReader.ReadToEnd
|
||||
Finally
|
||||
If (Not (streamReader) Is Nothing) Then
|
||||
streamReader.Dispose()
|
||||
End If
|
||||
If (Not (memoryStream) Is Nothing) Then
|
||||
memoryStream.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes Application object
|
||||
''' </summary>
|
||||
''' <param name="input">string to deserialize</param>
|
||||
''' <param name="obj">Output Application object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Application, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, Application)
|
||||
Try
|
||||
obj = Deserialize(input)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As Application) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return Deserialize(input, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String) As Application
|
||||
Dim stringReader As StringReader = Nothing
|
||||
Try
|
||||
stringReader = New StringReader(input)
|
||||
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), Application)
|
||||
Finally
|
||||
If (Not (stringReader) Is Nothing) Then
|
||||
stringReader.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal s As Stream) As Application
|
||||
Return CType(SerializerXml.Deserialize(s), Application)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Serializes current Application object into file
|
||||
''' </summary>
|
||||
''' <param name="fileName">full path of outupt xml file</param>
|
||||
''' <param name="exception">output Exception value if failed</param>
|
||||
''' <returns>true if can serialize and save into file; otherwise, false</returns>
|
||||
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
Try
|
||||
SaveToFile(fileName)
|
||||
Return True
|
||||
Catch e As System.Exception
|
||||
exception = e
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
||||
Dim streamWriter As StreamWriter = Nothing
|
||||
Try
|
||||
Dim dataString As String = Serialize()
|
||||
Dim outputFile As FileInfo = New FileInfo(fileName)
|
||||
streamWriter = outputFile.CreateText
|
||||
streamWriter.WriteLine(dataString)
|
||||
streamWriter.Close()
|
||||
Finally
|
||||
If (Not (streamWriter) Is Nothing) Then
|
||||
streamWriter.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes xml markup from file into an Application object
|
||||
''' </summary>
|
||||
''' <param name="fileName">File to load and deserialize</param>
|
||||
''' <param name="obj">Output Application object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Application, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, Application)
|
||||
Try
|
||||
obj = LoadFromFile(fileName)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As Application) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return LoadFromFile(fileName, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As Application
|
||||
Dim file As FileStream = Nothing
|
||||
Dim sr As StreamReader = Nothing
|
||||
Try
|
||||
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
|
||||
sr = New StreamReader(file)
|
||||
Dim dataString As String = sr.ReadToEnd
|
||||
sr.Close()
|
||||
file.Close()
|
||||
Return Deserialize(dataString)
|
||||
Finally
|
||||
If (Not (file) Is Nothing) Then
|
||||
file.Dispose()
|
||||
End If
|
||||
If (Not (sr) Is Nothing) Then
|
||||
sr.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
|
||||
<System.CodeDom.Compiler.GeneratedCode("System.Xml", "4.8.9037.0"),
|
||||
System.Serializable,
|
||||
DebuggerStepThrough,
|
||||
DesignerCategoryAttribute("code"),
|
||||
XmlType(AnonymousType:=True, [Namespace]:="http://www.govtalk.gov.uk/CM/errorresponse")>
|
||||
Partial Public Class ErrorResponseError
|
||||
|
||||
#Region "Private fields"
|
||||
Private _raisedBy As String
|
||||
|
||||
Private _number As String
|
||||
|
||||
Private _type As String
|
||||
|
||||
Private _text As List(Of String)
|
||||
|
||||
Private _location As String
|
||||
|
||||
Private _application As Application
|
||||
|
||||
Private Shared _serializerXml As XmlSerializer
|
||||
#End Region
|
||||
|
||||
Public Sub New()
|
||||
MyBase.New
|
||||
Me._application = New Application()
|
||||
Me._text = New List(Of String)()
|
||||
End Sub
|
||||
|
||||
Public Property RaisedBy() As String
|
||||
Get
|
||||
Return Me._raisedBy
|
||||
End Get
|
||||
Set
|
||||
Me._raisedBy = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<XmlElement(DataType:="integer")>
|
||||
Public Property Number() As String
|
||||
Get
|
||||
Return Me._number
|
||||
End Get
|
||||
Set
|
||||
Me._number = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Type() As String
|
||||
Get
|
||||
Return Me._type
|
||||
End Get
|
||||
Set
|
||||
Me._type = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
<XmlElement("Text")>
|
||||
Public Property Text() As List(Of String)
|
||||
Get
|
||||
Return Me._text
|
||||
End Get
|
||||
Set
|
||||
Me._text = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Location() As String
|
||||
Get
|
||||
Return Me._location
|
||||
End Get
|
||||
Set
|
||||
Me._location = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Public Property Application() As Application
|
||||
Get
|
||||
Return Me._application
|
||||
End Get
|
||||
Set
|
||||
Me._application = Value
|
||||
End Set
|
||||
End Property
|
||||
|
||||
Private Shared ReadOnly Property SerializerXml() As XmlSerializer
|
||||
Get
|
||||
If (_serializerXml Is Nothing) Then
|
||||
_serializerXml = New XmlSerializerFactory().CreateSerializer(GetType(ErrorResponseError))
|
||||
End If
|
||||
Return _serializerXml
|
||||
End Get
|
||||
End Property
|
||||
|
||||
#Region "Serialize/Deserialize"
|
||||
''' <summary>
|
||||
''' Serialize ErrorResponseError object
|
||||
''' </summary>
|
||||
''' <returns>XML value</returns>
|
||||
Public Overridable Function Serialize() As String
|
||||
Dim streamReader As StreamReader = Nothing
|
||||
Dim memoryStream As MemoryStream = Nothing
|
||||
Try
|
||||
memoryStream = New MemoryStream()
|
||||
Dim xmlWriterSettings As System.Xml.XmlWriterSettings = New System.Xml.XmlWriterSettings()
|
||||
xmlWriterSettings.Indent = True
|
||||
xmlWriterSettings.IndentChars = " "
|
||||
Dim xmlWriter As System.Xml.XmlWriter = XmlWriter.Create(memoryStream, xmlWriterSettings)
|
||||
SerializerXml.Serialize(xmlWriter, Me)
|
||||
memoryStream.Seek(0, SeekOrigin.Begin)
|
||||
streamReader = New StreamReader(memoryStream)
|
||||
Return streamReader.ReadToEnd
|
||||
Finally
|
||||
If (Not (streamReader) Is Nothing) Then
|
||||
streamReader.Dispose()
|
||||
End If
|
||||
If (Not (memoryStream) Is Nothing) Then
|
||||
memoryStream.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes ErrorResponseError object
|
||||
''' </summary>
|
||||
''' <param name="input">string to deserialize</param>
|
||||
''' <param name="obj">Output ErrorResponseError object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponseError, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, ErrorResponseError)
|
||||
Try
|
||||
obj = Deserialize(input)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String, ByRef obj As ErrorResponseError) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return Deserialize(input, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal input As String) As ErrorResponseError
|
||||
Dim stringReader As StringReader = Nothing
|
||||
Try
|
||||
stringReader = New StringReader(input)
|
||||
Return CType(SerializerXml.Deserialize(XmlReader.Create(stringReader)), ErrorResponseError)
|
||||
Finally
|
||||
If (Not (stringReader) Is Nothing) Then
|
||||
stringReader.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function Deserialize(ByVal s As Stream) As ErrorResponseError
|
||||
Return CType(SerializerXml.Deserialize(s), ErrorResponseError)
|
||||
End Function
|
||||
#End Region
|
||||
|
||||
''' <summary>
|
||||
''' Serializes current ErrorResponseError object into file
|
||||
''' </summary>
|
||||
''' <param name="fileName">full path of outupt xml file</param>
|
||||
''' <param name="exception">output Exception value if failed</param>
|
||||
''' <returns>true if can serialize and save into file; otherwise, false</returns>
|
||||
Public Overridable Overloads Function SaveToFile(ByVal fileName As String, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
Try
|
||||
SaveToFile(fileName)
|
||||
Return True
|
||||
Catch e As System.Exception
|
||||
exception = e
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overridable Overloads Sub SaveToFile(ByVal fileName As String)
|
||||
Dim streamWriter As StreamWriter = Nothing
|
||||
Try
|
||||
Dim dataString As String = Serialize()
|
||||
Dim outputFile As FileInfo = New FileInfo(fileName)
|
||||
streamWriter = outputFile.CreateText
|
||||
streamWriter.WriteLine(dataString)
|
||||
streamWriter.Close()
|
||||
Finally
|
||||
If (Not (streamWriter) Is Nothing) Then
|
||||
streamWriter.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Sub
|
||||
|
||||
''' <summary>
|
||||
''' Deserializes xml markup from file into an ErrorResponseError object
|
||||
''' </summary>
|
||||
''' <param name="fileName">File to load and deserialize</param>
|
||||
''' <param name="obj">Output ErrorResponseError object</param>
|
||||
''' <param name="exception">output Exception value if deserialize failed</param>
|
||||
''' <returns>true if this Serializer can deserialize the object; otherwise, false</returns>
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponseError, ByRef exception As System.Exception) As Boolean
|
||||
exception = Nothing
|
||||
obj = CType(Nothing, ErrorResponseError)
|
||||
Try
|
||||
obj = LoadFromFile(fileName)
|
||||
Return True
|
||||
Catch ex As System.Exception
|
||||
exception = ex
|
||||
Return False
|
||||
End Try
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String, ByRef obj As ErrorResponseError) As Boolean
|
||||
Dim exception As System.Exception = Nothing
|
||||
Return LoadFromFile(fileName, obj, exception)
|
||||
End Function
|
||||
|
||||
Public Overloads Shared Function LoadFromFile(ByVal fileName As String) As ErrorResponseError
|
||||
Dim file As FileStream = Nothing
|
||||
Dim sr As StreamReader = Nothing
|
||||
Try
|
||||
file = New FileStream(fileName, FileMode.Open, FileAccess.Read)
|
||||
sr = New StreamReader(file)
|
||||
Dim dataString As String = sr.ReadToEnd
|
||||
sr.Close()
|
||||
file.Close()
|
||||
Return Deserialize(dataString)
|
||||
Finally
|
||||
If (Not (file) Is Nothing) Then
|
||||
file.Dispose()
|
||||
End If
|
||||
If (Not (sr) Is Nothing) Then
|
||||
sr.Dispose()
|
||||
End If
|
||||
End Try
|
||||
End Function
|
||||
End Class
|
||||
End Namespace
|
||||
#Enable Warning
|
||||
Reference in New Issue
Block a user