problem with serializer constructor

[Mark]

Hi all,

i'm trying to serialize a class. Using the constructor of
XmlSerializer i get these (odd?) errors: "File or assembly name
goseij9w.dll, or one of its dependencies, was not found". Everytime i
run the testprogram it complains about another exotically named dll
like et_kn-hl.dll or afeaqisr.dll.
Even the example from msdn throws these errors.

Anyone knows wuts wrong?
I'll post the example code below.

Thanks in advance,

grtz,

Mark

<code>
Imports System
Imports System.Xml
Imports System.Xml.Seri alization
Imports System.IO
Imports Microsoft.Visua lBasic

Public Class msdn_example
' The XmlRootAttribut e allows you to set an alternate name
' (PurchaseOrder) of the XML element, the element namespace; by
' default, the XmlSerializer uses the class name. The attribute
' also allows you to set the XML namespace for the element.
Lastly,
' the attribute sets the IsNullable property, which specifies
whether
' the xsi:null attribute appears if the class instance is set to
' a null reference.
<XmlRootAttribu te("PurchaseOrd er", _
Namespace:="htt p://www.cpandl.com" , IsNullable:=Fal se)> _
Public Class PurchaseOrder

Public ShipTo As Address
Public OrderDate As String
' The XmlArrayAttribu te changes the XML element name
' from the default of "OrderedIte ms" to "Items".
<XmlArrayAttrib ute("Items")> _
Public OrderedItems() As OrderedItem
Public SubTotal As Decimal
Public ShipCost As Decimal
Public TotalCost As Decimal
End Class 'PurchaseOrder
Public Class Address
' The XmlAttribute instructs the XmlSerializer to serialize
the Name
' field as an XML attribute instead of an XML element (the
default
' behavior).
<XmlAttributeAt tribute()> _
Public Name As String
Public Line1 As String

' Setting the IsNullable property to false instructs the
' XmlSerializer that the XML attribute will not appear if
' the City field is set to a null reference.
<XmlElementAttr ibute(IsNullabl e:=False)> _
Public City As String
Public State As String
Public Zip As String
End Class 'Address
Public Class OrderedItem
Public ItemName As String
Public Description As String
Public UnitPrice As Decimal
Public Quantity As Integer
Public LineTotal As Decimal
' Calculate is a custom method that calculates the price per
item,
' and stores the value in a field.
Public Sub Calculate()
LineTotal = UnitPrice * Quantity
End Sub 'Calculate
End Class 'OrderedItem
Public Class Test

Public Shared Sub Main()
' Read and write purchase orders.
Dim t As New Test
t.CreatePO("po. xml")
t.ReadPO("po.xm l")
End Sub 'Main

Private Sub CreatePO(ByVal filename As String)
' Create an instance of the XmlSerializer class;
' specify the type of object to serialize.
Dim serializer As New
XmlSerializer(G etType(Purchase Order))
Dim writer As New StreamWriter(fi lename)
Dim po As New PurchaseOrder

' Create an address to ship and bill to.
Dim billAddress As New Address
billAddress.Nam e = "Teresa Atkinson"
billAddress.Lin e1 = "1 Main St."
billAddress.Cit y = "AnyTown"
billAddress.Sta te = "WA"
billAddress.Zip = "00000"
' Set ShipTo and BillTo to the same addressee.
po.ShipTo = billAddress
po.OrderDate = System.DateTime .Now.ToLongDate String()

' Create an OrderedItem object.
Dim i1 As New OrderedItem
i1.ItemName = "Widget S"
i1.Description = "Small widget"
i1.UnitPrice = CDec(5.23)
i1.Quantity = 3
i1.Calculate()

' Insert the item into the array.
Dim items(0) As OrderedItem
items(0) = i1
po.OrderedItems = items
' Calculate the total cost.
Dim subTotal As New Decimal
Dim oi As OrderedItem
For Each oi In items
subTotal += oi.LineTotal
Next oi
po.SubTotal = subTotal
po.ShipCost = CDec(12.51)
po.TotalCost = po.SubTotal + po.ShipCost
' Serialize the purchase order, and close the TextWriter.
serializer.Seri alize(writer, po)
writer.Close()
End Sub 'CreatePO

Protected Sub ReadPO(ByVal filename As String)
' Create an instance of the XmlSerializer class;
' specify the type of object to be deserialized.

<HERE IS WHERE IT DOESN'T GO ALL THAT WELL>
Dim serializer As New
XmlSerializer(G etType(Purchase Order))
</HERE IS WHERE IT DOESN'T GO ALL THAT WELL>

