German Liste aus BLOB Feld lesen (SQLite)

    Dim B(RateList.Size) As Byte
    
    For i = 0 To RateList.Size - 1
        B(i) = RateList.Get(i)
    Next
    
    GlobalCodes.TSQL.ExecNonQuery2("INSERT INTO Rates VALUES(NULL, '" & RecordID & "', ?)", Array As Object(B))

Cursor1 = GlobalCodes.TSQL.ExecQuery2("SELECT RateList FROM Rates WHERE RecordID = '" & RecordViewID & "'", Array As String("RateList"))
Cursor1.Position = 0

Dim B() As Byte
B = Cursor1.GetBlob("RateList")
        
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(B, 0, B.Length)

...

Dim Buffer() As Byte 'declare an empty byte array
Buffer = res.GetBlob("RateList")
Dim InputStream1 As InputStream
InputStream1.InitializeFromBytesArray(Buffer, 0, Buffer.Length)
Dim bc As ByteConverter
Dim st As String = bc.StringFromBytes(Buffer, "UTF8")
InputStream1.Close

Cursor1 = GlobalCodes.TSQL.ExecQuery("SELECT RateList FROM Rates WHERE RecordID = '" & RecordViewID & "'")

        Cursor1.Position = 0
        Dim B() As Byte
        B = Cursor1.GetBlob("RateList")

        Dim BC As ByteConverter
        Dim S As String = BC.StringFromBytes(B, "UTF8")

        ' SPEICHERN
        
        Dim SB As StringBuilder
        SB.Initialize
        
        For i = 0 To RateList.Size - 1
            SB.Append(RateList.Get(i) & ",")
        Next
        
        Dim BT() As Byte
        Dim BC As ByteConverter
        BT = BC.StringToBytes(SB, "UTF8")
        
        GlobalCodes.TSQL.ExecNonQuery2("INSERT INTO Rates VALUES(NULL, '" & RecordID & "', ?)", Array As Object(BT))
        
        ' LESEN
        
        Dim BT() As Byte
        BT = Cursor1.GetBlob("RateList")
        Dim BC As ByteConverter
        Dim ST As String = BC.StringFromBytes(BT, "UTF8")
            
        Dim Delimiter As String = ","
        Dim sArray() As String = Regex.Split(Delimiter, ST)
            
        RecordViewList.AddAll(sArray)

Public Sub objectToBase64(obj As Object) As String
    Dim ser As B4XSerializator
    Dim su As StringUtils
    Return su.EncodeBase64(ser.ConvertObjectToBytes(obj))
End Sub

Public Sub base64ToObject(base64 As String) As Object
    Dim ser As B4XSerializator
    Dim su As StringUtils
    Dim a() As Byte = su.DecodeBase64(base64)
    If a.Length = 0 Then Return ""
    Return ser.ConvertBytesToObject(a)
End Sub

    Dim tags As String = Cursor.GetString("tags")
    Dim tagslist As List
    tagslist.Initialize
    Dim obj As Object = base64ToObject(tags)
     If obj Is List Then
           Dim l As List = obj
           log(l)
     End If

Public Sub objectToByte(obj As Object)As Byte()
    Dim ser As B4XSerializator
    Return ser.ConvertObjectToBytes(obj)
End Sub

Public Sub byteToObject(data() As Byte)As Object
    Dim ser As B4XSerializator
    Return ser.ConvertBytesToObject(data)
End Sub