ELIEL DE PAULA

FULL STACK WEBDEVELOPER

Converter imagens BMP para JPEG e vice versa com Lazarus / Free-Pascal

Postado dia 12/09/2014
ProgramaçãoLazarus/Free-PascalDelphiDicas

Converter imagens BMP para JPEG e vice versa com Lazarus / Free-Pascal

Dica rápida pra ficar na memória, como converter imagens BMP para JPEG e JPEG para BMP Nota: Adicionar a unit Jpeg na seção Uses. BMP para JPEG

procedure Bmp2Jpeg(const BmpFileName, JpgFileName: string);
var
    Bmp: TBitmap;
    Jpg: TJPEGImage;
begin
    Bmp := TBitmap.Create;
    Jpg := TJPEGImage.Create;
    try
        Bmp.LoadFromFile(BmpFileName);
        Jpg.Assign(Bmp);
        Jpg.SaveToFile(JpgFileName);
    finally
        Jpg.Free;
        Bmp.Free;
    end;
end;

JPEG para BMP

procedure Jpeg2Bmp(const BmpFileName, JpgFileName: string);
var
    Bmp: TBitmap;
    Jpg: TJPEGImage;
begin
    Bmp := TBitmap.Create;
    Jpg := TJPEGImage.Create;
    try
        Jpg.LoadFromFile(JpgFileName);
        Bmp.Assign(Jpg);
        Bmp.SaveToFile(BmpFileName);
    finally
         Jpg.Free;
        Bmp.Free;
    end;
end;

Comentarios

imagem conversão lazarus delphi bmp-to-jpeg