Daten eines Structure-Arrays serialisieren?

dive26 · 22. November 2013, 17:57

Hallo Leute!

Ich stehe vor der Herausforderung eine Datenstruktrur als einzelnen Stream (String) über TCP-Socket zu versenden.

Beispiel:

VB.NET-Quellcode

Structure TestStruct
Dim ID as integer
Dim Name as String
Dim Status as Boolean
...
End Structure
Dim EinzelnerDatensatz as TestStruct
Dim MehrfacherDatensatz(100) as TestStruct

Nun möchte ich

a) Den kompletten Inhalt von "EinzelnerDatensatz" serialisieren
b) Den kompletten Inhalt der Mehrdimensionalen Struktur "MehrfacherDatensatz" serialisieren

Also Daten auf einem Gerät in einen "sendbaren" String verwandeln und am anderen Gerät die Daten wieder in die Structure "schreiben".

Geht auch ein mehrdimensionales Feld zu serializieren (und wenn ja wie) oder muss ich mir da selbst per Schleife einen "String" zur Übergabe "basteln"?

LG Roland

Artentus · 22. November 2013, 18:00

Muss es denn String sein? Wenn dus binär serialisieren würdest, wärs um einiges einfacher.

~blaze~ · 22. November 2013, 18:03

Hi
warum muss es ein String sein? TCP erwartet Bytes, Structures und alle sonstigen Daten sind Bytes, also warum nicht zu solchen serialisieren oder Serialisierung nur als optionale Codierung der Daten verwenden?
Interessant in diesem Zusammenhang könnte auch der Artikel von mir sein:
[C#] Versenden von Objekten über TCP

Gruß
~blaze~

dive26 · 22. November 2013, 18:30

String wäre praktisch, da ich diese Daten mit anderen Informationen zuerst in einen String verpacke und den dann in Bytes umwandle. Im Beispielcode sollte dort <xml irgendwas>.....</xml> steht die Daten der Structur hin. Ob das im Format <xml ... oder "00110010010" ist, ist eigentlich egal. Als String wäre es einfach zu handhaben.

Die Daten sollen in diesem Format gesendet werden: (hinter dem Tag "Data" steht dann die Struktur in einem String):

VB.NET-Quellcode

TCPSendeString="#DATARETURN|USER=22|TABLE=8|DATA=<xml irgendwas>.....</xml>|#"
Dim msg As [Byte]() = System.Text.Encoding.ASCII.GetBytes(TCPSendeString)
stream.Write(msg, 0, msg.Length)

Wenn es einfacher ist das ganze in bytes umzuwandeln: wäre folgendes möglich:?

VB.NET-Quellcode

Dim ErsterTeil As [Byte]() = System.Text.Encoding.ASCII.GetBytes("#DATARETURN|USER=22|TABLE=8|DATA=")
ZweiterTeil=xxxx 'hier die Structure in bytes einfügen
Dim DritterTeil As [Byte]() = System.Text.Encoding.ASCII.GetBytes("|#" )
'hier die drei byteinformationen aneinanderreihen und dann senden

Danke für den Link, aber mit C kenne ich mich leider überhaupt nicht aus.

LG Roland

Artentus · 22. November 2013, 18:40

Die Sachen vorher lassen sich aber eigentlich auch leichter Binär darstellen, sind ja bloß zwei Zahlen und eine Kennung (die man auch als Zahl senden könnte).
Bei der Binären Serialisierung hast du halt den Vorteil, dass du einfach das Serializable-Attrubut auf die Klasse anwenden brauchst und der Rest wird dir praktisch komplett abgenommen.

Das in dem Link ist übriges kein C, sondern C#, also eigentlich genau das selbe wie VB.

dive26 · 22. November 2013, 18:50

Ich glaube ich habe einen Lösungsansatz gefunden:

VB.NET-Quellcode

<Serializable()> _
Public Structure BedienerStructure
Dim Benutzer_ID As Integer
Dim Name As String
Dim BildschirmName As String
Dim AnmeldeCode1 As String
.....
Dim IstNurManager As Boolean
Dim LetzteAenderung As DateTime
End Structure
Public Bediener(501) As BedienerStructure

Nur den ersten Datensatz Bediener(1) :

VB.NET-Quellcode

Dim bytes(1024 * 1024) As [Byte]
bytes = SerializeObject(Bediener(1))
MsgBox(bytes.Length.ToString) 'gibt die Länge der Bytes aus
Dim DatenString as String =Convert.ToBase64String(bytes) 'gibt die Bytes als String aus
TCPSendeString="#DATARETURN|USER=22|TABLE=8|DATA="+ DatenString +"|#"

Die komplette Structur Bediener :

VB.NET-Quellcode

Dim bytes(1024 * 1024) As [Byte]
bytes = SerializeObject(Bediener)
MsgBox(bytes.Length.ToString) 'gibt die Länge der Bytes aus
Dim DatenString as String =Convert.ToBase64String(bytes) 'gibt die Bytes als String aus
TCPSendeString="#DATARETURN|USER=22|TABLE=8|DATA="+ DatenString +"|#"

Das wichtigste hätte ich glatt vergessen:

VB.NET-Quellcode

Public Function SerializeObject(ByVal What As Object) As Byte()
Dim MemStream As New MemoryStream
Dim BinWriter As New BinaryWriter(MemStream)
Dim BinFormatter As New BinaryFormatter
BinFormatter.Serialize(BinWriter.BaseStream, What)
BinWriter.Close()
Return MemStream.ToArray
End Function

Und zurück gehts dann natürlich auch wieder:

VB.NET-Quellcode

Public Function DeSerializeObject(ByVal What() As Byte) As Object
Dim MemStream As New MemoryStream(What)
Dim BinFormatter As New BinaryFormatter
Dim RetObj As Object = BinFormatter.Deserialize(MemStream)
MemStream.Close()
Return RetObj
End Function

Hab testweise probiert Bediener(1) mit dieser Methode in bytes>string>bytes nach Bediener(10) zu kopieren (nur Testweise).
Hat funktioniert.
Da das ursprünglich geplante direkte Auslesen von Accessdateien von der Kasse via PDA nicht funktioniert und ich über dieses "geile" TCP gestolpert bin (mit dem ich zuvor noch nie etwas zu tun hatte), werde ich nun die komplette Kommunikation über TCP abwickeln und nicht gemischt mit XML-Dateien die über das Dateisystem gelesen werden.

dive26 · 1. September 2014, 17:11

Hallo Leute,

dieser Thread ist schon etwas älter und ich dachte damals die Lösung meiner Aufgabe bereits gefunden zu haben. Leider ist dem nicht so.

Das Problem: auf dem .NET Compact Framework gibt es keinen BinaryFormatter. Somit kann ich die binären Dateien nicht wieder in Structure zurückverwandlen.

Ursprünglich dachte ich an das (DeSerializeObject und SerializeObject wurden oben schon gepostet):

VB.NET-Quellcode

'hin
Dim bytes(2048 * 2048) As [Byte]
bytes = SerializeObject(PDABediener)
XMLSendString = Convert.ToBase64String(bytes) 'gibt die Bytes als String aus
'Zurück
Dim bytes(2048 * 2048) As [Byte]
bytes = Convert.FromBase64String(Empfangsdaten.DATA)
PDABediener = DeSerializeObject(bytes)

Das kann ich mir nun abschminken, da es im .NET Compact Framework keinen BinaryFormatter gibt.

Bei den paar Daten könnte ich die Infos auch mit Trennzeichen in einen String verpacken und übermitteln. Das wäre nicht unüberwindbar.

Wie aber kann ich dann Bilder über TCP-IP übertragen?
Also eine Image-Datei die im Speicher auf dem Rechner vorliegt auf den PDA übertragen und dort in einer Picturebox anzeigen.?

LG Roland

nafets3646 · 1. September 2014, 17:39

Du kannst ein Image-Objekt in einen Stream rein abspeichern. Da könntest du dann deinen TCP-Stream über geben oder einen MemoryStream, aus welchem du dann die Bytes ausliehst.

dive26 · 1. September 2014, 17:50

Gibt es auch irgend eine Möglichkeit per TCP-IP komplette Dateien von einem Windows Rechner auf den Pocket-PC zu übertragen und dort einfach als Datei zu speichern. Diese kann dann ja von der .NET Compact Framework anwendung geladen werden. Wenn das irgendwie einfacher ginge ...

MemoryStream, aus welchem du dann die Bytes ausliehst.

Gerade das geht ja nicht, da es keinen BinaryFormatter in .NET CF gibt!!

RodFromGermany · 1. September 2014, 18:18

dive26 schrieb:

komplette Dateien

musst Du ganz oder blockweise (je nach Größe) als Bytearray senden und empfangen.

dive26 · 1. September 2014, 18:52

Danke Rod, habe ich befürchtet.

Ich bin nun auch mit der Übertragung einer Structure einen Schritt weiter, hoffe aber dass mir das .NET CF keinen Strich durch die Rechnung macht.

Ich kann zumindest nun eine Struktur in einen XML-String umwandeln und per TCP an den PDA senden.
Dort liegt mir nun auch der exakte XML-String vor.

VB.NET-Quellcode

Dim MemStream As New MemoryStream
'PDABediener ist eine Structure
SerializeXml(MemStream, PDABediener)
XMLSendString = Encoding.ASCII.GetString(MemStream.ToArray())

Wie kann ich nun auf der .NET Compact Framework Seite diesen Vorgang umkehren und diesen XML-String wieder in einen MemoryStream zurückverwandeln und dann mit DeserializeXML in die Struktur PDABediener zurückschreiben ?

Ich muss jetzt mal was essen gehen, bin total wuschi im Kopf.

LG Roland

nafets3646 · 1. September 2014, 18:57

dive26 schrieb:

Gerade das geht ja nicht, da es keinen BinaryFormatter in .NET CF gibt!!

Laut MSDN gibt es den MemoryStream im .NET Compact Framework. Ich meinte sowas:

Quellcode

Using MemoryStream ms = New MemoryStream()
MyImage.Save(ms)
Dim bytes as Byte() = ms.ToArray()
Ende Using

Oder halt so:

Quellcode

MyImage.Save(MyTcpStream)

Das hat doch alles nichts mit dem BinaryFormatter zu tun und müsste daher gehen, oder?

dive26 · 1. September 2014, 19:04

Das eine ist ein Bild zu übertragen (danke für den Tipp) und das andere ist eine komplette Structure zu übertragen (daran scheitere ich zur Zeit).

Das ist die Structur, die auf Host (PC) und Client (PDA) zur Verfügung steht

VB.NET-Quellcode

<Serializable()> _
Public Structure BedienerStructure
Dim Benutzer_ID As Integer
Dim Name As String
Dim AnmeldeCode1 As String
Dim AnmeldeCode2 As String
Dim AnmeldeCode3 As String
Dim BenutzerBild_memo As String 'serialisiertes Bild
Dim Finger1_memo As String 'serialisierte biometrische Daten
Dim Finger2_memo As String 'serialisierte biometrische Daten
Dim Finger3_memo As String 'serialisierte biometrische Daten
Dim gesperrt As Boolean
Dim ManagerRecht As Boolean
Dim StornoRecht As Boolean
Dim PreisAenderungsRecht As Boolean
Dim TagesAbschlussRecht As Boolean
Dim MonatsAbschlussRecht As Boolean
Dim BerichteRecht As Boolean
Dim LagerzugangsRecht As Boolean
Dim TischrueckholungsRecht As Boolean
Dim ArtikelAenderungsRecht As Boolean
Dim BenutzerSetupRecht As Boolean
Dim UmsatzanzeigeRecht As Boolean
Dim AlleTischnummernRecht As Boolean
Dim Sonderberechtigung1 As Boolean
Dim Sonderberechtigung2 As Boolean
Dim Sonderberechtigung3 As Boolean
Dim Revierzwang As Boolean
Dim RevierzwangVonTisch As Integer
Dim RevierzwangBisTisch As Integer
Dim SofortstornoVerbieten As Boolean
Dim ArbeitsZeitAngemeldet As Boolean
Dim IstNurManager As Boolean
Dim LetzteAenderung As DateTime
Dim Provision As Double
End Structure
Public PDABediener As BedienerStructure

Folgender Code bringt dann das im Anhang zu sehende Ergebnis. Dieser XML-String liegt mir nun auch schon am PDA vor. Dort sollen nun die XML-Informationen wieder in die Structure kopiert werden. Daran scheitere ich gerade.

VB.NET-Quellcode

Dim MemStream As New MemoryStream
SerializeXml(MemStream, PDABediener)
XMLSendString = Encoding.ASCII.GetString(MemStream.ToArray())
MsgBox(XMLSendString)
''' <summary>
''' Extension zur XML Serialisierung und Speicherung von komplexen Objekt-Structuren in eine Datei
''' </summary>
''' <param name="strm">FileStream</param>
''' <param name="obj">Objekt</param>
''' <remarks></remarks>
<Extension()> _
Public Sub SerializeXml(ByVal strm As Stream, ByVal obj As Object)
Call (New XmlSerializer(obj.GetType)).Serialize(strm, obj)
End Sub

nafets3646 · 1. September 2014, 19:07

Ich weiß nicht, ob es möglich ist, System.Reflection zu verwenden - wenn ja, ließe sich damit auf jeden Fall eine (generische) Möglichkeit bauen, mit welcher man Structures serialisieren kann.

dive26 · 2. September 2014, 12:05

Ich glaube ich bin nah an der Lösung dran, die auch auf .NET CF funktioni:

VB.NET-Quellcode

Dim Ptr As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(PDABediener))
Dim ByteArray(Marshal.SizeOf(PDABediener) - 1) As Byte
Marshal.StructureToPtr(PDABediener, Ptr, False)
Marshal.Copy(Ptr, ByteArray, 0, Marshal.SizeOf(PDABediener))
Marshal.FreeHGlobal(Ptr)
'hier liegen die Daten in ByteArray und müssen nur in einen String umgewandelt werden
'???????
'hier liegen die Daten in einem String und müssen nur noch in ein Bytarray zurückverwandelt werden
'???????
'Und wieder zurück
Dim Ptr1 As IntPtr = Marshal.AllocHGlobal(Marshal.SizeOf(PDABediener))
Dim ByteArray1(Marshal.SizeOf(PDABediener) - 1) As Byte
Marshal.StructureToPtr(PDABediener, Ptr1, False)
Marshal.Copy(Ptr1, ByteArray1, 0, Marshal.SizeOf(PDABediener))
Dim Ptr2 As IntPtr = Marshal.AllocHGlobal(ByteArray1.Length)
Marshal.Copy(ByteArray1, 0, Ptr2, ByteArray1.Length)
Dim PDABediener2 As New BedienerStructure
PDABediener2 = DirectCast(Marshal.PtrToStructure(Ptr2, GetType(BedienerStructure)), BedienerStructure)
PDABediener = PDABediener2
MsgBox(PDABediener.Name)
Marshal.FreeHGlobal(Ptr)

