掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
サーバにある画像をDelphiで表示させるには？ (ID：13237)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
どうにか調べて自分なりにやってみたのですが 下のソースでは、”無効なクラス型キャスト”という 例外が発生してしてしまいます。 どこか間違っているのでしょうか。。。 // BLOB 項目に保存する例 procedure TForm1.Button1Click(Sender: TObject); var Ime1: TBitmap; Strm: TBlobStream; begin ADOQuery1.Active:=True; ADOTable1.Active:=True; Ime1:=Image1.Picture.Bitmap; ADOTable1.Edit; ADOTable1.Insert; { BLOB ストリームを作成 } Strm := TBlobStream.Create(TBlobField(ADOTable1.FieldByName('GAZOU')), bmWrite); try { BITMAP データをストリームに保存 } Ime1.SaveToStream(Strm); ADOTable1.Post; finally Strm.Free; Ime1.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.