Grabar imagen en tabla mysql

Grabar imagen en tabla mysql

Postby JoseAlvarez » Thu Jan 18, 2024 6:30 pm

Saludos estimados,

Necesito grabar una imagen .PNG en un campo de una tabla MySql y luego recuperarla para mostrarla.

Quien me da alguna orientación?
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 805
Joined: Sun Nov 09, 2014 5:01 pm

Re: Grabar imagen en tabla mysql

Postby sysctrl2 » Thu Jan 18, 2024 11:43 pm

Por alguna razón un PNG cuando lo convertimos a string queda muy grande y al guardarlo en mysql
se cae el sistema.
Pero hay una solución , en el siguiente link lo explica bien el amigo Juan Navas

viewtopic.php?f=6&t=30337&hilit=GETPAGES

saludos
Cesar Cortes Cruz
SysCtrl Software
Mexico

' Sin +- FWH es mejor "
User avatar
sysctrl2
 
Posts: 1032
Joined: Mon Feb 05, 2007 7:15 pm

Re: Grabar imagen en tabla mysql

Postby Marco Augusto » Fri Jan 19, 2024 1:36 am

Yo guardo archivos de todo tipo en mysql como binarios en campos del tipo "long text"

Primero se debe configurar Mysql para que lo permita
Desde el administrador de Mysql entras en Startup variables
Debes entrar en modo localhost y ejecutar como administrador
vas a la ceja Advanced Networking
en el apartado Data / Memory Size
le cambias a Max Packed size (yo le puse 16M)

Para subir un archivo cualquiera

FUNCTION GUARDADIR(cFILE,cTIPO)
APROG :=DIRECTORY(cFILE)
PUBLIC PROGNOM:=APROG[1,1]
PUBLIC PROGTAM:=APROG[1,2]
PUBLIC PROGFEC:=APROG[1,3]
PUBLIC PROGHRS:=APROG[1,4]
*
cFileG := StrToHex(MemoRead(cFILE))
*
cCMDVAL :=""
cCmdSql := "INSERT INTO PROGRAMA(TIPO,ARCHIVO,NOMBRE,FECHA,TAMA,HORA) VALUES( "
cCMDVAL := cCMDVAL+"'"+cTIPO +"', "
cCMDVAL := cCMDVAL+"'"+cFileG +"', "
cCMDVAL := cCMDVAL+"'"+cFILE +"', "
cCMDVAL := cCMDVAL+"'"+DToS(PROGFEC)+"',"
cCMDVAL := cCMDVAL+"'"+Str(PROGTAM) +"',"
cCMDVAL := cCMDVAL+"'"+PROGHRS+"' );"
IF !EJECUTA(cCmdSql+cCMDVAL)
MsgStop("ERROR AL GRABAR ARCHIVO "+cFILE ,"AVISO")
RETURN(.F.)
ENDIF
RETURN(.T.)

PARA RECUPERAR

FUNCTION EDATOS(cDAT,cNOM)
cARCH=HexToStr(cDAT)
ASALIDA:=".\"+cNOM
hFile := FCreate(asalida)
FWrite( hFile, cARCH)
FClose( hFile )
RETURN NIL
Marco Augusto Rodriguez Manzo
FWH January 2020 Xharbour 1.2.3
MySQL 5.0.19 Fastreport

PERZO SOFT
Sistemas Personalizados
User avatar
Marco Augusto
 
Posts: 144
Joined: Wed Oct 12, 2005 1:03 pm
Location: Cuernacava, Morelos Mexico

Re: Grabar imagen en tabla mysql

Postby Willi Quintana » Fri Jan 19, 2024 4:20 pm

MI estimado,,,,
Code: Select all  Expand view  RUN

If lModImg
Function GrabarFoto(cLogo)                                  // ruta completa de la imagen
    cChr := StrToHex(MemoRead( cLogo ) )         // tiene que estar en archivo
    oCn:Update( "general", {"logotipo"}, {cChr}, "registro = " + cReg )   // guardar en MEDIUMBLOB