Ich brauche nun nur noch eine Lösung wie ich das vorhandene ByteArray in einen String umwandeln kann und auch wieder zurück.
Ist sicher einfach, ich komme nur grad nicht dahinter.

LG Roland

RodFromGermany · 2. September 2014, 12:18

dive26 schrieb:

in einen String umwandeln

So:

VB.NET-Quellcode

Dim by() As Byte = {51, 52, 53, 54, 55, 56}
Dim txt = System.Text.Encoding.Default.GetString(by)
MessageBox.Show(txt)
Dim bb() As Byte = System.Text.Encoding.Default.GetBytes(txt)

dive26 · 2. September 2014, 12:43

Danke Rod,
also eh so einfach

.

leider habe ich gerade bemerkt, dass

VB.NET-Quellcode

Marshal.StructureToPtr(PDABediener, Ptr1, False)

auf .NET Compact Framework einen undefinierten Ausnahmefehler bringt.

Muss also wieder eine weitere (andere) Lösung suchen.

Irgendwie muss es doch möglich sein den Inhalt einer Structure in String zu wandeln und auf CF wieder von String in Structure zurückzuschreien. Ich habe schon so viele Lösungsansätze versucht, immer macht mir CF einen Strich durch die Rechnung weil entsprechende Funktionen dort einfach nicht vorhanden sind.

LG Roland

RodFromGermany · 2. September 2014, 12:58

dive26 schrieb:

Ausnahmefehler

Ich hab Deinen Code nicht vollständig durchgesehen, vielleicht gugst Du mal hier ob der korrekten Marshal-Verwendung.

Daten eines Structure-Arrays serialisieren?

Daten eines Structure-Arrays serialisieren?

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

VB.NET-Quellcode

dive26 schrieb:

Quellcode

Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

VB.NET-Quellcode

VB.NET-Quellcode

dive26 schrieb:

Ähnliche Themen

5 Benutzer haben hier geschrieben