RE:Cesar Fuenzalida esto t puede servir
lee el articulo o corre el ejemplo siguiente
PUBLIC oMiForm
oMiForm = NEWOBJECT("MiForm")
oMiForm.SHOW
RETURN
DEFINE CLASS MiForm AS FORM
HEIGHT = 336
WIDTH = 728
DOCREATE = .T.
AUTOCENTER = .T.
CAPTION = "Ejemplo de un campo Blob"
BINDCONTROLS = .F.
NAME = "MiForm"
ADD OBJECT edtFoto AS EDITBOX WITH ;
COMMENT = "", ;
HEIGHT = 216, ;
LEFT = 296, ;
TABINDEX = 2, ;
TOP = 8, ;
WIDTH = 216, ;
CONTROLSOURCE = "Alumnos.Foto", ;
NAME = "edtFoto"
ADD OBJECT imgFoto AS IMAGE WITH ;
STRETCH = 1, ;
HEIGHT = 216, ;
LEFT = 520, ;
TOP = 8, ;
WIDTH = 192, ;
NAME = "imgFoto"
ADD OBJECT grdAlumnos AS MiGrid
ADD OBJECT lblgrid AS LABEL WITH ;
WORDWRAP = .T., ;
BACKSTYLE = 0, ;
CAPTION = [Cursor con un campo Blob. Con "Doble Click" en el campo Blob ] +;
[visualizamos el contenido en una ventana de edición de solo lectura.'], ;
HEIGHT = 72, ;
LEFT = 32, ;
TOP = 232, ;
WIDTH = 232, ;
FORECOLOR = RGB(0,0,0), ;
NAME = "lblGrid"
ADD OBJECT lbleditbox AS LABEL WITH ;
WORDWRAP = .T., ;
BACKSTYLE = 0, ;
CAPTION = [Cuadro de Edición de solo lectura con el contenido del campo Blob.], ;
HEIGHT = 72, ;
LEFT = 304, ;
TOP = 232, ;
WIDTH = 192, ;
FORECOLOR = RGB(0,0,255), ;
NAME = "lblEditBox"
ADD OBJECT lblimage AS LABEL WITH ;
WORDWRAP = .T., ;
BACKSTYLE = 0, ;
CAPTION = [Control Imagen con la propiedad PictureVal configurada con ] +;
[el contenido del campo Blob.] , ;
HEIGHT = 72, ;
LEFT = 528, ;
TOP = 232, ;
WIDTH = 176, ;
FORECOLOR = RGB(255,0,0), ;
NAME = "lblImage"
ADD OBJECT cmdmodifymemo AS COMMANDBUTTON WITH ;
TOP = 304, ;
LEFT = 48, ;
HEIGHT = 24, ;
WIDTH = 216, ;
CAPTION = "MODIFY MEMO <CampoBlob>", ;
NAME = "cmdModifyMemo"
ADD OBJECT label1 AS LABEL WITH ;
WORDWRAP = .T., ;
BACKSTYLE = 0, ;
CAPTION = "Botón con el cláusula MODIFY MEMO Alumnos.Foto", ;
HEIGHT = 16, ;
LEFT = 272, ;
TOP = 310, ;
WIDTH = 408, ;
FORECOLOR = RGB(0,128,0), ;
NAME = "Label1"
PROCEDURE INIT
LOCAL lcRuta, lcFoto, ln
*-- Creo el cursor Alumnos
CREATE CURSOR Alumnos (Numero i, Nombre c(10), Foto w)
*-- Recorro las imágenes de SAMPLES\DATA\GRAPHICS
lcRuta = HOME(2) + "DATA\GRAPHICS\"
lcFoto = SYS(2000,lcRuta + "*.GIF")
ln = 1
DO WHILE NOT EMPTY(lcFoto)
INSERT INTO Alumnos (Numero, Nombre, Foto) ;
VALUES (ln, JUSTSTEM(lcFoto), FILETOSTR(lcRuta + lcFoto))
lcFoto = SYS(2000, lcRuta + "*.GIF", 1)
ln = ln + 1
ENDDO
GO TOP IN Alumnos
*-- Enlazo los controles
THISFORM.BINDCONTROLS = .T.
ENDPROC
PROCEDURE grdAlumnos.AFTERROWCOLCHANGE
LPARAMETERS nColIndex
THISFORM.imgFoto.PICTUREVAL = Alumnos.Foto
THISFORM.edtFoto.REFRESH
ENDPROC
PROCEDURE cmdmodifymemo.CLICK
MODIFY MEMO Alumnos.Foto
ENDPROC
ENDDEFINE
DEFINE CLASS MiGrid AS GRID
COLUMNCOUNT = 3
DELETEMARK = .F.
HEIGHT = 216
LEFT = 16
PANEL = 1
READONLY = .T.
RECORDSOURCE = "Alumnos"
RECORDSOURCETYPE = 1
SCROLLBARS = 2
TABINDEX = 1
TOP = 8
WIDTH = 272
HIGHLIGHTSTYLE = 2
NAME = "grdAlumnos"
Column1.CONTROLSOURCE = "Alumnos.numero"
Column1.WIDTH = 75
Column1.READONLY = .T.
Column1.VISIBLE = .T.
Column1.NAME = "Column1"
Column2.CONTROLSOURCE = "Alumnos.Nombre"
Column2.WIDTH = 111
Column2.READONLY = .T.
Column2.VISIBLE = .T.
Column2.NAME = "Column2"
Column3.CONTROLSOURCE = "Alumnos.Foto"
Column3.WIDTH = 53
Column3.READONLY = .T.
Column3.NAME = "Column3"
PROCEDURE INIT
THIS.Column1.Header1.ALIGNMENT = 2
THIS.Column1.Header1.CAPTION = "Numero"
THIS.Column1.Header1.NAME = "Header1"
THIS.Column2.Header1.ALIGNMENT = 2
THIS.Column2.Header1.CAPTION = "Nombre"
THIS.Column2.Header1.NAME = "Header1"
THIS.Column3.Header1.ALIGNMENT = 2
THIS.Column3.Header1.CAPTION = "Blob"
THIS.Column3.Header1.NAME = "Header1"
ENDPROC
ENDDEFINE
Suerte