Главная страница
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
14-20290
Demon[DZ]
2003-06-20 11:10
2003.07.07
LPT


14-20194
INCOGNITO
2003-06-21 02:21
2003.07.07
Архивы


4-20363
atruhin
2003-05-05 12:51
2003.07.07
Service NT помогите! Срочно! Пожалуйста!


14-20245
Bboy
2003-06-19 18:34
2003.07.07
Как попасть в автозагрузку к Win 2000???


3-20002
Cranium
2003-06-13 14:42
2003.07.07
Можно ли получить список таблиц открытых пользователем ...