掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータにするには？ (ID：18556)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
以下のように作成してみました。 BmpSource には 1600X1200 のビットマップデータがあります。 Image1 （現在 60X45）は縮小されたデータが表示されています。 BmpDest に データをコピーしましたが、縮小されたデータではなく 1600X1200 の左上の 60X45 の部分だけがコピーされます。 procedure TForm1.Button1Click(Sender: TObject); var Rect Area; begin GetDeskTopBitmap(BmpSource); //←DeskTop の画像取得 Image1.Picture.Bitmap.Assign(BmpSource); //←Image1 に貼り付け BmpDest.Width := Image1.Width; BmpDest.Height := Image1.Height; Area = Rect(0, 0, Image1.Widht - 1, Image1.Height - 1); BmpDest.Canvas.CopyRect(Area, Image1.Canvas, Area); BmpDest.SaveToFile('D:\Test.bmp'); ShowMessage(IntToStr(MemStr.Size)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.