Главная страница
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.016 c
8-20172
Raiden
2003-03-16 09:20
2003.07.07
Проблема со скоростью DelphiХ-игры


7-20324
Alta
2003-04-25 02:23
2003.07.07
добавить юзеров на win2000


1-20133
Onward
2003-06-22 23:38
2003.07.07
Вопрос по свойству формы AlphaBlend?


4-20351
circul
2003-05-03 16:06
2003.07.07
Проблема с прорисовкой клиентской обл. окна.


1-20116
sach
2003-06-24 19:02
2003.07.07
непосредственный доступ к памяти