(Resolvido) Salvar Foto de um TImage com tamanho menor

[robinhocne]

Pessoal eu utilizo hoje o codigo abaixo para salvar a Imagem no banco de dados Firebird......

procedure TFrmNovProdutos.GravarImagem;
var
  msFoto: TMemoryStream;
begin

  if CaminhoFoto = '' then
    begin
      exit;
    end;

  msFoto := TMemoryStream.Create;
  Foto.Picture.Graphic.SaveToStream(msFoto);
  msFoto.Position := 0;

//  IBTransaction1.StartTransaction;

  with DtmLoja.QryProdutos do
    begin
      close;
      Sql.Clear;
      Sql.Add('update Produtos SET Imagem = :ParFoto Where Codigo =' + QuotedStr(TxtCod.Text));
      Prepare;
      ParamByName('ParFoto').LoadFromStream(msFoto, ftBlob);
      ExecSql;
    end;

end;

.... o que eu quero é por exemplo se eu carrego uma imagem de uns 2 mb, na hora de salvar eu queria deixar ela mais pequena deixar tipo com uns 50 kb ou até em menos, mas que a imagem não fica ruim.

:blink:

Editado Outubro 13, 2010 por robinhocne

[Jhonas]

voce deve fazer compressão da imagem

exemplo:

uses JPEG;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  jpg : TJPEGImage; 
begin 
  jpg := TJPEGImage(Image1.Picture.Graphic); 
  if jpg.CompressionQuality <= 50 then 
  begin 
    ShowMessage('Imagem compactada!'); 
    Exit; 
  end; 

  jpg.CompressionQuality := 50; 
  jpg.Compress; 
  jpg.SaveToFile('c:\teste.jpeg'); 
end;

abraço

[robinhocne]

voce deve fazer compressão da imagem

exemplo:

uses JPEG;

procedure TForm1.Button1Click(Sender: TObject); 
var 
  jpg : TJPEGImage; 
begin 
  jpg := TJPEGImage(Image1.Picture.Graphic); 
  if jpg.CompressionQuality <= 50 then 
  begin 
    ShowMessage('Imagem compactada!'); 
    Exit; 
  end; 

  jpg.CompressionQuality := 50; 
  jpg.Compress; 
  jpg.SaveToFile('c:\teste.jpeg'); 
end;

abraço

Jhonas gostei dessa opção, vai ser util também, mas eu estava querendo também redimensionar a imagem para 180x180, pois creio que ai fica melhor ainda, mas não muito perder a qualidade dela, e já salvar no banco de dados.

[Jhonas]

Jhonas gostei dessa opção, vai ser util também, mas eu estava querendo também redimensionar a imagem para 180x180, pois creio que ai fica melhor ainda, mas não muito perder a qualidade dela, e já salvar no banco de dados.

Se voce não percebeu, quando voce faz compressão da imagem, ela diminue de tamanho

voce controla o nivel de compressão nesse comando

jpg.CompressionQuality := 50;

uma imagem de 1.5 Mb pode ficar com 50 Kb sem perder muito a definição

abraço

[robinhocne]

Jhonas gostei dessa opção, vai ser util também, mas eu estava querendo também redimensionar a imagem para 180x180, pois creio que ai fica melhor ainda, mas não muito perder a qualidade dela, e já salvar no banco de dados.

Se voce não percebeu, quando voce faz compressão da imagem, ela diminue de tamanho

voce controla o nivel de compressão nesse comando

jpg.CompressionQuality := 50;

uma imagem de 1.5 Mb pode ficar com 50 Kb sem perder muito a definição

abraço

Ok, resolvido, Obrigado Jhonas......