' If the XML document has been altered with unknown
' nodes or attributes, handle them with the
' UnknownNode and UnknownAttribut e events.
AddHandler serializer.Unkn ownNode, AddressOf
serializer_Unkn ownNode
AddHandler serializer.Unkn ownAttribute, AddressOf
serializer_Unkn ownAttribute

' A FileStream is needed to read the XML document.
Dim fs As New FileStream(file name, FileMode.Open)
' Declare an object variable of the type to be
deserialized.
Dim po As PurchaseOrder
' Use the Deserialize method to restore the object's state
with
' data from the XML document.
po = CType(serialize r.Deserialize(f s), PurchaseOrder)
' Read the order date.
Console.WriteLi ne(("OrderDate: " & po.OrderDate))

' Read the shipping address.
Dim shipTo As Address = po.ShipTo
ReadAddress(shi pTo, "Ship To:")
' Read the list of ordered items.
Dim items As OrderedItem() = po.OrderedItems
Console.WriteLi ne("Items to be shipped:")
Dim oi As OrderedItem
For Each oi In items
Console.WriteLi ne((ControlChar s.Tab & oi.ItemName &
ControlChars.Ta b & _
oi.Description & ControlChars.Ta b & oi.UnitPrice &
ControlChars.Ta b & _
oi.Quantity & ControlChars.Ta b & oi.LineTotal))
Next oi
' Read the subtotal, shipping cost, and total cost.
Console.WriteLi ne((New String(ControlC hars.Tab, 5) & _
" Subtotal" & ControlChars.Ta b & po.SubTotal))
Console.WriteLi ne(New String(ControlC hars.Tab, 5) & _
" Shipping" & ControlChars.Ta b & po.ShipCost)
Console.WriteLi ne(New String(ControlC hars.Tab, 5) & _
" Total" & New String(ControlC hars.Tab, 2) & po.TotalCost)
End Sub 'ReadPO

Protected Sub ReadAddress(ByV al a As Address, ByVal label As
String)
' Read the fields of the Address object.
Console.WriteLi ne(label)
Console.WriteLi ne(ControlChars .Tab & a.Name)
Console.WriteLi ne(ControlChars .Tab & a.Line1)
Console.WriteLi ne(ControlChars .Tab & a.City)
Console.WriteLi ne(ControlChars .Tab & a.State)
Console.WriteLi ne(ControlChars .Tab & a.Zip)
Console.WriteLi ne()
End Sub 'ReadAddress

Protected Sub serializer_Unkn ownNode(ByVal sender As Object,
ByVal e As XmlNodeEventArg s)
Console.WriteLi ne(("Unknown Node:" & e.Name &
ControlChars.Ta b & e.Text))
End Sub 'serializer_Unk nownNode
Protected Sub serializer_Unkn ownAttribute(By Val sender As
Object, ByVal e As XmlAttributeEve ntArgs)
Dim attr As System.Xml.XmlA ttribute = e.Attr
Console.WriteLi ne(("Unknown attribute " & attr.Name & "='"
& attr.Value & "'"))
End Sub 'serializer_Unk nownAttribute
End Class 'Test

End Class
</code>

[Derek Harmon]

"Mark" <ma********@hot mail.com> wrote in message news:7e******** *************** ***@posting.goo gle.com...

i'm trying to serialize a class. Using the constructor of
XmlSerializer i get these (odd?) errors: "File or assembly name
goseij9w.dll, or one of its dependencies, was not found". Everytime i
run the testprogram it complains about another exotically named dll
like et_kn-hl.dll or afeaqisr.dll.
Christoph Schittko describes how to troubleshoot these kinds of problems in this blog entry,

http://weblogs.asp.net/cschittko/articles/33045.aspx

The strangely named assembly is an assembly that XmlSerializer generates on-the-fly the first
time you construct it. Essentially, to troubleshoot this you can try turning on an undocumented
switch (XmlSerializati on.Compilation) in the <system.diagnos tics> section of your application's
application.exe .config file, and then go into the Temp directory and examine the C# source file
that the Framework dynamically generates for the serializer to see what's wrong.
Even the example from msdn throws these errors.

Make sure the user account under which the application is running has the necessary permissions
to create/write/read the automatically generated assembly in the Temp directory (this is sometimes
a cause for this error with ASP.NET web applications, although it is certainly not the only possible
cause).
Derek Harmon

[Mark]

"Derek Harmon" <lo*******@msn. com> wrote in message news:<u7******* *******@TK2MSFT NGP10.phx.gbl>. ..

<snip>
Christoph Schittko describes how to troubleshoot these kinds of problems in this blog entry,

http://weblogs.asp.net/cschittko/articles/33045.aspx

