掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
BMP画像をグレイスケール化するには？ (ID:11558)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
インチキかな uses Jpeg; procedure ConvertToGrayScale(bmp:TBitmap); var jpg:TJpegImage; ms:TMemoryStream; begin jpg := TJpegImage.Create; ms := TMemoryStream.Create; try jpg.Assign(bmp); jpg.SaveToStream(ms); ms.Position := 0; jpg.LoadFromStream(ms); jpg.Grayscale := true; bmp.Assign(jpg); finally jpg.Free; ms.Free; end; end; procedure TForm1.Button1Click(Sender: TObject); var bmp:TBitmap; begin bmp := TBitmap.Create; try bmp.LoadFromFile('C:\TestPhoto.bmp'); ConvertToGrayScale(bmp); Canvas.Draw(10,10,bmp); finally bmp.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.