掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
縮小した画像をファイルに保存するには？ (ID:43723)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TGPGraphics はキャンバスなので保存機能が無いので 描画先を TGPGraphics.Create(Bitmap2.Canvas.Handle); でビットマップに変えて、 縮小後 Jpeg に変換して保存 procedure TForm4.Button1Click(Sender: TObject); var graphics : TGPGraphics; bmp: TGPBitmap; w, h: double; Bitmap2: TBitmap; Jpeg: TJpegImage; begin Jpeg := TJpegImage.Create; Bitmap2 := TBitmap.Create; bmp := TGPBitmap.Create('Penguins.jpg'); w :=bmp.GetWidth * 0.2; h :=bmp.GetHeight * 0.2; Bitmap2.SetSize(Round(W),Round(H)); graphics := TGPGraphics.Create(Bitmap2.Canvas.Handle); try graphics.SetInterpolationMode(InterpolationModeHighQualityBicubic); graphics.DrawImage(bmp, MakeRect(0, 0, w, h)); finally bmp.Free; graphics.Free; end; Jpeg.Assign(Bitmap2); Jpeg.SaveToFile('Penguins2.jpg'); Bitmap2.Free; Jpeg.Free; end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.