掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータをビットマップ形式の画像にするには？ (ID：32471)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご回答ありがとうございます。 初心者ですのでPixelsプロパティを使用したのですが、 斜めに線が一本入るだけで画像にできません。 Ｊ：＝０にしたら一列だけはできるのですが、一ライン312ピクセルの、二列目以降がうまくいかない状態です。 inc(i)では二列目以降はできないのでしょうか？ 他の方法を教えていただけるとありがたいです。 procedure TForm1.Button2Click(Sender: TObject); var data : WORD; cnt: WORD; buff:WORD; i,j: WORD; begin i :=0 ; j :=0 ; with TFileStream.Create('ファイル名', fmOpenRead) do try while True do begin cnt := Read(data, Sizeof(data)); if cnt < Sizeof(data) then break; buff:=trunc(data/16); //12ビットのデータを8ビットに if buff>255 then buff:=255; begin Image1.Canvas.Pixels[i,j]:=RGB(buff,buff,buff); end; inc(i) ; inc(j) ; end; finally Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.