Изображения в sqlite - Pure Basic - Ответ 5072621

DatabaseQuery(1, "SELECT * FROM '"+table+"'")
history=history+Chr(10)+"SELECT * FROM '"+table+"'"
col=DatabaseColumns(1)
Dim name.s(col)
Dim typ.s(col)
For i=1 To col
    name(i) = DatabaseColumnName(1,i-1)
    Select DatabaseColumnType(1,i-1)
        Case #PB_Database_Long
            typ(i) = "long"
        Case #PB_Database_String
            typ(i) = "string"
        Case #PB_Database_Float
            typ(i) = "float"
        Case #PB_Database_Double
            typ(i) =  "double"
        Case #PB_Database_Quad
            typ(i) = "quad"
        Case #PB_Database_Blob
            typ(i) = "blob"
    EndSelect
    Debug typ(i)
    TextGadget(i,(i-1)*wg+2,0,wg-1,ww-1,name(i))
Next
 
 glDBSQLite=1
gad=100
row=0
FirstDatabaseRow(1)
While NextDatabaseRow(1) 
    row=row+1
    For num=1 To col
            
        y=0
        If typ(num)="blob"
            Size = DatabaseColumnSize(1, num)
      If Size > 0
        *Memory = AllocateMemory(Size)
       FillMemory(*Memory,Size,Val(txt(row,num)),#PB_Byte)
        Image = CatchImage(#PB_Any, *Memory, Size)
        Debug CatchImage(#PB_Any, *Memory, Size)
        If IsImage(Image)
            Debug "ok"
            ImageGadget(gad,num*wg-wg,row*ww,wg-1,ww-1,ImageID(gad))
            y=1
        EndIf 
      EndIf
    EndIf
    
            If y=0
        txt (row,num) = GetDatabaseString(1, num-1)
        StringGadget(gad,num*wg-wg,row*ww,wg-1,ww-1,txt(row,num))
        EndIf 
        gad=gad+1
    Next
Wend