掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サーバにある画像をDelphiで表示させるには？ (ID：13238)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
TBlobStreamはTADOBlobStreamに変えましょう。 ADOQuery1とADOTable1がごっちゃになっているようです。 どちらかにしましょう。 また、EditとInsertは同時に使用できません。 Delphi FAQより引用します。 //TBlobStreamは必ずTable.Editよりも後でCreateしなければならず、 //Table.Postの前までにFreeしなければならない。 これでどうでしょう。 var Ime1: TBitmap; ID : Integer; Strm: TADOBlobStream; begin ADOTable1.Active:=True; Ime1:=Image1.Picture.Bitmap; ADOTable1.Insert; { BLOB ストリームを作成 } Strm := TADOBlobStream.Create(TBlobField(ADOTable1.FieldByName('IMAGE')), bmWrite); try { BITMAP データをストリームに保存 } Ime1.SaveToStream(Strm); //Strmを使わない場合、 //ADOTable1.FieldByName('IMAGE').Assign(Image1.Picture); Strm.Free; Ime1.Free; ADOTable1.Post; finally ADOTable1.Close; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.