B4J Question Save SQLite BLOB field to binary file?

[tsteward]

I want to save the data in a BLOB field to a binary file but don't know how.

My failed code

Dim dumpdata As ResultSet = sql1.ExecQuery("SELECT * FROM BINFiles WHERE FileID = '1'")
    Do While dumpdata.NextRow
        File.WriteString(File.DirApp,"testdump.bin",dumpdata.GetBlob("data"))
    Loop
    dumpdata.Close

 

[Erel]

You cannot use WriteString with binary data.
Do you assume that there is a single matching result? Otherwise your code will overwrite the file.

Dim b() As Byte = dumpData.GetBlob(...)
Dim out As OutputStream = File.OpenOutput(File.DirApp,"testdump.bin")
out.WriteBytes(b, 0, b.Length)
out.Close

 

[tsteward]

Thank Erel,
Yes I know there is a single match result. This is also just test code to see if my idea will work.