Foros Club Delphi - Ver Mensaje Individual - Como grabar el contenido de Timage a un archivo jpg

afunez2007 · #2 11-11-2009

Este codigo por ejemplo guarda la imagen guardada en una base de datos a un archivo jpg.

Código Delphi [-]procedure TFotosxEquipo.BitBtn2Click(Sender: TObject);
var
  jp: TJPEGImage;  //Requires the "jpeg" unit added to "uses" clause.
begin
  jp := TJPEGImage.Create;
  try
    with jp do
    begin
      jp.LoadFromStream(Table1.CreateBlobStream(table1.FieldByName(FOTOS.ActivePage.Caption),bmread));
      SaveToFile(ExtractFilePath(Application.ExeName)+FOTOS.ActivePage.Caption+'.jpg');
      Messagedlg('Imagen Guardada en:'+#13+ExtractFilePath(Application.ExeName)+FOTOS.ActivePage.Caption+'.jpg',mtWarning, [mbok],1);
    end;
  finally
    jp.Free;
  end;
end;

con algunos cambios minimos podras hacer que exporte el timage

Saludos