Запись картинки с Image в БД Access

← →
npr2 (2005-10-04 06:47) [0]

Помогите, плиз! Необходимо сохранить в БД в поле картинку с Image. Не могу определить как передать параметр, т.е. нужно получить типа Q.ParambyName("p1").*:= Image.picture.bitmap
Или как-то нужно по другому поступить.

← →
Desdechado © (2005-10-04 10:24) [1]

LoadFromStream
SaveToStream

← →
npr2 (2005-10-04 10:52) [2]

сохраняю кадр видео на Image
VideoGrabber1.CaptureFrameTo(fc_TBitmap);
создаю поток
stream:=TMemoryStream.Create;
картинку сохраняю в файл и поток
BitM:=Image6.Picture.Bitmap;
BitM.SaveToFile("tt.bmp");
BitM.SaveToStream(stream);
stream.Position:=0;
распечатываю размер потока stream.saze-он равен 0.
сохраняю поток в БД - поле пусто
Insert_BR_Q.ParamByName("p23").LoadFromStream(stream,ftBlob);
если сохраняю в БД как файл, то сохраняется картинка предыдущего кадра, который записывался в файл. Такое впечатление, что файл не успевает закрыться.
// Insert_BR_Q.ParamByName("p23").LoadFromFile("tt.bmp",ftBlob);
Insert_BR_Q.ExecSQL;
stream.Free;
Как выйти из этой ситуации я не знаю. В чем я неправа.

← →
Desdechado © (2005-10-04 11:32) [3]

stream.free надо делать ПЕРЕД execsql, если я правильно помню

← →
Виталий Панасенко (2005-10-04 12:29) [4]

Только формат Bitmap...я на Релибе ответил

Tbl.Append;
TblBMP.Assign(Image1.Picture.Bitmap);
Tbl.Post;
Qry.ParamByName("bmp").Assign(Image1.Picture.Bitmap);
Qry.ExecSQL;
Tbl.Refresh;
Tbl.Last;

← →
Виталий Панасенко (2005-10-04 12:29) [5]

Удалено модератором

Можешь воспользоваться набором компонентов ImageEn. Там все решено с загрузкой и отображением картинок большинства популярных форматов (в том числе jpeg и gif) в базу и реализация очень простая.

Запись картинки с Image в БД Access Найти похожие ветки