掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
bmp :TGPBitmapをjpg(またはbmp)ファイルに保存するには。 (ID：42038)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
先に質問させていただいた「GDIを利用したJpegの画像回転」の逆ですが bmpを回転加工などして再び保存したいのですが、うまくいきません。 質問 bmp :TGPBitmapをjpg(またはbmp)ファイルに保存するには。 よろしくご指導をお願いいたします。 procedure TForm1.Button1Click(Sender: TObject); var graphics :TGPGraphics; bmp :TGPBitmap; Jpg: TJPEGImage; X,Y:integer; w, h: double; begin begin //フォームのTGPGraphicsオブジェクトを取得 graphics := TGPGraphics.Create(Image1.Canvas.Handle); bmp := TGPBitmap.Create(OpenDialog1.FileName); try bmp.RotateFlip(Rotate90FlipNone);//90°回転 //Image1は余白が入るのでbmp をここで保存したい。 ？？？？？？？？？ w :=bmp2.GetWidth * ratio; h :=bmp2.GetHeight * ratio; //真ん中に表示 X:= Trunc((Image1.Width- w) / 2); Y:= Trunc((Image1.Height- h) / 2); graphics.DrawImage(bmp, X, Y);//余白が入る finally bmp.Free; graphics.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.