Serialisierung und Deserialisierung eines Objekts aus einer DLL

GuentherA · 16. September 2016, 11:54

Hallo zusammen,

mein erster Post hier - und das ein Thema, das mich jetzt dann doch schon zur Verzweiflung bringt!

Ich habe 2 VB.net Projekte (beide Windows Forms - Anwendung A und Anwendung B). Mit Anwendung A erstelle ich eine "Objektstruktur" und speichere diese mit binärer serialisierung. Das zweite Projekt (Anwendung B) sollte die so erstellte datei wieder öffnen und dann mit den eingelesenen Objekten weiter arbeiten.

Da ich jetzt die Klassen nicht 2mal implementieren wollte, habe ich diese in eine DLL ausgelagert. Die dll habe ich nun in beide Projekte eingebunden. Das funktioniert soweit auch. Also sowohl intellisense findet alles, als auch das der restliche Code problemlos läuft.

Nun aber zum eigentlichen Problem:
Wenn ich jetzt eine Datei in Anwendung A speichere, dann steht in dem binären File ein Verweis auf diese Anwendung. Versuche ich nun diese Datei in Anwendung B zu öffnen, dann kommt eine System.Reflection.TargetInvocationException. Wenn ich die serialisierte Datei in einem Texteditor öffne finde ich den Verweis auf das andere Projekt auch:

Quellcode

JNCpoPRO_GripperEdit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null?

Folgender Fehler kommt beim Einlesen des Streams:
Exception:

Quellcode

System.Reflection.TargetInvocationException
{"Ein Aufrufziel hat einen Ausnahmefehler verursacht."}

InnerException:

Quellcode

{"Die Datei oder Assembly ""NCpoPRO_GripperEdit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.":"NCpoPRO_GripperEdit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"}

Wobei NCpoPRO_GripperEdit der Projektname der Anwendung A ist...

Wie kann ich ihm das jetzt abgewöhnen? Ich muss doch die Objekte ohne Verweis auf die speichernde Anwendung ablegen

Meine Recherchen im Netz sind leider erfolglos geblieben. Daher bitte ich hier um den ein oder anderen hilfreichen Hinweis!

Danke schon mal im Voraus für Eure Unterstützung,

Günther

RodFromGermany · 16. September 2016, 11:56

@GuentherA Willkommen im Forum. :thumbup:

Mit welchem Code serialisierst Du?
Gugst Du vielleicht mal hier, das sieht dann so aus:

XML-Quellcode

<?xml version="1.0" encoding="Windows-1252"?>
<MainLanguage xmlns:xsi="http://www.w3.org/2001/XMLSchema-instance" xmlns:xsd="http://www.w3.org/2001/XMLSchema">
<Language>de-DE</Language>
</MainLanguage>

ErfinderDesRades · 16. September 2016, 12:04

GuentherA schrieb:

Da ich jetzt die Klassen nicht 2mal implementieren wollte, habe ich diese in eine DLL ausgelagert. Die dll habe ich nun in beide Projekte eingebunden.

Wenn ich jetzt eine Datei in Anwendung A speichere, dann steht in dem binären File ein Verweis auf diese Anwendung.
Exception:

Quellcode

{"Die Datei oder Assembly ""NCpoPRO_GripperEdit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"" oder eine Abhängigkeit davon wurde nicht gefunden. Das System kann die angegebene Datei nicht finden.":"NCpoPRO_GripperEdit, Version=1.0.0.0, Culture=neutral, PublicKeyToken=null"}

Der Fehler sagt, dass du offensichtlich Klassen aus Anwendung A mit-serialisiert hast.
Also deine Überlegungen und die Umsetzung scheint mir im Grunde vollkommen korrekt, nur was du dann serialisierst, darf keinerlei Abhängigkeit zu irgendeiner Klasse oder Form oder UserControl haben, die in Anwendung A angelegt ist - ausschliesslich Klassen der ausgelagerten Dll sind zulässig.

Evtl klärt sich was, wenn du mal deinen (de-)serialisierungs-Code einstellst - ach, das sagte Rod ja auch schon.

GuentherA · 16. September 2016, 12:10

Serialisiert wird über folgende Klasse:

