안녕 하세요?

BacTeria 박종민 입니다.

오랜만에 하나 올립니다.

그럼 오늘도 수거염~~

uses
  JPEG, Graphics;

procedure BMP2JPG(BMPFileName, JPGFileName: String; Quality: Byte);
var
  MyJPEG: TJPEGImage;
  MyBMP: TBitmap;
begin
  MyBMP := TBitmap.Create;

  with MyBMP do
  try
    LoadFromFile(BMPFileName);
    MyJPEG := TJPEGImage.Create;

    with MyJPEG do
    begin
      Assign(MyBMP);

      if (Quality < 1) or (Quality > 100) then Quality := 100;

      MyJPEG.CompressionQuality := Quality;
      SaveToFile(JPGFileName);
      Free;
    end;
  finally
    Free;
  end;
end;