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

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

как сохранить Jpeg  в базе данной [D6, Paradox]

Gleb ©   (2002-08-17 23:23:00) 

Помогите пожалуйста. Как сохранить графику в формате jpg в Базе данной (Paradox) но не превращая её в BMP. И какое для этого нужно поле.

---

Lola   (2002-08-18 13:49:00) [1]

Включаешь в Uses Jpeg.

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

---

Наверх