Spoiler anzeigen

Quellcode

Public Class Serializer
Public Shared Sub Serialize(Of T)(ByVal compression As Boolean,
ByVal path As String, ByVal instance As T)
Try
Dim fs As Stream = New FileStream(path, FileMode.OpenOrCreate)
Dim bf As New BinaryFormatter
If compression Then fs = New GZipStream(fs, CompressionMode.Compress)
bf.Serialize(fs, instance)
fs.Close()
Catch ex As Exception
MessageBox.Show(ex.Message, Application.ProductName,
MessageBoxButtons.OK, MessageBoxIcon.Error)
If Not IsNothing(ex.InnerException) Then
MessageBox.Show(ex.InnerException.Message, Application.ProductName,
MessageBoxButtons.OK, MessageBoxIcon.Error)
End If
End Try
End Sub
Public Shared Sub Serialize(Of T)(ByVal path As String, ByVal instance As T)
Serialize(False, path, instance)
End Sub
Public Shared Function DeSerialize(Of T)(ByVal compression As Boolean,
ByVal path As String, ByVal defaultInstance As T) As T
' Try
If Not File.Exists(path) Then
Return defaultInstance
End If
Dim fs As Stream = New FileStream(path, FileMode.OpenOrCreate)
Dim bf As New BinaryFormatter
If compression Then fs = New GZipStream(fs, CompressionMode.Decompress)
DeSerialize = CType(bf.Deserialize(fs), T)
fs.Close()
'Catch ex As Exception
' MessageBox.Show(ex.Message, Application.ProductName,
' MessageBoxButtons.OK, MessageBoxIcon.Error)
'End Try
End Function
Public Shared Function DeSerialize(Of T)(ByVal path As String,
ByVal defaultInstance As T) As T
Return DeSerialize(Of T)(False, path, defaultInstance)
End Function
Public Shared Function DeSerialize(Of T As New)(ByVal path As String) As T
Return DeSerialize(Of T)(path, New T)
End Function
Public Shared Function DeSerialize(Of T As New)(
ByVal compression As Boolean, ByVal path As String) As T
Return DeSerialize(Of T)(compression, path, New T)
End Function
End Class

In der obersten Klasse meiner Struktur gibt es dann noch eine methode Load und Save:

Spoiler anzeigen

Dein Link bringt mich damit jetzt noch nicht recht weiter - oder übersehe ich was?

Danke und LG
Günther

slice · 16. September 2016, 12:13

Und wie sieht die Klasse Gripper aus?

GuentherA · 16. September 2016, 12:20

ErfinderDesRades schrieb:

Der Fehler sagt, dass du offensichtlich Klassen aus Anwendung A mit-serialisiert hast.

Jap, nur suche ich mittlerweile seit Stunden zum - auf wienerisch ausgedrückt - wickerl - und hab keine Ahnung wo ich da was mit serialisiere...

Ok, ich wollte es euch eigentlich ersparen, dass ihr da durch den kompletten code der Klassen durch müßt aber es hilft wohl nix...

Hier die Klasse: Gripper

Spoiler anzeigen

Quellcode

