Code: Select all
If DatabaseColumnType(hDatabase, k) = #PB_Database_Blob
BufferLength = DatabaseColumnSize(hDatabase, k)
; BUFFERLENGTH IS ALWAYS = 2147483647 !!!
If BufferLength > 0
*Buffer = AllocateMemory(BufferLength)
If *Buffer <> 0
If GetDatabaseBlob(hDatabase, k, *Buffer, BufferLength)
Field$ = Base64Encoder(*Buffer, BufferLength)
EndIf
FreeMemory(*Buffer)
EndIf
EndIf
Else
Field$ = GetDatabaseString(hDatabase, k)
EndIf
Maybe a bug in the DatabaseColumnSize() function?