delphi - Delphi で Firebird Blob イメージを実装する方法

Question

いろいろ探しましたが、自分に合うものが見つかりません。これを見つけましたが、必要なものに適合しません。

.jpg フィルタを使用した参照ボタンがありますが、画像を blob フィールドに保存してから TImage に表示する方法がわかりません。

Answer 1

次のコードは、画像をBLOBフィールドに保存する方法を示しています。qEditClass6Questionは、クエリqEditClass6のフィールド「質問」です。画像がblobフィールドに読み込まれると、現在のタプルをデータベースに投稿できます。

Procedure TEditClassSix.LoadPic;
var
 j: TJPEGImage;

begin
 j:= TJPEGImage.Create;
 j.Assign (qEditClass6Question);
 image1.picture.assign (j);
end;