Главная страница
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.013 c
1-20153
agressor
2003-06-25 01:57
2003.07.07
Подмена системных цветов


1-20045
Maksss
2003-06-25 13:47
2003.07.07
Listview


14-20268
Holy
2003-06-19 21:14
2003.07.07
Как вам высказывание


3-19975
GavAl
2003-06-12 17:05
2003.07.07
Эксорт (Импорт) данных в 1С


1-20051
Kostya
2003-06-25 11:27
2003.07.07
как получить число Integer зная его два Byte