Форум по Delphi программированию

Delphi Sources



Вернуться   Форум по Delphi программированию > Все о Delphi > Базы данных
Ник
Пароль
Регистрация <<         Правила форума         >> FAQ Пользователи Календарь Поиск Сообщения за сегодня Все разделы прочитаны

Ответ
 
Опции темы Поиск в этой теме Опции просмотра
  #1  
Старый 05.03.2011, 19:20
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию Тип Image в MS SQL

Доброго времени суток!
Дали задание автоматизировать библиотеку института. При выполнении задания столкнулся с проблемой. Я создал в MS SQL 2008 таблицу посетителей библиотеки, одному из полей таблицы присвоил тип Image (для хранения фотографии).
Подскажите, как теперь туда закидывать изображения? И как (уже при использовании программы), выбирая одну из строк в Grid'e, у меня (например, используя компонент Image) выводилась фотография читателя?
Заранее благодрен!
Ответить с цитированием
  #2  
Старый 05.03.2011, 19:59
lmikle lmikle вне форума
Модератор
 
Регистрация: 17.04.2008
Сообщения: 8,003
Версия Delphi: 7, XE3, 10.2
Репутация: 49089
По умолчанию

я использовал тип BLOB для хранения картинок.
Загрузка выполняется путем вызова методов LoadFromFile/LoadFromStream у поля.
В TImage потом загружается "руками" опять же через SaveToStream.

Почему использовал BLOB - что бы хранить в БД картинки в виде JPEG, т.к. если пользоваться стандартным компонентом TImage, то дельфи норовит хранить их как Bitmap.
Ответить с цитированием
  #3  
Старый 05.03.2011, 20:29
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию

Цитата:
Сообщение от lmikle
я использовал тип BLOB для хранения картинок.
Загрузка выполняется путем вызова методов LoadFromFile/LoadFromStream у поля.
В TImage потом загружается "руками" опять же через SaveToStream.

Почему использовал BLOB - что бы хранить в БД картинки в виде JPEG, т.к. если пользоваться стандартным компонентом TImage, то дельфи норовит хранить их как Bitmap.

lmikle, если Вас не затруднит, не могли бы Вы написать код, как это надо реализовать...так как с потоками не работал! Буду очень признателен!
Ответить с цитированием
  #4  
Старый 06.03.2011, 11:54
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Ну вот так я писал как-то в блоб на MSSQL:
Код:
 TBlobField(AdoQuery1.FieldByName('Photo')).LoadFromFile(OpenDialog1.Files.Strings[i]);
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
  #5  
Старый 06.03.2011, 11:56
Kapitoshka438 Kapitoshka438 вне форума
Начинающий
 
Регистрация: 09.11.2009
Сообщения: 145
Репутация: 238
По умолчанию

Код:
var
  Stream: TFileStream;
begin
  Stream := TFileStream.Create('Temp.jpg', fmCreate);
  TBlobField(Table.FieldByName('Photo')).SaveToStream(Stream);
  Stream.Free;
  Image1.Picture.LoadFromFile('Temp.jpg');
  DeleteFile('Temp.jpg');
end;
Ответить с цитированием
  #6  
Старый 06.03.2011, 12:31
jekahm jekahm вне форума
Новичок
 
Регистрация: 01.06.2009
Сообщения: 54
Репутация: 27
По умолчанию

А класс TBlobField в коде необходимо определять (TBlobField = class(TField))?
Ответить с цитированием
  #7  
Старый 06.03.2011, 12:50
Аватар для Страдалецъ
Страдалецъ Страдалецъ вне форума
Гуру
 
Регистрация: 09.03.2009
Адрес: На курорте, из окна вижу теплое Баренцево море. Бррр.
Сообщения: 4,721
Репутация: 52347
По умолчанию

Нет, это уже предопределенный класс со своими методами в DB.
__________________
Жизнь такова какова она есть и больше никакова.
Помогаю за спасибо.
Ответить с цитированием
Ответ


Delphi Sources

Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск
Опции просмотра
Комбинированный вид Комбинированный вид

Ваши права в разделе
Вы не можете создавать темы
Вы не можете отвечать на сообщения
Вы не можете прикреплять файлы
Вы не можете редактировать сообщения

BB-коды Вкл.
Смайлы Вкл.
[IMG] код Вкл.
HTML код Выкл.
Быстрый переход


Часовой пояс GMT +3, время: 17:30.


 

Сайт

Форум

FAQ

RSS лента

Прочее

 

Copyright © Форум "Delphi Sources" by BrokenByte Software, 2004-2023

ВКонтакте   Facebook   Twitter