EndIf
Return(NIl)
 


Code: Select all  Expand view  RUN

Function LeerLogotipo(oCn, oImagen, lBmp)
local cDat, oDat, cIMg, cFilRt, nHnd, oImg
DEFAULT lBmp := .f.

cDat := "SELECT logotipo FROM general LIMIT 1"
oDat := SQLQry(oCn, oDat, cDat)

If EMPTY(oDat:logotipo)
   Return(oImagen)
EndIf

oImg := oDat:logotipo

IF !EMPTY(oImg)
  TRY
    cImg := HexToStr(oImg)
  CATCH
    Return(oImagen)
  END
  If !lBmp
     oImagen:SetSource(cImg)
    Else
     oImagen:LoadImage(cImg)
  Endif
EndIf

Return(oImagen)

 
User avatar
Willi Quintana
 
Posts: 1022
Joined: Sun Oct 09, 2005 10:41 pm
Location: Cusco - Perú

Re: Grabar imagen en tabla mysql

Postby leandro » Fri Jan 19, 2024 8:03 pm

Otra opción

Code: Select all  Expand view  RUN

cRutaFoto := "c:\miruta\imagen.png"
rutaTXT := "c:\miruta\imagen.txt"

fMimeEnc( cRutaFoto, rutaTXT ) //Convertimos la imagen o cualquier archivo, en texto base64
cText := MemoRead( rutaTXT ) //Recuperamos el texto
cText := STRTRAN(cText,CRLF,'')  //Lo limpiamos

y con esta variable cText a la base de datos en un campo de tipo MEDIUMTEXT
 


Para recuperarla

Code: Select all  Expand view  RUN


cVar:=  "SELECT * FROM tabla WHERE campo=variable"
oRs := FW_OPENRECORDSET(oCn,cVar,adLockOptimistic,adOpenKeyset)
if oRs:RecordCount()#0
    uArch := hb_base64decode( oRs:Fields("campo"):Value )
    oFto:SetSource( uArch ) //Aqui la asigamos al objeto ximage, pero la puedes colocar si quieres en el disco duro
    oFto:refresh()
else
    oFto:SetSource( cRutaNoF )
    oFto:refresh()
endif
oRs:close()

 
Saludos
LEANDRO AREVALO
Bogotá (Colombia)
https://hymlyma.com
https://hymplus.com/
leandroalfonso111@gmail.com
leandroalfonso111@hotmail.com

[ Embarcadero C++ 7.60 for Win32 ] [ FiveWin 23.07 ] [ xHarbour 1.3.0 Intl. (SimpLex) (Build 20230914) ]
User avatar
leandro
 
Posts: 1688
Joined: Wed Oct 26, 2005 2:49 pm
Location: Colombia

Re: Grabar imagen en tabla mysql

Postby JoseAlvarez » Tue Jan 30, 2024 9:54 pm

Estimados amigos.

Saludos a todos,

Muchas gracias a quienes me sugirieron ideas a mi pregunta.

Después de verlas todas, me decanté por la opción de leandro, que me pareció la mas sencilla. Después de adaptarla a mi sistema, quedó muy bien.

Ciertamente, he leido en internet diversas opiniones y todas apuntan a que lo mejor es guardar las imágenes en carpetas de disco, bien sea en la nube o localmente.

Se dice de que guardarlas en tablas finalmente termina generando problemas, aunque no especifican que tipo de problemas.

Esperaré a ver como se comporta y el feed back del cliente,

Una vez más, muchas gracias a todos.!
"Los errores en programación, siempre están entre la silla y el teclado..."

Fwh 19.06 32 bits + Harbour 3.2 + Borland 7.4 + MariaDB + TDolphin

Carora, Estado Lara, Venezuela.
User avatar
JoseAlvarez
 
Posts: 805
Joined: Sun Nov 09, 2014 5:01 pm


Return to FiveWin para Harbour/xHarbour

Who is online

Users browsing this forum: Google [Bot] and 88 guests