Szereguj/Deserializuj dwuwymiarową tablicę

Question

Z jakiegoś powodu moje poprzednie pytanie zostało uznane za zbyt ogólnikowe. Więc pozwól mi być bardziej konkretnym.

Mam dwuwymiarową tablicę typu singiel. Chcę serializować go, aby zapisać w bazie danych programu Access.

Propozycja polegała na zapisaniu go jako pola Memo, które jest w porządku. Chcę później odczytać pole Memo i deserializować go, aby pobrać oryginalną tablicę. Mam obszerne wyszukiwanie w Internecie i tutaj i nie mogę znaleźć odpowiedzi. Wydaje mi się, że poprawnie szereguję tablicę, ale nie wiem, jak ją przekształcić.

Kod ten wydaje się działać dla szeregowania, ale nie mogę dowiedzieć się, jak deserializowania:

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 

I następnie zapisać byArr do pola Memo.

Proszę podać przykładowy kod.

Answer 1

Można deserializować go poprzez konwerter base64:

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

To może wyglądać nieco niewygodne, ale to działa - testowane w aplikacji konsoli w VS 2010.

zasługa here. Za pomocą tego linku możesz również znaleźć pełną wersję kodu do gry.

Answer 2

Zmieniłem typ danych pola Dostęp z notatki na obiekt OLE i to wydaje się działać. Kiedy patrzę na danych w programie Access mówi mi pole jest „Długi dane binarne” i udało mi się użyć następującego kodu po przeczytaniu rekordu z programu Access:

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)

Czy jest to prawidłowe?