SOAP Serialization -{"Token StartElement in state Epilog would result in an invalid XML document."}

EDN Admin · Dec 24, 2012

System.InvalidOperationException was unhandled 
HResult=-2146233079 
Message=There was an error generating the XML document. 
Source=System.Xml 
StackTrace: 
at System.Xml.Serialization.XmlSerializer.Serialize(XmlWriter xmlWriter, Object o, XmlSerializerNamespaces namespaces, String encodingStyle, String id) 
at System.Xml.Serialization.XmlSerializer.Serialize(TextWriter textWriter, Object o, XmlSerializerNamespaces namespaces) 
at System.Xml.Serialization.XmlSerializer.Serialize(TextWriter textWriter, Object o) 
at WindowsApplication1.Form1.SavePlayList(String Filename) in C:UsersRocketShipDesktopF Drive - My FilesOrganized FilesProjectsvidplayerExamplevidplayerExampleForm1.vb:line 403 
at WindowsApplication1.Form1.ToCRDelimitedTextFileToolStripMenuItem_Click(Object sender, EventArgs e) in C:UsersRocketShipDesktopF Drive - My FilesOrganized FilesProjectsvidplayerExamplevidplayerExampleForm1.vb:line 739 
at System.Windows.Forms.ToolStripItem.RaiseEvent(Object key, EventArgs e) 
at System.Windows.Forms.ToolStripMenuItem.OnClick(EventArgs e) 
at System.Windows.Forms.ToolStripItem.HandleClick(EventArgs e) 
at System.Windows.Forms.ToolStripItem.HandleMouseUp(MouseEventArgs e) 
at System.Windows.Forms.ToolStripItem.FireEventInteractive(EventArgs e, ToolStripItemEventType met) 
at System.Windows.Forms.ToolStripItem.FireEvent(EventArgs e, ToolStripItemEventType met) 
at System.Windows.Forms.ToolStrip.OnMouseUp(MouseEventArgs mea) 
at System.Windows.Forms.ToolStripDropDown.OnMouseUp(MouseEventArgs mea) 
at System.Windows.Forms.Control.WmMouseUp(Message& m, MouseButtons button, Int32 clicks) 
at System.Windows.Forms.Control.WndProc(Message& m) 
at System.Windows.Forms.ScrollableControl.WndProc(Message& m) 
at System.Windows.Forms.ToolStrip.WndProc(Message& m) 
at System.Windows.Forms.ToolStripDropDown.WndProc(Message& m) 
at System.Windows.Forms.Control.ControlNativeWindow.OnMessage(Message& m) 
at System.Windows.Forms.Control.ControlNativeWindow.WndProc(Message& m) 
at System.Windows.Forms.NativeWindow.DebuggableCallback(IntPtr hWnd, Int32 msg, IntPtr wparam, IntPtr lparam) 
at System.Windows.Forms.UnsafeNativeMethods.DispatchMessageW(MSG& msg) 
at System.Windows.Forms.Application.ComponentManager.System.Windows.Forms.UnsafeNativeMethods.IMsoComponentManager.FPushMessageLoop(IntPtr dwComponentID, Int32 reason, Int32 pvLoopData) 
at System.Windows.Forms.Application.ThreadContext.RunMessageLoopInner(Int32 reason, ApplicationContext context) 
at System.Windows.Forms.Application.ThreadContext.RunMessageLoop(Int32 reason, ApplicationContext context) 
at System.Windows.Forms.Application.Run(ApplicationContext context) 
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.OnRun() 
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.DoApplicationModel() 
at Microsoft.VisualBasic.ApplicationServices.WindowsFormsApplicationBase.Run(String[] commandLine) 
at WindowsApplication1.My.MyApplication.Main(String[] Args) in 17d14f5c-a337-4978-8281-53493378c1071.vb:line 81 
at System.AppDomain._nExecuteAssembly(RuntimeAssembly assembly, String[] args) 
at System.AppDomain.ExecuteAssembly(String assemblyFile, Evidence assemblySecurity, String[] args) 
at Microsoft.VisualStudio.HostingProcess.HostProc.RunUsersAssembly() 
at System.Threading.ThreadHelper.ThreadStart_Context(Object state) 
at System.Threading.ExecutionContext.RunInternal(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx) 
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state, Boolean preserveSyncCtx) 
at System.Threading.ExecutionContext.Run(ExecutionContext executionContext, ContextCallback callback, Object state) 
at System.Threading.ThreadHelper.ThreadStart() 
InnerException: System.InvalidOperationException 
HResult=-2146233079 
Message=Token StartElement in state Epilog would result in an invalid XML document. 
Source=System.Xml 
StackTrace: 
at System.Xml.XmlTextWriter.AutoComplete(Token token) 
at System.Xml.XmlTextWriter.WriteStartElement(String prefix, String localName, String ns) 
at System.Xml.Serialization.XmlSerializationWriter.WriteStartElement(String name, String ns, Object o, Boolean writePrefixed, XmlSerializerNamespaces xmlns) 
at System.Xml.Serialization.XmlSerializationWriter.WriteArray(String name, String ns, Object o, Type type) 
at System.Xml.Serialization.XmlSerializationWriter.WriteReferencedElement(String name, String ns, Object o, Type ambientType) 
at System.Xml.Serialization.XmlSerializationWriter.WriteReferencedElements() 
at Microsoft.Xml.Serialization.GeneratedAssembly.XmlSerializationWriter1.Write4_AvbMediaPlayerPlaylist(Object o) 
InnerException: 
Any ideas?
I have made this serialization sub:
<pre class="prettyprint lang-vb" style=" Sub SavePlayList(ByVal Filename As String)
Dim PlaylistItems As New List(Of MyVideo)
For Each Item In ListBox1.Items
Dim MediaItem As MyVideo = DirectCast(Item, MyVideo)
PlaylistItems.Add(MediaItem)
Next
Dim PlayList As New AvbMediaPlayerPlaylist(PlaylistItems)
Dim SoapMapping As Xml.Serialization.XmlTypeMapping = _
(New Xml.Serialization.SoapReflectionImporter).ImportTypeMapping(GetType(AvbMediaPlayerPlaylist))
Dim Serializer As New Xml.Serialization.XmlSerializer(SoapMapping)
Using sw As New StreamWriter(Filename)
Serializer.Serialize(sw, PlayList)
End Using
End Sub[/code]
With this class to hold the playlist for serialization
<pre class="prettyprint lang-vb" style=" <Serializable()>
Public Class AvbMediaPlayerPlaylist
Public PlaylistMediaItems As List(Of MyVideo)
Sub New(ByVal PlayListItems As List(Of MyVideo))
Me.PlaylistMediaItems = PlayListItems
End Sub
Sub New()

