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

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

Сохранение *.jpg файла в базе данных [D5, Win95/98, WinME]

Evg_fat ©   (2004-06-09 15:31:00) 

Подскажите пожалуйста! Как сохранить изображение в базе данных (TTable), или скопировать его из TImage

---

Clickmaker   (2004-06-09 20:14:00) [1]

var Stream: TBlobStream;

Stream := TBlobStream.Create(Table1PHOTO, bmWrite);
try
 Jp.SaveToStream(Stream);
finally
 Stream.Free;
end;

---

Alexander_K   (2004-06-09 18:12:00) [2]

В uses включить JPEG
var  Bm: TMemoryStream;
   Jp: TJpegImage;
begin
  Table1.Edit;
  Jp:=TJpegImage.Create;
  Jp.Assign(Image1.Picture.Bitmap);   //Помещаешь изображение в класс  TJpegImage;
  Bm:=TMemoryStream.Create;
  Jp.SaveToStream(Bm); // Сохраняешь Jpeg в потоке
  Bm.Seek(0,0);
  Dm.Table1PHOTO.LoadFromStream(Bm); //Загружаешь Jpeg в поле через поток
  Bm.Free;
  Jp.Free;
  Table1.Post;
end;

---

Наверх