Ввод и вывод изображения из базы данных

@Inkognitoo · Регистрация: 03.10.2012

Студворк — интернет-сервис помощи студентам

Я дико извиняюсь за создание этой темы, но самостоятельный поиск результатов не дал, а сроки поджимают.
Мне очень нужны статьи/исходники, на тему:
1. Запись изображения в базу данных.
2. Чтение изображения из базы данных.
3. Удаление n-го изображения из базы данных.

Буду очень благодарен любой помощи.

@droider · 24.12.2012, 21:20

Сообщение от Inkognitoo

1. Запись изображения в базу данных.
2. Чтение изображения из базы данных

Отвечал на подобную тему. Здесь их не мало.
Кидаешь на форму DBImage и PictureDialog. DBImage привязываешь к полю типа OLE, в которое будет загружаться фото. Дальше код (обработчик - нажатие кнопки)

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses jpeg;
     
    procedure TForm1.Button1Click(Sender: TObject);
    var
      jpeg: TJPEGImage;
      bmp: TBitmap;
    begin
      if  PictureDialog1.Execute then
      begin
        jpeg := TJPEGImage.Create;
        bmp := TBitmap.Create;
        try
          jpeg.LoadFromFile(PictureDialog1.FileName);
          bmp.Assign(jpeg);
          ADOTable1.Edit;                  // режим редактирования
          ADOTable1.FieldByName('Foto').Assign(bmp);//загрузка фото
          ADOTable1.Post;                  // сохраняем данные
        finally
          jpeg.Free;
          bmp.Free;
        end;
      end;
    end;

Предварительно не забудь подключить модуль jpeg (см. выше).

Добавлено через 1 минуту
Этот код позволит загружать файлы JPEG формата в базу данных. Отображаться они будут в DBImage.

@pirat2k · 26.11.2013, 19:59

а как это через Query сделать??

27.11.2013, 01:38

Вобщем делаю Адресную книгу, для курсача, дошёл до картинки, и тут началось всё веселье, гляньте плз код, мож что подскажите что не так...

1. когда загружаю картинку, то создается новая запись, т.е нажимаю "Добавить контакт" оно переходит на новое поле(создается новая запись), и при загрузке картинки оно опять же переходит на новое поле, получается та запись+ еще одна
2. Ошибка Unknown picture file extension

Кликните здесь для просмотра всего текста

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
procedure TForm2.AddFiles(filename: string);
begin
Image1.Picture.LoadFromFile(OpenDialog1.FileName);
//OpenDialog1.FileName;
 Image1.AutoSize:=False;
Image1.Stretch:=Enabled;
Image1.Width:=201;
Image1.Height:= 201;
end;
 
 
procedure TForm2.BitBtn1Click(Sender: TObject);
var i:integer;
begin
Form1.ADOQuery1.Post;
close;
i:=Form1.DBGrid1.DataSource.DataSet.RecordCount;
  Form1.StatusBar1.Panels.Items[0].Text:='Êîíòàêòû: ' +IntToStr(i);
end;
 
procedure TForm2.BitBtn2Click(Sender: TObject);
begin
close;
end;
 
procedure TForm2.BitBtn3Click(Sender: TObject);
begin
  if not OpenDialog1.Execute then
    exit;
 
  AddFiles(OpenDialog1.FileName);
  With Form1.ADOQuery1 do begin
  Connection:=Form1.ADOConnection1;
   form1.ADOQuery1.edit;
  form1.ADOQuery1.Insert;
  if Form1.DBGrid1.fields[15].Text = '' then
    DBEdit15.Field.Text:=OpenDialog1.FileName
  else
   // Form1.DBGrid1.fields[15].Clear;
    Post;
  end;
end;
 
 
procedure TForm2.BitBtn4Click(Sender: TObject);
var  nullfield: TField;
     ds: TDataSet;
     j:integer;
