Posts

Showing posts with the label How to save jpg image to database and then load it in Delphi using FIBplus and TImage?

How to save jpg image to database and then load it in Delphi using FIBplus and TImage?

Image
unit uMain; interface {$I CompVer.inc} uses {$IFDEF D6H} Variants, {$ENDIF} Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, DB, DBCtrls, Grids, DBGrids, ABSMain, ABSDecUtil; type TForm1 = class (TForm) tblImages: TABSTable; DBGrid1: TDBGrid; DBImage1: TDBImage; dsImages: TDataSource; GroupBox2: TGroupBox; Label1: TLabel; memQuery: TMemo; tblImagesID: TAutoIncField; tblImagesFilePath: TStringField; tblImagesImage: TBlobField; Label2: TLabel; Label3: TLabel; btnCreateQuery: TButton; btnExecuteQuery: TButton; Label4: TLabel; qryAddImage: TABSQuery; dlgOpen: TOpenDialog; procedure FormCreate(Sender: TObject); procedure btnCreateQueryClick(Sender: TObject); procedure btnExecuteQueryClick(Sender: TObject); procedure memQueryChange(Sender: TObject); private { Private declarations } public { Public declarations } end ; var Form1: T...