Serialisieren/Deserialisieren eines zweidimensionalen Arrays

Question

Aus irgendeinem Grund wurde meine vorherige Frage als zu vage betrachtet. Lass mich genauer sein.

Ich habe ein zweidimensionales Array des Typs single. Ich möchte es serialisieren, um in einer Access-Datenbank zu speichern.

Der Vorschlag war, es als Memo-Feld zu speichern, das ist in Ordnung. Ich möchte später das Feld Memo lesen und deserialisieren, um das ursprüngliche Array abzurufen. Ich habe ausführlich im Internet und hier gesucht und kann die Antwort nicht finden. Ich glaube, dass ich das Array korrekt serialisiere, aber nicht weiß, wie man es deserialisiert.

Dieser Code erscheint für die Serialisierung zu arbeiten, aber ich kann nicht herausfinden, wie man deserialisieren:

Dim f As New System.Runtime.Serialization.Formatters.Binary.BinaryFormatter 
Dim ms As New MemoryStream 
f.Serialize(ms, arLHS) 
Dim byArr As Byte() = ms.ToArray 

ich dann auf das Memo-Feld speichern byArr.

Bitte geben Sie Beispielcode ein.

Answer 1

Sie können es über Base64-Wandler deserialisieren:

Dim str_b64 As String = Convert.ToBase64String(byArr) 
Dim ms2 As New MemoryStream(Convert.FromBase64String(str_b64)) 
Dim intArr2(,) As Int32 = f.Deserialize(ms2) 

Diese etwas umständlich aussehen, aber es funktioniert - in einer Konsolenanwendung in VS 2010

Kredit geht here getestet. Über diesen Link können Sie auch die Vollversion des Codes zum Spielen finden.

Answer 2

Ich habe den Datentyp des Feldes Zugriff von Memo zu OLE-Objekt geändert und das scheint zu funktionieren. Wenn ich die Daten in Access sehen es sagt mir, ist das Feld „Lange Binärdaten“ und ich konnte den folgenden Code verwenden, nachdem die Aufzeichnung von Access zu lesen:

Dim f As New System.Runtime.Serialization.Formatters.BinaryFormatter
Dim byArr As Byte()
byArr = DirectCast(dtLHS.Rows(0).Item("LHS"), Byte())
Dim theArrayAsString As String = Convert.ToBase64String(byArr)
Dim ms2 As New MemoryStream(Convert.FromBase64String(theArrayAsString))
Dim newLHS(,) as single = f.Deserialize(ms2)

dies richtig ist?