| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Картинка в базе [D7, Paradox]

Vital_k ©   (2006-06-15 15:34:00) 

Здравствуйте
подскажите плиз каким образом записать картинку, которая загружена в image, в базу данных. И соответственно, как эту картинку считать с базы обратно в image

---

Desdechado   (2006-06-15 15:55:00) [1]

Pe+erBuild ©   (15.06.06 15:51) [1]
твой вариант прокатит только с BMP

---

Desdechado   (2006-06-15 15:54:00) [2]

Query1.Sql.Text :=
  'INSERT INTO testblob ' +
  ' ( ' +
  '  fBlob' +
  ' )' +
  ' VALUES' +
  ' (' +
  ' :ParamBlobField' +
  ')';
Query1.ParamByName('ParamBlobField').DataType := ftBlob;
Query1.ParamByName('ParamBlobField').ParamType := ptInput;
Query1.ParamByName('ParamBlobField').LoadFromFile('MyFile',ftBlob);
Query1.ExecSql;

--

var stream: TMemoryStream;
..

stream := TMemoryStream.Create;
try
stream.Size := IBStoredProc.Param[..].GetDataSize;
IBStoredProc.Param[..].GetData(stream.Memory);
..
Image.Picture.Bitmap.LoadFromStream(stream);
finally
stream.Free;end;

---

Pe+erBuild   (2006-06-15 15:51:00) [3]

Используй компонент TDBImage! Привяжи его к полю оно должно быть типа Graphic. Потом грузи в него картинку от куда хочешь: с файла, буфера, image

---

Наверх