The strangely named assembly is an assembly that XmlSerializer generates on-the-fly the first
time you construct it. Essentially, to troubleshoot this you can try turning on an undocumented
switch (XmlSerializati on.Compilation) in the <system.diagnos tics> section of your application's
application.exe .config file, and then go into the Temp directory and examine the C# source file
that the Framework dynamically generates for the serializer to see what's wrong. <snip> Derek Harmon

Ty. That helped me debugging the app.

Grtz,

Mark

[Dheeraj]

Hi,
Mark, I have same problem as yours. Did you get solution? Do you know why
did you get that error? I am really desperate...
I am sorry, I dont know why I am unable to create a new question, It asks me
to select news group but the drop down doe not contain any thing!!
Thats why I am putting it here.

I used Chris tool. It really helped me to find the problem. But what about
solution?
I am getting error "System.Argumen tException: Unable to generate permission
set, input xml may be malformed.."

I put the diagnostic switch and found that it is successfully creating
rundime csharp file. But when I use that csharp file and try to compile, then
also I am getting same error.

I really do not understand what this error is. With the user's profile, I
can create a new permission set even at Enterprise, machine level. (using
..net configuration tool.). The user is administartor. There is full
permission to Everyone to Temp directory.

The error is on this lin
[System.Security .Permissions.Pe rmissionSet(Sys tem.Security.Pe rmissions.Secur ityAction.LinkD emand, Name="FullTrust ")]

Looks like it is unable to create permission set. But why? Whats the reason?
This bug is really making me mad. Please help me

