비트맵 -> Jpeg 변환

uses 에 Jpeg 추가.

 

procedure Convert(Path, fName: String; CompQuality: Integer);
var
  btm: TBitmap;
  Jpeg: TJpegImage;

begin
  btm:=TBitmap.Create;
  Jpeg:=TJpegImage.Create;
  try
    btm.LoadFromFile(Path+'\'+fName);
    Jpeg.Assign(btm);
    Jpeg.CompressionQuality:=CompQuality;
    Jpeg.SaveToFile(Path+'\'+StringReplace(LowerCase(fName),'.bmp','.jpg',[rfReplaceAll]));
  finally
    FreeAndNil(btm);
    FreeAndNil(Jpeg);
  end;
end;

 

 

 

첨부한 파일은 디렉토리를 선택해서,

선택된 디렉토리에 있는 모든 bmp 를 jpg 로 바꾸는 프로그램.

 

파일의 헤더를 까는게 아니라 확장자만 검사하고,

하위 디렉토리까지 전부 하는게 아니므로 주의.