Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > Delphi программирование > БД в Delphi
Регистрация

Восстановить пароль
Повторная активизация e-mail

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 04.04.2012, 11:55   #1
BastAngel
Пользователь
 
Аватар для BastAngel
 
Регистрация: 02.06.2010
Сообщений: 53
По умолчанию Зигрузка картинок в БД из под делфи

Как можно загрузить картинки в БД (Access) работая в делфи?
BastAngel вне форума Ответить с цитированием
Старый 04.04.2012, 12:10   #2
i_Alishka
фифти-фифти
Пользователь
 
Аватар для i_Alishka
 
Регистрация: 29.03.2012
Сообщений: 38
По умолчанию

Код:
procedure TForml.OpenImageFromFileButtonClick(Sender: TObject); 

begin 
  if OpenDialog1.Execute then 
   begin 
     ADOTable1.Edit; 
     ADOTable1lmage.LoadFromFile(OpenDialogl.FileName); 
     ADOTable1.Post; 
     end; 
 end;
а когда создаешь базу то в таблице надо создать поле под бинарные данные,
например поле Image-тип данных (поле объекта OLE)
i_Alishka вне форума Ответить с цитированием
Старый 04.04.2012, 12:15   #3
BastAngel
Пользователь
 
Аватар для BastAngel
 
Регистрация: 02.06.2010
Сообщений: 53
По умолчанию

ADOTable1lmage <==== вот это что? не могу понять просто.
BastAngel вне форума Ответить с цитированием
Старый 04.04.2012, 12:23   #4
BastAngel
Пользователь
 
Аватар для BastAngel
 
Регистрация: 02.06.2010
Сообщений: 53
По умолчанию

И да как указать поле в которое мы хотим загрузить картинку? У меня поле в таблице называется "Фото"
BastAngel вне форума Ответить с цитированием
Старый 04.04.2012, 12:30   #5
BastAngel
Пользователь
 
Аватар для BastAngel
 
Регистрация: 02.06.2010
Сообщений: 53
По умолчанию

Я нашел такой код.

Код:
if OPD.Execute then Exit;
DM.MenuTable.Edit;
TBlobField(DM.MenuTable.FieldByName('Ôîòî')).LoadFile(OPD.FileName);
DM.MenuTable.Post;
Но та TBlobField ругается пишет что
Код:
[Error] Unit1.pas(51): Undeclared identifier: 'TBlobField'
BastAngel вне форума Ответить с цитированием
Старый 04.04.2012, 12:36   #6
i_Alishka
фифти-фифти
Пользователь
 
Аватар для i_Alishka
 
Регистрация: 29.03.2012
Сообщений: 38
По умолчанию

ADOTable1lmage это название поля. сначала в таблице задай для ФОТО-тип данных (поле объекта OLE). открой ADOTable кликнув по нему два раза, появится маленькое окошко, в нем кликни правой кнопкой мыши и выбери пункт 'Add all fields' у тебя появиться список названий полей, там уже выбираешь поле ФОТО и в объектном инспектре смотришь в поле Name там будет что то вроде 'ADOTable1DSDesigner2' или 'ADOTable1имя поля'
i_Alishka вне форума Ответить с цитированием
Старый 04.04.2012, 12:40   #7
i_Alishka
фифти-фифти
Пользователь
 
Аватар для i_Alishka
 
Регистрация: 29.03.2012
Сообщений: 38
По умолчанию

попробуй мой вариант он 100% работает, я его из книги выписал я сам только только начинаю программировать, кстати через этот код можно добавить только изображения с расширением BMP
i_Alishka вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц

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

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Отображение Windows Media Player под XP и под 7 mikhea Мультимедиа в Delphi 1 12.12.2011 01:11
использование swf картинок в делфи 7 Pein95 Общие вопросы Delphi 1 03.12.2010 02:05
Установка Dev Express под Делфи 2006 Яр|/||< (^_^) Компоненты Delphi 0 18.03.2010 18:18
исправить компонент под делфи 2007 Roof Компоненты Delphi 1 31.08.2008 09:09