Jump to content


Photo

Equivalente UniGUI de TOpenPictureDialog

TOpenPictureDialog TUniDBImage

  • Please log in to reply
4 replies to this topic

#1 Bertifox

Bertifox

    Member

  • Members
  • PipPip
  • 23 posts
  • LocationLa Serena, Chile

Posted 01 June 2017 - 06:28 PM

Hola foristas, necesito abrir un dialogo para cargar una imagen a un TUniDBImage, utilizo TOpenPictureDialog pero este no muestra el dialogo, no encuentro un componente similar de UniGUI,

Existe alguna alternativa? 

 

Saludos


  • 0

#2 Delphi Developer

Delphi Developer

    Advanced Member

  • Moderators
  • 3430 posts

Posted 01 June 2017 - 06:36 PM

Hi,

 

Which edition and build are you using ?!

 

You can look at our demo example:

\FMSoft\Framework\uniGUI\Demos\Desktop\FileUpload - Filter

Best regards,


  • 0

#3 Bertifox

Bertifox

    Member

  • Members
  • PipPip
  • 23 posts
  • LocationLa Serena, Chile

Posted 01 June 2017 - 07:44 PM

Hola Delphi Developer, uso la versión uni-1.0.0.1384 revisé el ejemplo y funciona muy bien, se muestra la imagen en UniDBImagen pero no graba al campo Foto.

procedure TMainForm.UniFileUpload1Completed(Sender: TObject;
  AStream: TFileStream);
begin
    UniDBImageProp.Picture.LoadFromFile(AStream.FileName);
    UniLabelImagenProp.Caption:='Foto : '+UniFileUpload1.FileName;

end;

Para tratar de grabar utilizo:

procedure TMainForm.UniBitBtnCargaPropClick(Sender: TObject);
begin
 If UniFileUpload1.Execute Then
 Begin
   UniMainModule.UniQueryPropietarios.Post;
   UniMainModule.UniQueryPropietarios.Edit;
 End;

end;

Gracias...


  • 0

#4 ricardolb

ricardolb

    Active Member

  • uniGUI Subscriber
  • PipPipPip
  • 50 posts

Posted 01 June 2017 - 08:17 PM

You should post to the database only after the UniFileUpload1Completed

 

Hola Delphi Developer, uso la versión uni-1.0.0.1384 revisé el ejemplo y funciona muy bien, se muestra la imagen en UniDBImagen pero no graba al campo Foto.

procedure TMainForm.UniFileUpload1Completed(Sender: TObject;
  AStream: TFileStream);
begin
    UniDBImageProp.Picture.LoadFromFile(AStream.FileName);
    UniLabelImagenProp.Caption:='Foto : '+UniFileUpload1.FileName;

end;

Para tratar de grabar utilizo:

procedure TMainForm.UniBitBtnCargaPropClick(Sender: TObject);
begin
 If UniFileUpload1.Execute Then
 Begin
   UniMainModule.UniQueryPropietarios.Post;
   UniMainModule.UniQueryPropietarios.Edit;
 End;

end;

Gracias...


  • 0

#5 Bertifox

Bertifox

    Member

  • Members
  • PipPip
  • 23 posts
  • LocationLa Serena, Chile

Posted 02 June 2017 - 04:04 PM

Gracias por la ayuda recibida,  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.
  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


  • 0





Also tagged with one or more of these keywords: TOpenPictureDialog, TUniDBImage

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users