End Sub
End Class[/code]
 
And that class is a list of this object:
<pre class="prettyprint lang-vb" style=" Option Strict On
<Serializable()>
Public Class MyVideo
Private _fileName As String
Private Property _listBoxText As String
Public Property IsYoutubeObject As Boolean = False
Public Property ListBoxText As String
Get
Return _listBoxText
End Get
Set(ByVal value As String)
_listBoxText = value
End Set
End Property
Public Property Filename As String
Get
Return _fileName
End Get
Set(ByVal value As String)
Me._fileName = value
_listBoxText = IO.Path.GetFileNameWithoutExtension(value)
End Set
End Property
Sub New(ByVal FileName As String, Optional ByVal SkipTitleRequest As Boolean = True, Optional ByVal AlternateTitle As String = "")
Me.Filename = FileName
If Not SkipTitleRequest Then
If Not AlternateTitle = "" Then
If ValidYoutubeURL(FileName) Then
Dim DisplayText As String = InputBox("Please enter a title for this youtube video.", "Enter media title.", "Youtube Video")
If DisplayText = "" Then
_listBoxText = "Youtube Video"
Else
_listBoxText = DisplayText
End If
End If
End If
Else
If Not AlternateTitle = "" Then
Me._listBoxText = AlternateTitle
End If
End If
If ValidYoutubeURL(FileName) Then
Me.IsYoutubeObject = True
End If
End Sub
Sub New()

End Sub
Public Overrides Function ToString() As String
Return Me.ListBoxText
End Function
Function ValidYoutubeURL(ByVal URL As String) As Boolean
If (URL.IndexOf("www.youtube.com") <> -1) Then Return True
Return False
End Function
End Class[/code]
 

<
If you want something youve never had, you need to do something youve never done.
 
 
Everyone should take the time to mark helpful posts and propose answers!

Answer an interesting question? 
http://social.technet.microsoft.com/wiki/ Create a wiki article about it! 

http://social.technet.microsoft.com/wiki/contents/articles/14665.visual-basic-articles-by-paul-ishak.aspx My Technet Wiki Articles

 
 

View the full article

SOAP Serialization -{"Token StartElement in state Epilog would result in an invalid XML document."}

EDN Admin

Well-known member

Similar threads