3 replies to this topic

[Bertifox]

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...

[Bertifox]

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

procedure TMainForm.UniFileUpload1Completed(Sender: TObject;
  AStream: TFileStream);
begin
 
    UniImage1.Picture.LoadFromFile(AStream.FileName);
    UniLabelImagenProp.Caption:='Foto : '+UniFileUpload1.FileName;
    UniMainModule.UniQueryPropietarios.Edit;
    UniMainModule.UniQueryPropietarios.FieldByName('Foto').Assign(UniImage1.Picture);
    UniMainModule.UniQueryPropietarios.Post;
 
end; 

Saludos

[enecumene]

Gracias por el feedback!

[ELKurgan]

Gracias por la solución

 

Saludos