I am trying to recover thousands of personally valuable very old images that are stored in this mummified software titled PhotoRecall DELUXE, which stored the bmp(?) images in an Access 97 .mdb file. I cannot find the original software.
As usual, I do not know the correct keyword to search for.
I have gotten to a Json dump of the mdb relic with a tool I found. Here is the first abbreviated record:
I have been trying things shown below. All this byte, bit, char, array stuff continues to confound me. I usually rely on a code-snippet from one of you to accomplish whatever.
I end up with a ".bmp" file with a byte size that is darn close to correct, but definitely does not qualify on any planet as an "image".
I want to end up with a usable anything. These photos were taken with what might have been the first "modern" Sony camera thing. You needed to insert a 3.5" diskette, which would hold about six pictures at "extreme high quality". But they are the entire photographic record of my life before thirty, and The Rents life before me.
As usual, I do not know the correct keyword to search for.
I have gotten to a Json dump of the mdb relic with a tool I found. Here is the first abbreviated record:
B4X:
{"$binary": "/9j/4AAQSkZJRgABAAEAlgCWAAD//gAfTEVBRCBUZ THIS GOES ON AND ON 87414 BYTES lSRdynOGA==", "$type": "00"}
I have been trying things shown below. All this byte, bit, char, array stuff continues to confound me. I usually rely on a code-snippet from one of you to accomplish whatever.
B4X:
Dim DIR As String = File.DirData("PhotoExport")
Dim fn As String = "b4jtest.bmp"
Dim parser As JSONParser
parser.Initialize(Json)
Dim jRoot As Map = parser.NextObject
Dim jType As String = jRoot.Get("$type")
Log("jType = " & jType)
''Dim binary As Object = jRoot.Get("$binary")
Dim strBinary As String = jRoot.Get("$binary")
Dim bc As ByteConverter
'bc.LittleEndian = True
Dim Buffer() As Byte = bc.StringToBytes(strBinary, "UTF8" ) ' <--- this cannot be right
' Dim out As OutputStream = File.OpenOutput(DIR,fn,False)
' out.InitializeToBytesArray(0)
' Log("Buffer.Length = " & Buffer.Length)
' out.WriteBytes( Buffer , 0, Buffer.Length)
' 'out.Flush
' out.Close
File.WriteBytes(DIR,fn, Buffer)
Log("*** wrote bytes")
I end up with a ".bmp" file with a byte size that is darn close to correct, but definitely does not qualify on any planet as an "image".
I want to end up with a usable anything. These photos were taken with what might have been the first "modern" Sony camera thing. You needed to insert a 3.5" diskette, which would hold about six pictures at "extreme high quality". But they are the entire photographic record of my life before thirty, and The Rents life before me.