Ir al contenido



Foto

Cargar imagen a TUniDBImage

OpenPictureDialog Campo Blob UniDBImagen TUniDBImage

  • Por favor identifícate para responder
3 respuestas en este tema

#1 Bertifox

Bertifox

    Advanced Member

  • Miembros
  • PipPipPip
  • 108 mensajes
  • LocationLa Serena-Chile

Escrito 01 junio 2017 - 12:10

Saludos foristas, necesito cargar una imagen a un campo blob en BD MySql.

 

Utilizo el componente OpenPictureDialog para ubicar la imagen a cargar pero el dialogo no se inicia, no encuentro el componente UniGUI equivalente, alguien se ha topado con este problema?.

 

Gracias...


  • 0

#2 Bertifox

Bertifox

    Advanced Member

  • Miembros
  • PipPipPip
  • 108 mensajes
  • LocationLa Serena-Chile

Escrito 02 junio 2017 - 10:09

La solución es utilizar los componentes

 
TUniFileUpload y TUniImage.

 

En el evento  UniFileUpload1Completed, se carga la foto a  UniImage1 y luego se asigna al campo Foto de la tabla o query.

delphi
  1. procedure TMainForm.UniFileUpload1Completed(Sender: TObject;
  2. AStream: TFileStream);
  3. begin
  4.  
  5. UniImage1.Picture.LoadFromFile(AStream.FileName);
  6. UniLabelImagenProp.Caption:='Foto : '+UniFileUpload1.FileName;
  7. UniMainModule.UniQueryPropietarios.Edit;
  8. UniMainModule.UniQueryPropietarios.FieldByName('Foto').Assign(UniImage1.Picture);
  9. UniMainModule.UniQueryPropietarios.Post;
  10.  
  11. end; 

Saludos


  • 1

#3 enecumene

enecumene

    Webmaster

  • Administrador
  • 7.409 mensajes
  • LocationRepública Dominicana

Escrito 02 junio 2017 - 10:31

Gracias por el feedback!


  • 0

#4 ELKurgan

ELKurgan

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 551 mensajes
  • LocationEspaña

Escrito 04 junio 2017 - 11:04

Gracias por la solución

 

Saludos


  • 0