Menyimpan Image Di database

// Menyimpan Image Di database .

// Sebelumnya Image yang Mau Disimpan Harus Berupa BMP
// Kemudian Dalam Database anda Type data yang digunakan Longblob ..
// Kemudian Masukkan kode ini di Button


var gambar : TMemorystream;
begin
Try
      gambar := TMemorystream.Create;
      Image1.Picture.Graphic.SaveToStream(gambar);
      ADOQuery1.Close;
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text := 'insert into tb_foto (foto) values (:p0)';
      ADOQuery1.Parameters[0].LoadFromStream(gambar,ftBlob);
      ADOQuery1.ExecSQL;
Finally
Showmessage('Success') ;
  end;
end;