掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
1bitBmp->Buffer取り込み方法 (ID：23364)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
現在、1bitBmpを読み込みデータ部分をバッファに書き込みたいのですがどうしても、うまくいきません。 ものすごく致命的な間違いをしているのだと思いますが 恥ずかしながら現状分かりません。 どなかたお教え願えないでしょうか？ 下が、現在書き込んだソースです。 var Bm : TBitmap; BmBuff : Array of Byte; PLine : PByteArray; y, x : Integer; w, h : Integer; begin Bm := TBitmap.Create; Bm.LoadFromFile('C:\test.bmp'); w := (Bm.Width + 7) div 8; h := Bm.Height; SetLength(BmBuff, w * h); for y := 0 to h - 1 do begin PLine := Bm.ScanLine[y]; for x := 0 to w do begin BmBuff[x + y*w] := PLine[x]; end; end; end; お手数ですが、お願いいたします。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.