ＪＰＥＧ画像の変換

解決

まえもん 2004-02-04 06:11:26 No: 6956

特定のＪＰＥＧ画像をグレースケールに変換して保存したいのですが、
どうやればよいのでしょうか？

jok 2004-02-04 07:19:32 No: 6957

こんな感じでうまくいきました。

uses
Jpeg;

procedure TForm1.Button1Click(Sender: TObject);
var
  JPG:TJpegImage;
  BMP:TBitmap;
begin
  JPG := TJpegImage.Create;
  BMP := TBitmap.Create;
  try
    JPG.LoadFromFile('C:\Test.jpg');
    JPG.Grayscale := true;
    BMP.Width :=JPG.Width;
    BMP.Height :=JPG.Height;
    BMP.Canvas.Draw(0,0,JPG);
    JPG.Assign(BMP);
    JPG.SaveToFile('C:\Gray.jpg');
  finally
    BMP.Free;
    JPG.Free;
  end;
end;

まえもん 2004-02-05 07:25:08 No: 6958

jok様、ありがとうございます。
うまくいきました。
これからも、よろしくお願いいたします。