Page 1 of 1
Grabar imagen en tabla mysql
Posted: Thu Jan 18, 2024 6:30 pm
by JoseAlvarez
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?
Re: Grabar imagen en tabla mysql
Posted: Thu Jan 18, 2024 11:43 pm
by sysctrl2
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
https://forums.fivetechsupport.com/view ... t=GETPAGES
saludos
Re: Grabar imagen en tabla mysql
Posted: Fri Jan 19, 2024 1:36 am
by Marco Augusto
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
Re: Grabar imagen en tabla mysql
Posted: Fri Jan 19, 2024 4:20 pm
by Willi Quintana
MI estimado,,,,
Code: Select all | Expand
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
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)
Re: Grabar imagen en tabla mysql
Posted: Fri Jan 19, 2024 8:03 pm
by leandro
Otra opción
Code: Select all | Expand
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
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()
Re: Grabar imagen en tabla mysql
Posted: Tue Jan 30, 2024 9:54 pm
by JoseAlvarez
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.!