Как сохранить картинку *.bmp в MSSQL

@sasha198407 · Регистрация: 11.11.2009

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

Доброго времени суток. Есть таблица sotrudniki, содержащая поля fio(фио сотрудника), tab_num(табельный номер), iso(фотография сотрудника) в MSSQL

sotrudniki

SQL

    
fio                  VARCHAR(50)
tab_num          VARCHAR(10)
iso                  image

Для заполнения таблицы создал форму в Delphi7. На форме располагаются элементы
MaskEdit2(ФИО), MaskEdit3(Таб. номер), BitBtn1(кнопка для открытия фотографии), OpenPictureDialog1, Button1(для обработчика события заполнения таблицы).
Картинку открываю так

Delphi

procedure TFNewSotrudniki.BitBtn1Click(Sender: TObject);
begin
   if OpenPictureDialog1.Execute then
         BitBtn1.Glyph.LoadFromFile(OpenPictureDialog1.FileName);
end;

Обработчик события заполнения таблицы

Delphi

procedure TFNewSotrudniki.Button1Click(Sender: TObject);
var
i:integer;
  p0:string;
  p1:string;
  p13:TBitmap;
begin
 
//присвоение значений переменным
  p0:=MaskEdit2.Text;  //фио
  p1:=MaskEdit3.Text;  //таб.номер
  p13:=BitBtn1.Glyph;   //фотография
  
   DataModule1.ADOQAddSotrudnik.Close;
   DataModule1.ADOQAddSotrudnik.SQL.Clear;
//добавление данных
   DataModule1.ADOQAddSotrudnik.SQL.Add('INSERT INTO sotrudniki (fio, tab_num, iso)');
   DataModule1.ADOQAddSotrudnik.SQL.Add('VALUES ('+quotedstr(p0)+','+quotedstr(p1)+',:p13)');
   DataModule1.ADOQAddSotrudnik.ExecSQL;
 
//очистка полей
                    MaskEdit2.Text:='';
                    MaskEdit3.Text:='';
end;

Выбрав, картинку и заполнив поля ввод, мы нажимаем на кнопку заполнения таблицы и поля fio, tab_num заполняются, а вот поле iso остаётся пустым. Соответственно сохранение фотографии не происходит. Подскажите пожалуйста, что делать. Заранее спасибо.

@Neavy · 28.04.2012, 12:04

я прикрепляю фото вот так, надеюсь разберешься:

Delphi

var
  MyJpeg: TJpegImage;
  MS: TMemoryStream;
begin
  if OpenPictureDialog1.Execute(Handle) = True then
  begin
    try
      Image1.Picture.LoadFromFile(OpenPictureDialog1.FileName);
      MyJpeg := TJpegImage.Create;
      MyJpeg.Assign(Image1.Picture);
      // MyJpeg.CompressionQuality := 90;
      // MyJpeg.Compress;
      MS := TMemoryStream.Create;
      MyJpeg.SaveToStream(MS);
      MS.Position := 0;
 
      ADOQuery1.SQL.Clear;
      ADOQuery1.SQL.Text :=
        'UPDATE KadrySotrudniki SET Foto=:Foto WHERE id=:id';
      ADOQuery1.Parameters.ParamByName('id').Value := StringGridSotrudnik.Cells
        [10, StringGridSotrudnik.Row];
      ADOQuery1.Parameters.ParamByName('Foto').LoadFromStream(MS, ftBlob);
      ADOQuery1.ExecSQL;
 
      MS.Position := 0;
      Image1.Picture.Assign(MyJpeg);
      MS.Free;
      MyJpeg.Free;
 
    except
      MessageBox(Handle, 'Не удалось загрузить фотографию', 'Ошибка загрузки',
        MB_OK + MB_ICONERROR);
      exit;
    end;
    MessageBox(Handle, 'Фотография успешно загружена', 'Загрузка фотографии',
      MB_OK + MB_ICONINFORMATION);
  end;

@t1m0n · 28.04.2012, 13:58

еще можно конвертировать в base64 и хранить в базе

@Sagatbekov · 19.02.2015, 12:37

Тоже самое но у меня наворот, как читать из базы ?

@Neavy · 21.02.2015, 20:31

Надеюсь это наведет тебя на решение твоего вопроса:

Delphi

    ZL := TMemoryStream.Create;
    ZDecompressStream(ADOQuery1.CreateBlobStream(ADOQuery1.FieldByName('q'),
      bmread), ZL);
    ZL.Position := 0;
    JvQ.Clear;
    JvQ.Lines.LoadFromStream(ZL);
    FreeAndNil(ZL);

@t1m0n 637 / 415 / 27 Регистрация: 03.11.2009 Сообщений: 1,855
	28.04.2012, 13:58	3
	еще можно конвертировать в base64 и хранить в базе 0

@Sagatbekov 0 / 0 / 1 Регистрация: 19.02.2015 Сообщений: 43
	19.02.2015, 12:37	4
	Тоже самое но у меня наворот, как читать из базы ? 0

	21.02.2015, 20:31