Converter de bmp para jpeg

Question

Ol� amigos....Algu�m poderia de explicar como fa�o para converter de bmp para jpeg ?desde de j� obg pela aten��o de todos !...

Paullsoftware · Answer

o procedimento abaixo eu uso para salvar como stream, mais vc pode adaptar para as suas necessidades...

procedure BmpToJpg(const Bitmap : TBitmap; var AStream: TMemoryStream);
var
  Jpg: TJpegImage;
begin
   Jpg := TJpegImage.Create;
   try
    Try jpg.PixelFormat := jf8Bit; Except End;
    Try jpg.CompressionQuality := 30; Except End;
    Try jpg.Compress; Except End;

//    Jpg.CompressionQuality := 30;
//    Jpg.PixelFormat := jf8Bit;
    Jpg.Assign(Bitmap);
    Jpg.SaveToStream(AStream);
   finally
    Jpg.Free
   end;
end; (* BMPtoJPG *)

espero ter ajudado :wink:

Jsidronio · Answer

Caro paullsoftware,Sua dica de como trabalhar com imagens fora do banco foi de grande utilidade para meu sistema de academia que estou desenvolvendo.E hoje achei essa sua outra dica de como converter Bmp�s para Jpg�s tamb�m ser� de grandiosa serventia, mas, gostaria de saber se antes de fazer a convers�o, tem como saber se a imagem � de qual tipo (*.bmp / *.jpg) para que atrav�s disso possa usar a convers�o ou n�o...Ou at� mesmo deix�-la como *.bmp, pois a leitura da imagem ser� feita da mesma forma por�m na hora de salvar que pode ocorrer algum erro....Desde j� agrade�o sua aten��o...Abra�os......

Rodc · Answer

Voc� pode usar a fun��o ExtractFileExt() para saber a extens�o de um arquivo....

Paullsoftware · Answer

[quote:a6380e2a33=�rodc�]Voc� pode usar a fun��o ExtractFileExt() para saber a extens�o de um arquivo.[/quote:a6380e2a33]n�o seria.. ChangeFileExt()..!depois fazer uma verifica��o antes da convers�o [b:a6380e2a33]if extensao=�.bmp� then[/b:a6380e2a33]...

F�rum Converter de bmp para jpeg #320150