Usando campo memo FLEX DBV
Enviado: 12 Dez 2023 10:57
Olá!
Vou deixar aqui o exemplo do Przemek!
O cara perguntou como usar, eu postei que o Harbour tinha isso, mas não achei exemplo. Testaria da maneira padrão de uso no DBF, mas eis que aparece o exemplo de uso.
Saudações,
Itamar M. LIns Jr.
Vou deixar aqui o exemplo do Przemek!
Código: Selecionar todos
Hi,
I suggest to not reinvent a wheel.
Blob and FPT memo fields in Harbour support Flex3 compatible types and
item conversions. Code example below.
best regards,
Przemek
#include "blob.ch"
request DBFBLOB
proc main()
local cFile, aData, aRead, nPointer
cFile := "myblob"
dbCreate( cFile, {}, "DBFBLOB", .t. )
aData := { date(), 123.45, .t., { "nested array", "item2" } }
nPointer := BLOBDirectPut( , aData )
? "wrriten data at:", hb_ntos( nPointer )
aRead := BLOBDirectGet( nPointer )
? hb_valToExp( aRead )
return
Saudações,
Itamar M. LIns Jr.