<Serializable()>
Public Class Gripper
Implements INotifyPropertyChanged
Private m_Node As New TreeNode
Private m_Name As String
Private m_Abmessungen As SizeF
Private m_GripperPosition As PointF
Private m_GroupCount As Integer
Private m_SaugerCount As Integer
Private m_GripperRectanglePosition As PointF
Private m_GreiferRand As SizeF
Private m_isAuswahl As Boolean
Private WithEvents m_SaugerGroups As New BindingList(Of SaugerGroup)
Private Event Name_Changed()
Private Event Node_Changed()
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
' This method is called by the Set accessor of each property.
' The CallerMemberName attribute that is applied to the optional propertyName
' parameter causes the property name of the caller to be substituted as an argument.
Private Sub NotifyPropertyChanged(<CallerMemberName()> Optional ByVal propertyName As String = Nothing)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
End Sub
<Category("Greifer"), Description("Greifer Benennung"), DisplayName("Name")>
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
m_Node.Text = value
NotifyPropertyChanged()
End Set
End Property
<[ReadOnly](True), Category("Greifer"), Description("Abmessungen des den Greifer umschließenden Rechtecks"), DisplayName("Abmessungen")>
Public Property Abmessungen As SizeF
Get
Return m_Abmessungen
End Get
Set(value As SizeF)
m_Abmessungen = value
NotifyPropertyChanged()
End Set
End Property
<TypeConverter(GetType(PointFConverter)),
[ReadOnly](False), Category("Greifer"), Description("Position des Greifermittelpunkts bezogen auf Tool0"), DisplayName("Position")>
Public Property GripperPosition As PointF
Get
Return m_GripperPosition
End Get
Set(value As PointF)
m_GripperPosition = value
NotifyPropertyChanged()
End Set
End Property
<[Browsable](False)>
Public Property Node As TreeNode
Get
Return m_Node
End Get
Set(value As TreeNode)
m_Node = value
NotifyPropertyChanged()
End Set
End Property
<[ReadOnly](True), Category("Greifer"), Description("Auflistung der Saugergruppen"), DisplayName("Saugergruppen Auflistung")>
Public ReadOnly Property SaugerGroups As BindingList(Of SaugerGroup)
Get
Return m_SaugerGroups
End Get
End Property
<[ReadOnly](True), Category("Greifer"), Description("Anzahl der dem Greifer zugeordneten Gruppen"), DisplayName("Anzahl Gruppen")>
Public ReadOnly Property GroupCount As Integer
Get
Return m_GroupCount
End Get
End Property
<[ReadOnly](True), Category("Greifer"), Description("Anzahl der dem Greifer zugeordneten Sauger"), DisplayName("Anzahl Sauger")>
Public Property SaugerCount As Integer
Get
Return m_SaugerCount
End Get
Set(value As Integer)
m_SaugerCount = value
NotifyPropertyChanged()
End Set
End Property
''' <summary>
''' Positioin des den Greifer umschließenden Rechtecks
''' Angegeben wird der linke- obere Punkt des Rechtecks
''' </summary>
''' <returns></returns>
<TypeConverter(GetType(PointFConverter)), [Browsable](False)>
Public Property GripperRectanglePosition As PointF
Get
Return m_GripperRectanglePosition
End Get
Set(value As PointF)
m_GripperRectanglePosition = value
End Set
End Property
''' <summary>
''' Positioin des den Greifer umschließenden Rechtecks
''' Angegeben wird der linke- obere Punkt des Rechtecks
''' </summary>
''' <returns></returns>
<[ReadOnly](False), Category("Greifer"), Description("Zur Berücksichtigender Rand zwischen Greiferaußenkante und äußerstem Greifer" & vbCrLf & "Wert > 0!"), DisplayName("Greifer Rand")>
Public Property GreiferRand As SizeF
Get
Return m_GreiferRand
End Get
Set(value As SizeF)
If value.Width = 0 Then
value.Width = 1
ElseIf value.Height = 0 Then
value.Height = 1
End If
m_Abmessungen = m_Abmessungen + value
m_GreiferRand = value
NotifyPropertyChanged()
End Set
End Property
<[Browsable](False)>
Public Property IsAuswahl As Boolean
Get
Return m_isAuswahl
End Get
Set(value As Boolean)
m_isAuswahl = value
End Set
End Property
Public Sub New()
imgList1.Images.Add("Greifer.jpg", My.Resources.Greifer)
imgList1.Images.Add("Sauger.jpg", My.Resources.Sauger)
imgList1.Images.Add("Gruppe.jpg", My.Resources.Gruppe)
m_Node.Name = m_Name
m_Node.ImageKey = "Greifer.jpg"
m_Node.SelectedImageKey = "Greifer.jpg"
m_GreiferRand = New SizeF(40, 40)
End Sub
Public Sub AddSaugerGroup(newSaugerGroup As SaugerGroup)
m_SaugerGroups.Add(newSaugerGroup)
m_Node.Nodes.Add(newSaugerGroup.Node)
m_GroupCount = m_SaugerGroups.Count
End Sub
Public Sub RemoveSauger(SaugerGroup As SaugerGroup)
m_SaugerGroups.Remove(SaugerGroup)
m_Node.Nodes.Remove(SaugerGroup.Node)
m_GroupCount = m_SaugerGroups.Count
End Sub
Public Sub ClearGroups()
m_SaugerGroups.Clear()
m_Node.Nodes.Clear()
m_GroupCount = m_SaugerGroups.Count
End Sub
Private Sub NameHasChanged() Handles Me.Name_Changed
Me.Node.Text = m_Name
End Sub
Private Sub NodeHasChanged() Handles Me.Node_Changed
m_Name = Me.Node.Text
End Sub
Public Sub Save(ByVal Pfad As String)
'Serialize object to a text file.
Dim ser As New Serializer()
Serializer.Serialize(Of Gripper)(Pfad, Me)
End Sub
Public Shared Function Load(dataPath As String) As Gripper
' Dadurch, dass die Klasse "Sub New()" aufweist, kann die
' Serializer-Klasse, wenn keine Datei vorhanden ist,
' eine DefaultInstance zurückgeben.
Return Serializer.DeSerialize(Of Gripper)(dataPath)
End Function
Private Sub GroupListChanged() Handles m_SaugerGroups.ListChanged
'sender As Object, e As Object Dim eventArgs
'MsgBox("Greifer Zeile geändert")
End Sub
End Class

