掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータにするには？ (ID:18559)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
りおりおさんどうもありがとうございます。 サイズが小さくなりました。 でも、ちょっとおかしいと思われるところがあります。 縮小した画像は３２ビット（デスクトップ表示）だったのに 色圧縮されたような絵になってしまいます。 どうしてでしょうか？ ソースは以下だけです。 procedure TForm1.FormCreate(Sender: TObject); begin BmpSource := TBitmap.Create; BmpDest := TBitmap.Create; BmpDest.Width := 320; BmpDest.Height := 240; end; procedure TForm1.FormDestroy(Sender: TObject); begin BmpSource.Free; BmpDest.Free; end; procedure TForm1.Button1Click(Sender: TObject); begin GetDeskTopBitmap(BmpSource); BmpDest.Canvas.CopyRect(Rect(0, 0, BmpDest.Width, BmpDest.Height), BmpSource.Canvas, Rect(0, 0, BmpSource.Width, BmpSource.Height)); BmpDest.SaveToFile('D:Test.bmp'); end;
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.