Load a jpeg file into a blob field using SQL

Delphi/Pascal

procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; begin if OpenPictureDialog1.Execute then begin ms := TMemoryStream.Create; try ms.LoadFromFile(OpenPictureDialog1.FileName); with Query1 do begin with SQL do begin Clear; Add('INSERT INTO "ImageTbl.db" (ImageFld)'); Add('VALUES (:param0 )'); end; Query1.ParamByName('param0').SetBlobData(ms.Memory, ms.Size); ExecSQL; end; finally ms.Free; end; end; end;

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25

procedure TForm1.Button1Click(Sender: TObject); var ms: TMemoryStream; begin if OpenPictureDialog1.Execute then begin ms := TMemoryStream.Create; try ms.LoadFromFile(OpenPictureDialog1.FileName); with Query1 do begin with SQL do begin Clear; Add('INSERT INTO "ImageTbl.db" (ImageFld)'); Add('VALUES (:param0 )'); end; Query1.ParamByName('param0').SetBlobData(ms.Memory, ms.Size); ExecSQL; end; finally ms.Free; end; end; end;