Jump to content


Photo

Cargar imagen a TUniDBImage

OpenPictureDialog Campo Blob UniDBImagen TUniDBImage

  • Please log in to reply
3 replies to this topic

#1 Bertifox

Bertifox

    Advanced Member

  • Miembros
  • PipPipPip
  • 109 posts
  • LocationLa Serena-Chile

Posted 01 June 2017 - 12:10 PM

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
  • 109 posts
  • LocationLa Serena-Chile

Posted 02 June 2017 - 10:09 AM

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
  • 7419 posts
  • LocationRepública Dominicana

Posted 02 June 2017 - 10:31 AM

Gracias por el feedback!


  • 0

#4 ELKurgan

ELKurgan

    Advanced Member

  • Miembro Platino
  • PipPipPip
  • 566 posts
  • LocationEspaña

Posted 04 June 2017 - 11:04 PM

Gracias por la solución

 

Saludos


  • 0




IP.Board spam blocked by CleanTalk.