画像サイズの変更 (ID:7104)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 それは、Width,Heightを小さくしたいと言うことでしょうか。 サイズが、ファイルサイズなのか、画像の幅・高さなのか曖昧です。 > 縦横の比率はそのままで ということなので、幅・高さの変更と仮定します。 BMPの場合です。JPEGも大差ありません。 縦横１／２にしています。 procedure TForm1.Button1Click(Sender: TObject); var bmp, bmp2: TBitmap; dW,dH: double; begin bmp := nil; bmp2 := nil; try bmp := TBitmap.Create; bmp.LoadFromFile('C:\tmp.bmp'); dW := bmp.Width; dH := bmp.Height; bmp2 := TBitmap.Create; bmp2.Width :=Ceil(dW / 2); bmp2.Height :=Ceil(dH / 2); bmp2.Canvas.StretchDraw(RECT(0,0,bmp2.Width-1,bmp2.Height-1), bmp); bmp2.SaveToFile('C:\tmp2.bmp'); finally if Assigned(bmp) then bmp.Free; if Assigned(bmp2) then bmp2.Free; end; end;