Serialize/Deserialize mảng hai chiều

Question

Vì lý do nào đó, câu hỏi trước của tôi được coi là quá mơ hồ. Vì vậy, hãy để tôi cụ thể hơn.

Tôi có một mảng 2 chiều loại duy nhất. Tôi muốn tuần tự hóa nó để lưu trong cơ sở dữ liệu Access.

Đề xuất là lưu nó dưới dạng trường Bản ghi nhớ. Tôi muốn đọc trường Bản ghi nhớ và deserialize nó để lấy mảng ban đầu. Tôi đã tìm kiếm rộng rãi trên web và ở đây và không thể tìm thấy câu trả lời. Tôi tin rằng tôi đang serializing mảng một cách chính xác nhưng không biết làm thế nào để deserialize nó.

Mã này dường như làm việc cho serializing nhưng tôi không thể tìm ra cách để deserialize:

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 

sau đó tôi lưu byArr đến lĩnh vực Memo.

Vui lòng cung cấp mã mẫu.

Answer 1

Bạn có thể deserialize nó thông qua chuyển đổi 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) 

này có thể trông hơi vụng về, nhưng nó hoạt động - được thử nghiệm trong một ứng dụng giao diện điều khiển trong VS 2010.

tín dụng đi here. Thông qua liên kết này, bạn cũng có thể tìm phiên bản đầy đủ của mã để phát.

Answer 2

Tôi đã thay đổi kiểu dữ liệu của trường Truy cập từ Ghi nhớ thành đối tượng OLE và dường như hoạt động. Khi tôi nhìn vào các dữ liệu trong Access nó nói với tôi lĩnh vực này là "dữ liệu nhị phân Long" và tôi đã có thể sử dụng đoạn mã sau sau khi đọc các bản ghi từ 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)

là đúng này?