掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
バイナリデータをビットマップ形式の画像にするには？ (ID：32478)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ご指摘ありがとうございます。以後気をつけます。 エラーで二回送信されたのも申し訳ないです。 コードは以下のようにして再度試したのですがやはりプロジェクトが応答しない状態になってしまいました。ＣＰＵ使用率100％でした。 XPでintelのceleronです。 この場合、やはりコードがどこかおかしいのが疑われると思うのですが。 以下にコードを貼り付けます。 たびたびすみませんが、指摘いただけるとありがたいです。 procedure TForm1.Button2Click(Sender: TObject); var data : WORD; cnt: WORD; buff:WORD; i,j: WORD; begin with TFileStream.Create('ファイル名', fmOpenRead) do try // 2Byte単位で読み込み // Position := 0; while True do begin cnt := Read(data, Sizeof(data)); if cnt < Sizeof(data) then break; buff:=trunc(data/16); if buff>255 then buff:=255; //12bitから8bitに変換 for i := 0 to 311 do for j := 0 to 239 do begin Image1.Canvas.Pixels[i,j]:=RGB(buff,buff,buff); end; end; finally Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.