掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
先頭2バイトを弄ったファイルを読み込むには (ID：32926)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
procedure TForm1.Crypt; var ms : TMemoryStream; c : array[1..2] of Char; begin ms := TMemoryStream.Create; ms.LoadFromFile('aaa.bmp'); c := 'DA'; ms.Write(c,sizeof(c)); ms.SaveToFile('bbb.bom'); ms.Free; end; procedure TForm1.Load; var ms : TMemoryStream; c : array[1..2] of Char; begin ms := TMemoryStream.Create; ms.LoadFromFile('bbb.bom'); c := 'BM'; ms.Write(c,sizeof(c)); //Image1.Picture.Bitmap.LoadFromStream(ms); ←これがエラー吐く ms.SaveToFile('ccc.bmp'); Image1.Picture.Bitmap.LoadFromFile('ccc.bmp'); DeleteFile('ccc.bmp'); ms.Free; end; 現在ゲームを作っていて、ファイルを見られるのを防ぐために、 Cryptでビットマップファイルの先頭2バイトを弄り（BM→DA）、 Loadでそれを読み込もうとしているのですが・・・ 読み込んでファイルの先頭を修正したあと、 TMemoryStreamから直接TBitmapに読み込ませるとエラーを吐きます。 しかし、SaveToFileでファイルを作るとWindowsではちゃんとビットマップとして読み込めるし そのファイルをTBitmapで読み込むことができます。 一旦ファイルを作成せずに読み込ませる事はできないでしょうか？
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.