bmp :TGPBitmapをjpg(またはbmp)ファイルに保存するには。 (ID:42039)

名前

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

本文

ググれば出てきますぞー。
「めもニャンだむ」さんのHP
http://blog.livedoor.jp/junki560/archives/22895515.html

//GDI+を使った方法
procedure TForm1.Button3Click(Sender: TObject);
var
  graphics :TGPGraphics;
  bmp :TGPBitmap;
begin
  graphics := TGPGraphics.Create(Canvas.Handle);
  bmp := TGPBitmap.Create(Edit1.Text);
  try
    bmp.RotateFlip(Rotate90FlipNone);//90°回転
    graphics.DrawImage(bmp, 0, 0);
    bmp.Save(Edit1.Text + '_R.bmp',ImageBMPClsid );
  finally
    bmp.Free;
    graphics.Free;
  end;
end;

//TBitmapを使った方法
procedure TForm1.Button4Click(Sender: TObject);
var
  graphics :TGPGraphics;
  bmp :TGPBitmap;
  bmp2:TBitmap;
begin
  bmp := TGPBitmap.Create(Edit1.Text);
  bmp2 := TBitmap.Create;
  bmp2.SetSize(bmp.GetHeight,bmp.GetWidth);
  graphics := TGPGraphics.Create(bmp2.Canvas.Handle);
  try
    bmp.RotateFlip(Rotate90FlipNone);//90°回転
    graphics.DrawImage(bmp, MakeRect(0, 0, bmp2.Width, bmp2.Height));
    bmp2.SaveToFile(Edit1.Text + '_R2.bmp');
  finally
    bmp.Free;
    graphics.Free;
    bmp2.Free;
  end;
end;

←解決時は質問者本人がここをチェックしてください。

戻る