Grabar Imagen en mysql
Publicado: Jue Jul 29, 2010 7:19 pm
Buenas tardes soy nuevo en el foro, y en xailer también
Estoy cargando una imagen desde un archivo
------------------------------------------------------------ ----
IF ::oFileOpenImageDlg1:Run()
::oImage1:oPicture := ::oFileOpenImageDlg1:cFullFileName
ENDIF
------------------------------------------------------------ ----
después cargo la imagen en una cadena
------------------------------------------------------------ -----
cImage:=::oImage1:oPicture:SaveToStream()
------------------------------------------------------------ ----
despues al intentar hacer un insert en la tabla la cual tiene 1 campo 'imagen' (mediumblob)
------------------------------------------------------------ -----
------------------------------------------------------------ -----
cCon:=" insert into imagenes set imagen='"+cImage"'"
if !appdata:origen1:execute(cCon,cCon)
msginfo("Operacion De imagen Rechazada...")
logfile(cCon)
return(.t.)
endif
------------------------------------------------------------ -----
me tira el siguiente error
Imagen la pongo mas adelante por que no me deja por que es mi primer post
me podrían explicar como hacer el insert?? o como guardarlo si no fuera así
nota no estoy usando datasets
utilizo odbc(TOdbcDataSource()) de mysql para hacer la conexión
Estoy cargando una imagen desde un archivo
------------------------------------------------------------ ----
IF ::oFileOpenImageDlg1:Run()
::oImage1:oPicture := ::oFileOpenImageDlg1:cFullFileName
ENDIF
------------------------------------------------------------ ----
después cargo la imagen en una cadena
------------------------------------------------------------ -----
cImage:=::oImage1:oPicture:SaveToStream()
------------------------------------------------------------ ----
despues al intentar hacer un insert en la tabla la cual tiene 1 campo 'imagen' (mediumblob)
------------------------------------------------------------ -----
------------------------------------------------------------ -----
cCon:=" insert into imagenes set imagen='"+cImage"'"
if !appdata:origen1:execute(cCon,cCon)
msginfo("Operacion De imagen Rechazada...")
logfile(cCon)
return(.t.)
endif
------------------------------------------------------------ -----
me tira el siguiente error
Imagen la pongo mas adelante por que no me deja por que es mi primer post
me podrían explicar como hacer el insert?? o como guardarlo si no fuera así
nota no estoy usando datasets
utilizo odbc(TOdbcDataSource()) de mysql para hacer la conexión