Como guardar una imagen en una base como logo de una empresa

Como puedo guardar una imagen jpg, png, gif en una base de datos para mostrarla en un formulario por ejemplo en una factura, y cuando ya desee actualizar la imagen por una nueva ya quede guardada.

Respuesta
1

Tengo un código que te puede ayudar:

-Agrega un objeto OLE, llamado OLE al formulario.

-Anexa este código al evento click de un botón

-Necesitas vfpimage. Fll

[procedure Boton1.click()]

  Local Lruta, Lborrar
  Lborrar = .F.
  Lruta = Getpict('bmp,jpg,jpeg,png')
  If Empty(Lruta)
    Return
  Endif
  If File(Lruta)
    Old = Alias()
    Wait Window Nowait "Guardando la información del logo..."
    Select Vlogo
    Lborrar = .T.
    Lrutadest = Addbs(Sys(2023))+"imgtemp.bmp"
    Set Library To vfpimage.fll Additive
    Lruta = "'"+Lruta+"'"
    Cargoimagen=Imgload(&Lruta)
    If Cargoimagen=0
      Wait Window Nowait "Error cargando la imagen, por favor seleccione otra con el formato adecuado"
      Return
    Endif
    Aaa = Imgconvert(Lrutadest, 1, 75)
    Append General Logo From &Lrutadest
    = Tableupdate(.T., .T., "vlogo")
    thisform.Ole.Controlsource = "vlogo.logo"
    thisform.Ole.Refresh
    Wait Window Nowait Timeout 3 "Se ha guardado la información"
    If Lborrar
      Erase &Lrutadest
    Endif
    Select (Old)
  Else
    = Messagebox("El archivo "+Lruta+" no es válido.", 16, Business_loc)
  Endif

*** Fin de codigo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

Filtrar tabla y mostrar resultado en grilla

Tengo que hacer un formulario en donde tengo un textbox y una grilla, cuando ingreso el nombre de un cliente en el text tengo que filtrar una tabla y mostrar todos los registros coincidentes en la grilla.
1 respuesta

Archivo en ejecución o abierto

Estoy trabajando con VFP7.0 y necesito eliminar una archivo (Esto lo hago con DELETE FILE y todo bien), pero el problema es si el archivo que voy a eliminar del disco duro otra persona en la red lo tiene abierto o esta trabajando en él. ¿Cómo me...
1 respuesta

VFP and mysql

Estaba viendo que un usuario tenia un problema para ingresar una imagen y le recomendast un campo meno y después un general y así... ¿Yo tengo un problema algo similar yo utilizando la base de datos de fox genero un campo general e inserto un ole sin...
1 respuesta

Trabajar con cursores

Colabórenme por favor, ¿Se puede realizar un append from a un cursor? Como lo hago Ejm, Select Campo1, campo2, campo3 from tabla1 where condiciones, condiciones2 into cursor a1 Use tabla2 ¿Append from? Necesito adicionar el cursor a1
1 respuesta

Mover archivos pdf de una carpeta a otra

Ok... Tengo una carpeta de nombre enviados2008 y una tabla del mismo nombre. La tabla contiene los nombres de los archivos a mover de la carpeta enviados a enviados2008... Como le hago para que fox lea el registro de la tabla enviados2008, luego...
1 respuesta

Programa de inicio

Javier aquí preguntando de nuevo quisiera saber si me puedes mandar un ejemplo de crear un prg de inicio para los formularios y cerrar completamente tablas form y cerrar todo los formularios que se encuentra en memoria y los cursores al mismo tiempo
1 respuesta

Exportacion a excel

Tengo un problema con exportar un reporte a excel, quiero que contenga un logo y controlar el ancho de cada columna, colores y demás, ¿Cua les la mejor forma?, ¿Tienes algo que haga eso? Y que una vez generado el archivo excel me salga una pantalla...
2 respuestas