掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
ＪＰＥＧ画像の変換 (ID:6957)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
こんな感じでうまくいきました。 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;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.