Скачать: CL | DM;

Загрузка картинки в поле БД(парадокс)   Найти похожие ветки 

← →
Стражник   (2003-06-19 08:13) [0]

Подскажите пожалуйста!

На форме установлен DBimage
Через BUTTON вызываю диалог выбора рисунка в формате BMP
(OpenPictureDialog)..
Как записать в Поле БД выбранный рисунок?? какого типа должно быть это поле БД??
Если напрямую рисунок записать нельзя , то можно записать путь в поле.. но как потом в DBimage загрузить его после этого ??

С уважение Страж

---

← →
Dimich1978 ©   (2003-06-19 08:33) [1]

Тип поля таблицы Graphics
DBimage.loadfromfile(имя файла);

---

← →
Стражник   (2003-06-19 08:45) [2]

2 Dimich1978 ©
Ставлю поле как Graphics и ставлю размер 200..
При сохранении изменении дает
Field FOTO: existing field type cannot be converted to requested type. ((

И еще вопрос.. никак нельзя загружать картинки в формате JPG. Пробоапл.. дает ошибку

---

← →
Ru ©   (2003-06-19 09:31) [3]

поле должно быть BLOB, загружать можно через потоки - дешево и сердито (JPG тоже можно так загрузить, да что угодно можно через потоки впихнуть)

---

← →
Dimich1978 ©   (2003-06-19 09:32) [4]

это кажется проблема с цветами, должно быть не более 256 цветов иначе ошибка. Попробуй какую нибудь картинку с количеством цветов 16 например или 256, если пройдет сам понимаешь.
Да на пряve. нельзя грузить необходимо создавать объект класса jpg. Сейчас попробую написать. попозже точнее сейчас занят.

---

← →
Dimich1978 ©   (2003-06-19 09:35) [5]

Да согласен меняй на BLOB и вот для него из ОТВЕТОВ ГОТОВЫХ:
Подскажите как правильно показать на экpане и сохранить в базе картинку формата JPEG?

23 июл 2002 (вторник), 17:40:05



Ответ:

if Picture.Graphic is TJPegImage then
begin
bs:=TBlobStream.Create(TBlobField(Field),bmWrite);
Picture.Graphic.SaveToStream(bs);
bs.Free;
end
else if Picture.Graphic is TBitmap then
begin
Jpg:=TJPegImage.Create;
Jpg.CompressionQuality:=...;
Jpg.PixelFormat:=...;
Jpg.Assign(Picture.Graphic);
Jpg.JPEGNeeded;
bs:=TBlobStream.Create(TBlobField(Field),bmWrite);
Jpg.SaveToStream(bs);
bs.Free;
Jpg.Free;
end else Field.Clear;

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.46 MB
Время: 0.01 c