Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.07.07;
Скачать: 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 вся ветка

Текущий архив: 2003.07.07;
Скачать: CL | DM;

Наверх




Память: 0.48 MB
Время: 0.011 c
3-19969
Vladimir S Hudyakov
2003-06-10 15:23
2003.07.07
Инсталляция BDE


14-20304
Polevi
2003-06-20 10:07
2003.07.07
Резюме


14-20278
alxx
2003-06-18 15:25
2003.07.07
Как врубить двустороннюю печать у драйвера принтера?


14-20224
kaif
2003-06-18 19:24
2003.07.07
Средняя себестоимость и точность?


1-20075
SM
2003-06-24 01:51
2003.07.07
Как связать файлы со своим приложением?