PureBoard

Code: Alles auswählen

Function ReadBLOBNeu(Source As String, T As Recordset, sField As String)
    
'**************************************************************
' FUNCTION: ReadBLOB()      '      ' PURPOSE:
'   Reads a BLOB from a disk file and stores the contents in the
'   specified table and field.      '      ' PREREQUISITES:
'   The specified table with the OLE object field to contain the
'   binary data must be opened in Visual Basic code (Access Basic
'   code in Microsoft Access 2.0 and earlier) and the correct record
'   navigated to prior to calling the ReadBLOB() function.      '
' ARGUMENTS:
'   Source - The path and filename of the binary information
'            to be read and stored.
'   T      - The table object to store the data in.
'   Field  - The OLE object field in table T to store the data in.      '
' RETURN:      '   The number of bytes read from the Source file.
'**************************************************************
    
    Dim NumBlocks As Integer, SourceFile As Integer, I As Integer
'    Dim FileLength As Long
    Dim LeftOver As Long
    Dim FileData As String
    Dim RetVal As Variant
'          On Error GoTo Err_ReadBLOB
    ' Open the source file.
    SourceFile = FreeFile
    Open Source For Binary Access Read As SourceFile
    ' Get the length of the file.
    FileLength = LOF(SourceFile)
    If FileLength = 0 Then
        ReadBLOBNeu = 0
        Exit Function
    End If
    ' Calculate the number of blocks to read and leftover bytes.
    NumBlocks = FileLength \ BlockSize
    LeftOver = FileLength Mod BlockSize
    ' SysCmd is used to manipulate status bar meter.
    RetVal = SysCmd(acSysCmdInitMeter, "Reading BLOB", _
             FileLength \ 1000)          ' Put first record in edit mode.
'          T.MoveFirst
'          T.Edit
    T.AddNew
    ' Read the leftover data, writing it to the table.
    FileData = String$(LeftOver, 32)
    Get SourceFile, , FileData
    T(sField).AppendChunk (FileData)
    RetVal = SysCmd(acSysCmdUpdateMeter, LeftOver / 1000)
    ' Read the remaining blocks of data, writing them to the table.
    FileData = String$(BlockSize, 32)
    For I = 1 To NumBlocks
        Get SourceFile, , FileData
        T(sField).AppendChunk (FileData)
        RetVal = SysCmd(acSysCmdUpdateMeter, BlockSize * I / 1000)
    Next I          ' Update the record and terminate function.
    T.Update
    RetVal = SysCmd(acSysCmdRemoveMeter)
    Close SourceFile
    ReadBLOBNeu = FileLength
    Exit Function
Err_ReadBLOB:
ReadBLOBNeu = -Err
MsgBox "ReadBLOB Error " & Err & " : " & Error$
Exit Function
End Function

Code: Alles auswählen

EnableExplicit

XIncludeFile "SQLite3.pbi"

Define Mem, File, Size, hDB, lStatement

hDB = OpenDatabase(#PB_Any, "logo.db", "", "")
If hDB = #False
  Debug "Can't open database"
  End
EndIf

lStatement = SQLitePrepare(hDB, "Select fldBlob From tblBlob")

If lStatement
  SQLiteStep(lStatement)
  Size = SQLiteColumnByte(lStatement, 0)
  Mem = SQLiteColumnBlob(lStatement, 0)
  If Mem
;     File = CreateFile(#PB_Any, "logo.bmp")
;     If File
;       WriteData(File, Mem, Size)
;       CloseFile(File)
;     EndIf
    CatchImage(0, Mem)
    OpenWindow(0, #PB_Ignore, #PB_Ignore, ImageWidth(0), ImageHeight(0), "blob - example")
    ImageGadget(0, 0, 0, ImageWidth(0), ImageHeight(0), ImageID(0))
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
  EndIf
  SQLiteFinalize(lStatement)
EndIf

CloseDatabase(hDB) 

Code: Alles auswählen

  SQLite3_Prepare (hDB.i, Statement.p-utf8, nBytes.i, *hResult, *pzTail = 0)

Code: Alles auswählen

sqlite3_bind_blob (lStatement.i, lIndex.i, lBinaryBuffer.i, lBinaryBufferLength.i, *void = -1)