Hola,
Por favor, ¿es posible guardar y recuperar bmps en un campo memo?.
Muchas gracias.
Saludos,
Eduardo
Eduardo
Board index FiveWin para Harbour/xHarbour guardar y recuperar bmps en un campo memo
mgsoft
Yo hago asi:
Saludos,
Adhemar
Yo hago asi:
cImagen:="IMAGEN.BMP" //Se puede .JPG .PNG
BLOBImport( FieldPos( "CampoMemo" ),cImagen ) //Graba
oImagen:LoadFromMemory( CampoMemo ) //LeeSaludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
Muchas gracias
¿Y donde esta por favor la función blog import?
Saludos,
Eduardo
Eduardo
Eduardo.
Compilo con FWH 11.06 y xHarbour 1.2.1 Rev 9445
y funciona.
Saludos,
Adhemar
Saludos,
Adhemar C.
Adhemar C.
Muchas gracias, funciona perfecto.
Desconocía estas funciones nuevas de Harbour y xHarbour.
Aquí dejo un sample:
Desconocía estas funciones nuevas de Harbour y xHarbour.
Aquí dejo un sample:
#include "blob.ch"
function main()
local aStru := {{"CODIGO", "C", 6, 0},;
{"FOTO", "M", 10, 0}}
local cOrigen := "TEST-OLD.BMP"
local cSalida := "SALIDA.BMP"
REQUEST DBFCDX, DBFFPT
RDDSETDEFAULT( "DBFCDX")
dbcreate("FOTOS", aStru)
USE FOTOS NEW
// Para salvar teste.bmp no dbf
append blank
replace codigo with "000001"
if ! BLOBImport( FieldPos( "FOTO" ), cOrigen )
?"error"
return Nil
endif
// Para recuperar a foto como Temp.bmp
ferase("Temp.bmp")
//dbseek(........)
if ! BLOBExport( FieldPos("FOTO"), cSalida, BLOB_EXPORT_OVERWRITE )
?"error"
endif
RETURN NILSaludos,
Eduardo
Eduardo
Eduardo,
suponiendo que tienes un control Image "oFoto" definido en tu dialogo, puedes probar el cargar la imagen sin pasar por disco, yo lo hago pero uso tablas ADT, pero no esta demas que lo intentes
nos comentas como te va
saludos
Marcelo
suponiendo que tienes un control Image "oFoto" definido en tu dialogo, puedes probar el cargar la imagen sin pasar por disco, yo lo hago pero uso tablas ADT, pero no esta demas que lo intentes
oFoto:LoadFromMemory( tabla -> foto )nos comentas como te va
saludos
Marcelo