begin
     nullfield:=nil;
     ds:=Form1.DBGrid1.Datasource.dataSet;
   for j:=0 to ds.fields.count-1 do
        if ds.fields[j].IsNull then
        begin
            nullfield:=ds.fields[j];
        end;
    BitBtn4.Enabled:=(nullfield=nil);
    if nullfield<>nil then
      begin
        Image1.AutoSize:=False;
        Image1.Stretch:=Enabled;
        Image1.Width:=201;
        Image1.Height:= 201;
              if form1.DBGrid1.fields[15].Text <> '' then
                Image1.Picture.LoadfromFile(Form1.DBGrid1.fields[15].Text)
              else
                Image1.Picture:=nil;
              end;
                                    end;
 
end.

Впринцепе кнопочно всё работет, а вот автоматизировать не получается.
Алгоритм такой при нажатии BitBtn3 выскакивает OpenDialog1 выбираем картинку, оно загружает картинку+кидает адрес картинки в dbedit.

@droider · 27.11.2013, 09:17

Сообщение от pirat2k

как это через Query сделать??

можно по аналогии

Новые блоги и статьи Все статьи Все блоги /
Отчёт о затраченных материалах за определенный период с макетом печатной формы Maks 21.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: показать затраченные материалы за определенный период, с возможностью вывода печатной формы отчёта с шапкой и подвалом. В качестве. . .	Отчёт о спецтехнике находящейся в ремонте Maks 20.04.2026 Отчёт из решения ниже размещен в конфигурации КА2. Задача: отобразить спецтехнику, которая на данный момент находится в ремонте. Есть нетиповой документ "Заявка на ремонт спецтехники" который. . .	Памятка для бота и "визитка" для читателей "Semantic Universe Layer (Слой семантической вселенной)" Hrethgir 19.04.2026 Сгенерировано для краткого описания по случаю сборки и компиляции скелета серверного приложения. И пусть после этого скажут, что статьи сгенерированные AI - туфта и не интересно. И это не реклама -. . .	Запрет удаления строк ТЧ документа при определённом условии Maks 19.04.2026 Алгоритм из решения ниже реализован на примере нетипового документа "Аккумуляторы", разработанного в конфигурации КА2. У данного документа есть ТЧ, в которой в зависимости от прав доступа. . .
Модель заражения группы наркоманов alhaos 17.04.2026 Условия задачи сформулированы тут Суть: - Группа наркоманов из 10 человек. - Только один инфицирован ВИЧ. - Колются одной иглой. - Колются раз в день. - Колются последовательно через. . .	Мысли в слух. Про "навсегда". kumehtar 16.04.2026 Подумалось тут, что наверное очень глупо использовать во всяких своих установках понятие "навсегда". Это очень сильное понятие, и я только начинаю понимать край его смысла, не смотря на то что давно. . .	My Business CRM MaGz GoLd 16.04.2026 Всем привет, недавно возникла потребность создать CRM, для личных нужд. Собственно программа предоставляет из себя базу данных клиентов, в которой можно фиксировать звонки, стадии сделки, а также. . .	Знаешь почему 90% людей редко бывают счастливыми? kumehtar 14.04.2026 Потому что они ждут. Ждут выходных, ждут отпуска, ждут удачного момента. . . а удачный момент так и не приходит.

@Inkognitoo 9 / 9 / 0 Регистрация: 03.10.2012 Сообщений: 77

	Ввод и вывод изображения из базы данных 24.12.2012, 19:34. Показов 6110. Ответов 4 Метки нет (Все метки) Я дико извиняюсь за создание этой темы, но самостоятельный поиск результатов не дал, а сроки поджимают. Мне очень нужны статьи/исходники, на тему: 1. Запись изображения в базу данных. 2. Чтение изображения из базы данных. 3. Удаление n-го изображения из базы данных. Буду очень благодарен любой помощи. 0

@pirat2k 11 / 11 / 8 Регистрация: 18.09.2012 Сообщений: 514
	26.11.2013, 19:59
	а как это через Query сделать?? 0

Опции темы