4 replies to this topic

[Koalasoft]

Buenos dias, alguien tendra un ejemplo sobre lo siguente..

 

Ya tengo los procedimientos para guardar/actualizar una imagen a una BD mysql con un campo Blob, de igual manera puedo hacer la consulta y mostrar la imagen en un Timage, .. pero .. 

 

Hay alguna forma que ... después de consultar y mostrar la imagen en el componente TImage, esta imagen poder descargarla a la PC (formato jpg)?

 

Saludos !! ...

[Delphius]

Si ya tienes la Imagen en un TImage entonces lo único que necesitas es hacer un:

delphi

Image1.Picture.SaveToFile('Ruta' + '.jpg');

Y si dispones de un TSaveDialog o un TSavePictureDialog puedes usarlo para elegir la ruta y pasarsela al SaveToFile para guardarla en la ruta elegida:

delphi

if SavePictureDialog1.Execute 
then Image1.Picture.SaveToFile(SavePictureDialog1.FileName + '.jpg');

No requiere de más trabajo la verdad.

 

Saludos,

[Koalasoft]

Muchas gracias igual me sirvió de ayuda, lo hice de la siguiente manera ..

delphi

Var
  FileStream: TFileStream;
  BlobStream: TStream;
----
 
                  with DMod1.ADOQueryCtrlONT do
                    begin
                      if (SavePictureDialog1.Execute) then
                        begin
                          try
                            FileStream := TFileStream.Create(SavePictureDialog1.FileName,fmCreate);
                            BlobStream := CreateBlobStream(DMod1.ADOQueryCtrlONT.FieldByName('IMGONT'),bmRead);
                            FileStream.CopyFrom(BlobStream,BlobStream.Size-BlobStream.Position);
                            msInfo('La imagen se descargo correctamente.','Imagen Descargada');
                            BlobStream.Free;
                            FileStream.Free;
                          except
                            // ------------------------------------------
                              MSG:='Ocurrió un error al guardar la imagen. ';
                              Application.MessageBox(PChar(MSG),'ERROR !!!', MB_ICONSTOP );
                              exit;
                          end;
                        end;
                    end;

Acepto sugerencia o mejoras para esto ... gracias .. 

[Delphius]

Pues no hacía falta hacerlo por TStream si ya la tenías cargada en el TImage. Por como yo estaba entendiendo, tu ya recuperabas desde el BLOB y lo estabas mostrando en el TImage.

Si era así, como dije, el código que te puse funciona.

 

El código que tu pusiste está pensado para cuando no hace falta visualizarla, ni depender de un TImage, y recuperar desde la propia DB sin pasar por algún "intermedio". Es otra alternativa y válida.

 

Pero como dije, si tu ya hacías una conversión desde el BLOB para traerlo a un TPicture. Una vez cargada la imagen en éste, y "descargarla" se hace trivial con en SaveToFile() del Picture.

 

Saludos,

[Koalasoft]

Pues no hacía falta hacerlo por TStream si ya la tenías cargada en el TImage. Por como yo estaba entendiendo, tu ya recuperabas desde el BLOB y lo estabas mostrando en el TImage.

Si era así, como dije, el código que te puse funciona.

 

El código que tu pusiste está pensado para cuando no hace falta visualizarla, ni depender de un TImage, y recuperar desde la propia DB sin pasar por algún "intermedio". Es otra alternativa y válida.

 

Pero como dije, si tu ya hacías una conversión desde el BLOB para traerlo a un TPicture. Una vez cargada la imagen en éste, y "descargarla" se hace trivial con en SaveToFile() del Picture.

 

Saludos,

 

Totalmente de acuerdo, funciona perfectamente como comentas ... y de igual manera gracias por que me iluminaste para futuras ideas con esto ...

 

Saludos mi buen !!