掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
連続したJPEGストリームデータの読み込みで１ファイルづつ読み込むには？ (ID：11896)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
JPEGファイルの連続したデータをストリームで保存したのですが 読み込みがどうしても上手くいきません var FolderThu: TFileStream; con,i: integer; begin FolderThu := TFileStream.Create(Path+'\test.dat',fmCreate); //conにはファイル数が入ってます //JPEGのファイル数を書き込み FolderThu.Write(con,SizeOf(integer)); jpg := TJPEGImage.Create; Bmp := TBitmap.Create; jpg.JPEGNeeded; jpg.CompressionQuality := 30; jpg.Compress; for i := 0 to con do begin （省略・・・・画像を読み込んで縮小したものがpic.Bitmapに入ります） jpg.Assign(Pic.Bitmap); jpg.SaveToStream(FolderThu); end; （省略・・・オブジェクトの解放） データはこのように作成されます バイナリで確認しても確かに連続して書き込まれていました 個数を読み込んだあと jpg.LoadFromStream(FolderThu); このようにして読み込ませたのですが FolderThu.Positionを確認するとストリームの一番最後まで読み込んでいました 結果的に次のファイルが読み込めず困っています 読み込み前に必ずseekしなければならないのでしょうか？ （しかし１ファイル目を読み込むときのポジションは間違いなくJPEGファイルの先頭でしたし・・・
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.