Atleast give me a workaround. (I can not serialize all my code by just
writing text like <MyClass></MyClass> etc. because I have heavily used
microsoft's xml serialization code.

PLEEESSSSSSSEEE EE HELP!!

Thanks in advance
Dheeraj

"Mark" wrote:

Hi all,

i'm trying to serialize a class. Using the constructor of
XmlSerializer i get these (odd?) errors: "File or assembly name
goseij9w.dll, or one of its dependencies, was not found". Everytime i
run the testprogram it complains about another exotically named dll
like et_kn-hl.dll or afeaqisr.dll.
Even the example from msdn throws these errors.

Anyone knows wuts wrong?
I'll post the example code below.

Thanks in advance,

grtz,

Mark

<code>
Imports System
Imports System.Xml
Imports System.Xml.Seri alization
Imports System.IO
Imports Microsoft.Visua lBasic

Public Class msdn_example
' The XmlRootAttribut e allows you to set an alternate name
' (PurchaseOrder) of the XML element, the element namespace; by
' default, the XmlSerializer uses the class name. The attribute
' also allows you to set the XML namespace for the element.
Lastly,
' the attribute sets the IsNullable property, which specifies
whether
' the xsi:null attribute appears if the class instance is set to
' a null reference.
<XmlRootAttribu te("PurchaseOrd er", _
Namespace:="htt p://www.cpandl.com" , IsNullable:=Fal se)> _
Public Class PurchaseOrder

Public ShipTo As Address
Public OrderDate As String
' The XmlArrayAttribu te changes the XML element name
' from the default of "OrderedIte ms" to "Items".
<XmlArrayAttrib ute("Items")> _
Public OrderedItems() As OrderedItem
Public SubTotal As Decimal
Public ShipCost As Decimal
Public TotalCost As Decimal
End Class 'PurchaseOrder
Public Class Address
' The XmlAttribute instructs the XmlSerializer to serialize
the Name
' field as an XML attribute instead of an XML element (the
default
' behavior).
<XmlAttributeAt tribute()> _
Public Name As String
Public Line1 As String

' Setting the IsNullable property to false instructs the
' XmlSerializer that the XML attribute will not appear if
' the City field is set to a null reference.
<XmlElementAttr ibute(IsNullabl e:=False)> _
Public City As String
Public State As String
Public Zip As String
End Class 'Address
Public Class OrderedItem
Public ItemName As String
Public Description As String
Public UnitPrice As Decimal
Public Quantity As Integer
Public LineTotal As Decimal
' Calculate is a custom method that calculates the price per
item,
' and stores the value in a field.
Public Sub Calculate()
LineTotal = UnitPrice * Quantity
End Sub 'Calculate
End Class 'OrderedItem
Public Class Test

Public Shared Sub Main()
' Read and write purchase orders.
Dim t As New Test
t.CreatePO("po. xml")
t.ReadPO("po.xm l")
End Sub 'Main

Private Sub CreatePO(ByVal filename As String)
' Create an instance of the XmlSerializer class;
' specify the type of object to serialize.
Dim serializer As New
XmlSerializer(G etType(Purchase Order))
Dim writer As New StreamWriter(fi lename)
Dim po As New PurchaseOrder

' Create an address to ship and bill to.
Dim billAddress As New Address
billAddress.Nam e = "Teresa Atkinson"
billAddress.Lin e1 = "1 Main St."
billAddress.Cit y = "AnyTown"
billAddress.Sta te = "WA"
billAddress.Zip = "00000"
' Set ShipTo and BillTo to the same addressee.
po.ShipTo = billAddress
po.OrderDate = System.DateTime .Now.ToLongDate String()

' Create an OrderedItem object.
Dim i1 As New OrderedItem
i1.ItemName = "Widget S"
i1.Description = "Small widget"
i1.UnitPrice = CDec(5.23)
i1.Quantity = 3
i1.Calculate()

' Insert the item into the array.
Dim items(0) As OrderedItem
items(0) = i1
po.OrderedItems = items
' Calculate the total cost.
Dim subTotal As New Decimal
Dim oi As OrderedItem
For Each oi In items
subTotal += oi.LineTotal
Next oi
po.SubTotal = subTotal
po.ShipCost = CDec(12.51)
po.TotalCost = po.SubTotal + po.ShipCost
' Serialize the purchase order, and close the TextWriter.
serializer.Seri alize(writer, po)
writer.Close()
End Sub 'CreatePO

Protected Sub ReadPO(ByVal filename As String)
' Create an instance of the XmlSerializer class;
' specify the type of object to be deserialized.

<HERE IS WHERE IT DOESN'T GO ALL THAT WELL>
Dim serializer As New
XmlSerializer(G etType(Purchase Order))
</HERE IS WHERE IT DOESN'T GO ALL THAT WELL>

' If the XML document has been altered with unknown
' nodes or attributes, handle them with the
' UnknownNode and UnknownAttribut e events.
AddHandler serializer.Unkn ownNode, AddressOf
serializer_Unkn ownNode
AddHandler serializer.Unkn ownAttribute, AddressOf
serializer_Unkn ownAttribute

' A FileStream is needed to read the XML document.
Dim fs As New FileStream(file name, FileMode.Open)
' Declare an object variable of the type to be
deserialized.
Dim po As PurchaseOrder
' Use the Deserialize method to restore the object's state
with
' data from the XML document.
po = CType(serialize r.Deserialize(f s), PurchaseOrder)
' Read the order date.
Console.WriteLi ne(("OrderDate: " & po.OrderDate))

' Read the shipping address.
Dim shipTo As Address = po.ShipTo
ReadAddress(shi pTo, "Ship To:")
' Read the list of ordered items.
Dim items As OrderedItem() = po.OrderedItems
Console.WriteLi ne("Items to be shipped:")
Dim oi As OrderedItem
For Each oi In items
Console.WriteLi ne((ControlChar s.Tab & oi.ItemName &
ControlChars.Ta b & _
oi.Description & ControlChars.Ta b & oi.UnitPrice &
ControlChars.Ta b & _
oi.Quantity & ControlChars.Ta b & oi.LineTotal))
Next oi
' Read the subtotal, shipping cost, and total cost.
Console.WriteLi ne((New String(ControlC hars.Tab, 5) & _
" Subtotal" & ControlChars.Ta b & po.SubTotal))
Console.WriteLi ne(New String(ControlC hars.Tab, 5) & _
" Shipping" & ControlChars.Ta b & po.ShipCost)
Console.WriteLi ne(New String(ControlC hars.Tab, 5) & _
" Total" & New String(ControlC hars.Tab, 2) & po.TotalCost)
End Sub 'ReadPO

Protected Sub ReadAddress(ByV al a As Address, ByVal label As
String)
' Read the fields of the Address object.
Console.WriteLi ne(label)
Console.WriteLi ne(ControlChars .Tab & a.Name)
Console.WriteLi ne(ControlChars .Tab & a.Line1)
Console.WriteLi ne(ControlChars .Tab & a.City)
Console.WriteLi ne(ControlChars .Tab & a.State)
Console.WriteLi ne(ControlChars .Tab & a.Zip)
Console.WriteLi ne()
End Sub 'ReadAddress

Protected Sub serializer_Unkn ownNode(ByVal sender As Object,
ByVal e As XmlNodeEventArg s)
Console.WriteLi ne(("Unknown Node:" & e.Name &
ControlChars.Ta b & e.Text))
End Sub 'serializer_Unk nownNode
Protected Sub serializer_Unkn ownAttribute(By Val sender As
Object, ByVal e As XmlAttributeEve ntArgs)
Dim attr As System.Xml.XmlA ttribute = e.Attr
Console.WriteLi ne(("Unknown attribute " & attr.Name & "='"
& attr.Value & "'"))
End Sub 'serializer_Unk nownAttribute
End Class 'Test

End Class
</code>