掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
GIF画像の読み書き (ID:44800)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
Delphi2007なんですが、 画像をファイルから読んでストリームに保存するプログラムを作っています。 BitmapやJpegは問題ないのですが、Gifの場合にストリームから読み出すと サイズが倍になるという現象が発生します。 ファイルから読んで Picture.LoadFormFile(…) ↓ データベースに保存 Picture.Graphic.SaveToStream(…) (DataSet.FieldByName(…) as TBlobField).LoadFormStream(…) ↓ データベースから読み出し (DataSet.FieldByName(…) as TBlobField).SaveToStreamam(…) Picture.Graphic := 画像別のTGraphic派生クラス.Create; Picture.Graphic.LoadFromStream(…) →この時点で、データベースから読み出したストリームは正常なのですが、 LoadFromStreamの直後にSaveToStreamしてみると2倍のサイズになってしまいます。 その画像をTImageで表示しても見た目の不具合はありません。サイズが大きいので処理は重くなりますが。 保存〜読み出しを繰り返すと倍倍で大きくなり、いずれフリーズします。 TGIFImageの不具合か何かでしょうか？回避策があれば教えてください。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.