, SaugerGroup

Spoiler anzeigen

Quellcode

<Serializable()>
Public Class SaugerGroup
'Implements IComponent 'Inherits TypeConverter '(Of PropertySort)
Implements INotifyPropertyChanged
Private m_Name As String
Private m_Abmessungen As SizeF
Private m_GroupPosition As PointF
Private m_SaugerCount As Integer
Private m_Node As New TreeNode
Private m_Parent As Gripper
Private m_isAuswahl As Boolean
Private m_GroupColor As New Color
Private WithEvents m_SaugerList As New BindingList(Of SaugerData)
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
' This method is called by the Set accessor of each property.
' The CallerMemberName attribute that is applied to the optional propertyName
' parameter causes the property name of the caller to be substituted as an argument.
Private Sub NotifyPropertyChanged(<CallerMemberName()> Optional ByVal propertyName As String = Nothing)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
End Sub
<Category("Greifergruppe"), Description("Informationen zum gesamten Greifer"), DisplayName("Bezeichnung")>
Public Property Name As String
Get
Return m_Name
End Get
Set(value As String)
m_Name = value
m_Node.Text = value
NotifyPropertyChanged()
End Set
End Property
<Category("Greifergruppe"),
Description("Aussenabmessungen der Gruppe in X- Y-Richtung"),
DisplayName("Abmessungen")>
Public Property Abmessungen As SizeF
Get
Return m_Abmessungen
End Get
Set(value As SizeF)
m_Abmessungen = value
NotifyPropertyChanged()
End Set
End Property
''' <summary>
''' Positioin des Mittelunktes der Saugergruppe
''' </summary>
''' <returns></returns>
<TypeConverter(GetType(PointFConverter)),
Category("Greifergruppe"),
Description("Position der Greifergruppe bezogen auf den Greifermittelpunkt"),
DisplayName("Position")>
Public Property GroupPosition As PointF
Get
Return m_GroupPosition
End Get
Set(value As PointF)
m_GroupPosition = value
NotifyPropertyChanged()
End Set
End Property
<[Browsable](False)>
Public Property Node As TreeNode
Get
Return m_Node
End Get
Set(value As TreeNode)
m_Node = value
NotifyPropertyChanged()
End Set
End Property
Public ReadOnly Property SaugerList As BindingList(Of SaugerData)
Get
Return m_SaugerList
End Get
End Property
Public ReadOnly Property SaugerCount As Integer
Get
Return m_SaugerCount
End Get
End Property
''' <summary>
'''Farbe der Sauger in der Darstellung
''' </summary>
''' <returns></returns>
<[Browsable](True),
Category("Greifergruppe"),
Description("Farbe der Sauger in der Darstellung"),
DisplayName("Gruppenfarbe")>
Public Property GroupColor As Color
Get
Return m_GroupColor
End Get
Set(value As Color)
m_GroupColor = value
For Each sa As SaugerData In SaugerList
sa.SaugerColor = value
Next
End Set
End Property
<[Browsable](True)>
Public Property IsAuswahl As Boolean
Get
Return m_isAuswahl
End Get
Set(value As Boolean)
m_isAuswahl = value
End Set
End Property
Public Sub New()
m_Node.ImageKey = "Gruppe.jpg"
m_Node.SelectedImageKey = "Gruppe.jpg"
Dim r As New Random
m_GroupColor = Color.FromArgb(255, r.Next(0, 256), r.Next(0, 256), r.Next(0, 256))
End Sub
Public Sub AddSauger(Sauger As SaugerData)
SaugerList.Add(Sauger)
SaugerList.Last.LaufendeNr = SaugerList.Count
m_SaugerCount = m_SaugerList.Count
m_Node.Nodes.Add(Sauger.Node)
End Sub
Public Function RemoveSauger(Sauger As SaugerData) As Boolean
Dim ListRemove As Boolean
ListRemove = m_SaugerList.Remove(Sauger)
m_SaugerCount = m_SaugerList.Count
m_Node.Nodes.Remove(Sauger.Node)
If ListRemove Then
Return True
Else
Return False
End If
End Function
Public Sub ClearSauger()
m_SaugerList.Clear()
m_Node.Nodes.Clear()
m_SaugerCount = m_SaugerList.Count ' m_SaugerTable.Rows.Count 'm_SaugerList.Count
End Sub
Private Sub SaugerListChanged() Handles m_SaugerList.ListChanged
'sender As Object, e As Object Dim eventArgs
'MsgBox("saugergroup Zeile geändert")
'Abmessungen der Gruppe anpassen
End Sub
Private Sub SaugerGroup_PropertyChanged(sender As Object, e As PropertyChangedEventArgs) Handles Me.PropertyChanged
' MsgBox("SaugerGroup_PropertyChanged")
End Sub
End Class

