Usando campo memo FLEX DBV

[Itamar M. Lins Jr.]

Olá!
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

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.

[Itamar M. Lins Jr.]

Olá!
Essas tais BlobDirectPut(), BLOBDirectGet() é novidade... Será que funciona no LetodDbf ? Mais uma função para testar!
Guardar arquivos XML no DBF(DBV), diminuindo a quantidade de arquivos soltos na pasta, seria uma boa!
Vou testar primeiro com FPT mesmo.

Saudações,
Itamar M. Lins Jr.