und SaugerData

Spoiler anzeigen

Quellcode

<Serializable()>
Public Class SaugerData
Implements INotifyPropertyChanged
Private m_Type As String
Private m_laufendeNr As String
Private m_DurchmesserGespannt As Single
Private m_DurchmesserEntspannt As Single
Private m_DurchmesserBohrung As Single
Private m_Hoehe As Single
Private m_zHub As Single
Private m_Saugkraft As Single
Private m_AbreissKraft As Single
Private m_Querkraft As Single
Private m_QuerkraftGeoelt As Single
Private m_Volumen As Single
Private m_WerkstueckRmin As Single
Private m_EmpfSchlauch As Single
Private m_isActive As Boolean
Private m_isComplete As Boolean
Private m_Node As New TreeNode
Private m_SaugerPosition As New PointF
Private m_isAuswahl As Boolean
Private m_State As SaugerState
'Farben
Private m_SaugerColor As New Color
'Strichstärke
Private m_SaugerPenWidth As Integer
Public Event PropertyChanged As PropertyChangedEventHandler Implements INotifyPropertyChanged.PropertyChanged
' This method is called by the Set accessor of each property.
' The CallerMemberName attribute that is applied to the optional propertyName
' parameter causes the property name of the caller to be substituted as an argument.
Private Sub NotifyPropertyChanged(<CallerMemberName()> Optional ByVal propertyName As String = Nothing)
RaiseEvent PropertyChanged(Me, New PropertyChangedEventArgs(propertyName))
End Sub
'Private m_TableRow As DataRow
<[ReadOnly](True), Category("Sauger"),
Description("Saugertypenbezeichnung lt. Katalog" & vbCrLf & "Read Only!"),
DisplayName("Type")>
Public Property Type As String
Get
Return m_Type
End Get
Set(value As String)
m_Type = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Außendurchmesser des Saugers im angesaugtem Zustand"),
DisplayName("D Außen gespannt [mm]" & vbCrLf & "Read Only!")>
Public Property DaussenAngesaugt As Single
Get
Return m_DurchmesserGespannt
End Get
Set(value As Single)
m_DurchmesserGespannt = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
DisplayName("D Außen entspannt [mm]"),
Description("Außendurchmesser des Saugers im nicht angesaugtem Zustand" & vbCrLf & "Read Only!")>
Public Property dAussenEntspannt As Single
Get
Return m_DurchmesserEntspannt
End Get
Set(value As Single)
m_DurchmesserEntspannt = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
DisplayName("D Bohrung [mm]"),
Description("Durchmesser der Bohrung, durch welche das Vakuum eingebracht wird" & vbCrLf & "Read Only!")>
Public Property DurchmesserBohrung As Single
Get
Return m_DurchmesserBohrung
End Get
Set(value As Single)
m_DurchmesserBohrung = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Höhe des Saugers (ohne Ventil)" & vbCrLf & "Read Only!"),
DisplayName("Höhe [mm]")>
Public Property Hoehe As Single
Get
Return m_Hoehe
End Get
Set(value As Single)
m_Hoehe = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Hub des Saugers beim Ansaugen in Z-Richtung" & vbCrLf & "Read Only!"),
DisplayName("Z-Hub [mm]")>
Public Property zHub As Single
Get
Return m_zHub
End Get
Set(value As Single)
m_zHub = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Empfohlener Schlauchdurchmesser lt. Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("empf. Schlauch D [mm]")>
Public Property EmpfSchlauch As Single
Get
Return m_EmpfSchlauch
End Get
Set(value As Single)
m_EmpfSchlauch = value
End Set
End Property
<[ReadOnly](True), Category(" Saug- Eigenschaften"),
Description("Saugkraft laut Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("Saugkraft [N]")>
Public Property Saugkraft As Single
Get
Return m_Saugkraft
End Get
Set(value As Single)
m_Saugkraft = value
End Set
End Property
<[ReadOnly](True), Category(" Saug- Eigenschaften"),
Description("Abreisskraft laut Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("Abreisskraft [N]")>
Public Property AbreissKraft As Single
Get
Return m_AbreissKraft
End Get
Set(value As Single)
m_AbreissKraft = value
End Set
End Property
<[ReadOnly](True), Category(" Saug- Eigenschaften"),
Description("Querkraft laut Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("Querkraft Kraft [N]")>
Public Property Querkraft As Single
Get
Return m_Querkraft
End Get
Set(value As Single)
m_Querkraft = value
End Set
End Property
<[ReadOnly](True), Category(" Saug- Eigenschaften"),
Description("Querkraft auf geölten Oberflächen laut Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("Querkraft Kraft geölt [N]")>
Public Property QuerkraftGeoelt As Single
Get
Return m_QuerkraftGeoelt
End Get
Set(value As Single)
m_QuerkraftGeoelt = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Volumen laut Datenblatt" & vbCrLf & "Read Only!"),
DisplayName("Volumen [cm³]")>
Public Property Volumen As Single
Get
Return m_Volumen
End Get
Set(value As Single)
m_Volumen = value
End Set
End Property
<[ReadOnly](True), Category(" Abmessungen"),
Description("Min. Werkstückradius" & vbCrLf & "Read Only!"),
DisplayName("Min. Werkstückradius (konvex) [cm³]")>
Public Property WerkstueckRmin As Single
Get
Return m_WerkstueckRmin
End Get
Set(value As Single)
m_WerkstueckRmin = value
End Set
End Property
<[Browsable](False)>
Public Property IsActive As Boolean
Get
Return m_isActive
End Get
Set(value As Boolean)
m_isActive = value
End Set
End Property
<[Browsable](False)>
Public ReadOnly Property IsComplete As Boolean
Get
Return m_isComplete
End Get
End Property
<[Browsable](False)>
Public Property Node As TreeNode
Get
Return m_Node
End Get
Set(value As TreeNode)
m_Node = value
End Set
End Property
<[ReadOnly](True), Category("Sauger"),
Description("Saugernummer in der zugeordneten Gruppe" & vbCrLf & "Read Only!"),
DisplayName("Nummer")>
Public Property LaufendeNr As String
Get
Return m_laufendeNr
End Get
Set(value As String)
m_laufendeNr = value
End Set
End Property
<TypeConverter(GetType(PointFConverter)),
[ReadOnly](False), Category("Sauger"),
Description("Saugerposition in Bezug auf den Mittelpunkt der übergeordneten Gruppe"),
DisplayName("Position")>
Public Property SaugerPosition As PointF
Get
Return m_SaugerPosition
End Get
Set(value As PointF)
m_SaugerPosition = value
NotifyPropertyChanged()
End Set
End Property
<[Browsable](True)>
Public Property State As SaugerState
Get
Return m_State
End Get
Set(value As SaugerState)
m_State = value
End Set
End Property
<[Browsable](False), Category("Sauger"),
Description("Saugerfarbe in der Darstellung" & vbCrLf & "Read Only!"),
DisplayName("Saugerfarbe")>
Public Property SaugerColor As Color
Get
Return m_SaugerColor
End Get
Set(value As Color)
m_SaugerColor = value
End Set
End Property
<[Browsable](False)>
Public Property SaugerPenWidth As Integer
Get
Return m_SaugerPenWidth
End Get
Set(value As Integer)
m_SaugerPenWidth = value
End Set
End Property
<[Browsable](False)>
Public Property IsAuswahl As Boolean
Get
Return m_isAuswahl
End Get
Set(value As Boolean)
m_isAuswahl = value
End Set
End Property
Public Sub New()
End Sub
Public Sub New(isActive As Boolean, Sauger_Type As String, Sauger_DurchmesserGespannt As Single, Sauger_DurchmesserEntspannt As Single, Sauger_DurchmesserBohrung As Single, Sauger_Hoehe As Single,
Sauger_zHub As Single, Sauger_Saugkraft As Single, Sauger_AbreissKraft As Single, Sauger_Querkraft As Single, Sauger_QuerkraftGeoelt As Single,
Sauger_Volumen As Single, Sauger_WerkstueckRmin As Single, Sauger_EmpfSchlauch As Integer, parent As SaugerGroup)
m_isActive = isActive
m_Type = Sauger_Type
m_DurchmesserGespannt = Sauger_DurchmesserGespannt
m_DurchmesserEntspannt = Sauger_DurchmesserEntspannt
m_DurchmesserBohrung = DurchmesserBohrung
m_Hoehe = Sauger_Hoehe
m_zHub = Sauger_zHub
m_Saugkraft = Sauger_Saugkraft
m_AbreissKraft = Sauger_AbreissKraft
m_Querkraft = Sauger_Querkraft
m_QuerkraftGeoelt = Sauger_QuerkraftGeoelt
m_Volumen = Sauger_Volumen
m_WerkstueckRmin = Sauger_WerkstueckRmin
m_EmpfSchlauch = Sauger_EmpfSchlauch
m_isComplete = True
m_Node.Text = m_Type
m_Node.ImageKey = "Sauger.jpg"
m_Node.SelectedImageKey = "Sauger.jpg"
MsgBox("DataRow wurde im SaugerData nicht erstellt! Code Einfügen")
End Sub
Public Sub New(datRow As DataRow, dbTable As DataTable)
Dim ColName As String
Dim ColVal As Object
Dim ValType As Type
Dim isNotComplete As Boolean = False
Dim pInfos As Reflection.PropertyInfo() = Me.GetType.GetProperties((Reflection.BindingFlags.GetProperty Or (Reflection.BindingFlags.Public Or Reflection.BindingFlags.Instance)))
Dim pInfo As Reflection.PropertyInfo
For Each col As DataColumn In dbTable.Columns
'Methodennamen auslesen
ColName = TryCast(col.ColumnName, String)
'Datentyp der Methode
pInfo = pInfos.Where(Function(x) x.Name = ColName).First
ValType = pInfo.PropertyType
ColVal = Nothing
Select Case ValType.Name
Case "String"
ColVal = TryCast(datRow(ColName), String)
Case "Boolean"
Boolean.TryParse(datRow(ColName), ColVal)
Case "Single"
Single.TryParse(datRow(ColName), ColVal)
End Select
If Not (ColName = Nothing And ColVal = Nothing) Then
'CallByName(Me, col.ColumnName, CallType.Set, datRow(col))
CallByName(Me, ColName, CallType.Set, ColVal)
Else
isNotComplete = True
End If
Next
m_Node.Text = m_Type
m_Node.ImageKey = "Sauger.jpg"
m_Node.SelectedImageKey = "Sauger.jpg"
'Objekt in den Tag schreiben, möglicherweise klonen?!
m_Node.Tag = Me
If Not isNotComplete Then m_isComplete = True
End Sub
End Class

Danke und LG
Gü

RodFromGermany · 16. September 2016, 12:22

@GuentherA Teste mal dieses absolut simple Beispiel, hier mit XML-Serialisierung:

Serialisierer

VB.NET-Quellcode

Imports System.IO
Imports System.Xml.Serialization
Imports System.Text
Public Class MainLanguage
Public Property Language() As String
Get
Return m_Language
End Get
Set(value As String)
m_Language = value
End Set
End Property
Private m_Language As String
Public Sub New()
Me.Language = ""
End Sub
End Class
NotInheritable Class LanguageSerialization
Private Sub New()
End Sub
Public Shared Sub Save(language As MainLanguage)
Dim file As String = "c:\temp\lang.xml"
Dim fi As New FileInfo(file)
fi.Directory.Create()
' Serialize object to a XML file.
Using sw As New StreamWriter(file, False, Encoding.[Default])
Dim x As New XmlSerializer(language.[GetType]())
x.Serialize(sw, language)
End Using
End Sub
Public Shared Function Load() As MainLanguage
Dim language = New MainLanguage()
Try
Dim file As String = "c:\temp\lang.xml"
' Deserialize XML file to a new object.
Using sr As New StreamReader(file, Encoding.[Default])
Dim x As New XmlSerializer(language.[GetType]())
language = DirectCast(x.Deserialize(sr), MainLanguage)
End Using
Catch
' nix tun, die Settings-Instanz ist nicht valid
End Try
Return language
End Function
End Class

Aufruf

ErfinderDesRades · 16. September 2016, 12:31

Ah - Objekte mit Events kann man nicht serialisieren.
Wenn da ein irgendwo in einer Klasse das PropertyChangedEvent abonniert ist, dann hinterlässt das einen Eintrag im Gripper, der dann mit-serialisiert zu werden versucht.

die Events also mit <NonSerialized> attributieren.

GuentherA · 16. September 2016, 12:36

//EDIT:
Den Smilie kann ich garnicht so oft wiederholen wie ich gern würde!!!! :thumbsup:

Die Public Events warens! Jetzt klappts!

1000 Dank an den ErfinderDesRades

Und natürlich auch ein riesen Dankeschön an alle anderen die mich da unterstützt haben!

Danke und bis bald

LG
Günther

ErfinderDesRades schrieb:

Ah - Objekte mit Events kann man nicht serialisieren.
Wenn da ein irgendwo in einer Klasse das PropertyChangedEvent abonniert ist, dann hinterlässt das einen Eintrag im Gripper, der dann mit-serialisiert zu werden versucht.

die Events also mit <NonSerialized> attributieren.

Aha.... Betrifft das in meinem speziellen Fall die Events die ich definiert habe, also zb. in der Klasse Gripper das PropertyChanged, oder auch die BindingList die ich mit mit WithEvents initialisiere? Das wäre nämlich blöd. Der Inhalt muss nämlich serialisiert werden.

Riesen Danke auf jeden Fall schon mal - kommen der Sache offensichtlich näher!

LG Gü

ErfinderDesRades · 16. September 2016, 13:07

GuentherA schrieb:

Betrifft das in meinem speziellen Fall die Events ... auch die BindingList

Keine ahnung - eigentlich schon - aber eine etwas andere Problematik.
Aber wenns jetzt funktioniert, dann wohl nicht.

Serialisierung und Deserialisierung eines Objekts aus einer DLL

Serialisierung und Deserialisierung eines Objekts aus einer DLL

Quellcode

Quellcode

Quellcode

XML-Quellcode

GuentherA schrieb:

Quellcode

Na das geht ja echt schnell! :) Danke für deine Antwort Rod!

Quellcode

Quellcode

ErfinderDesRades schrieb:

Quellcode

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

ErfinderDesRades schrieb:

GuentherA schrieb:

Ähnliche Themen

4 Benutzer haben hier geschrieben