VPF::сохрнить картинку в SQL сервере

Илья

Дата 2.3.2005, 02:13 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Программирую на Delphi, используя ADO драйвер и StoredProc-компоненты. Скажите пожалуйтса, как например картинку из TImage сохранить на SQL - Сервере, и потом когда нить ее назад забрать.

AntonSaburov

Дата 2.3.2005, 12:39 (ссылка)

(нет голосов)

Загрузка ...

Штурман

Профиль
Группа: Модератор
Сообщений: 5658
Регистрация: 2.7.2002
Где: Санкт-Петербург

Репутация: нет
Всего: 118

Поищи на форуме пример работы с BLOB - где-то недавно было

--------------------

Мои проекты для Винграда

Guest

Дата 3.3.2005, 01:29 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

спсб

sanik

Дата 3.3.2005, 04:46 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 55
Регистрация: 23.12.2004

Репутация: 1
Всего: 1

ЗАГРУЗКА

делаешь кнопку LoadPhoto, на нее прописываешь:

Код


procedure TfEditEmployee.sbLoadPhotoClick(Sender: TObject);
begin
     If OpenPictureDialog.Execute then
      begin

//       открываешь датасет обыкновенный ADOQuery

       Just_a_Photo.Close;
       Just_a_Photo.Parameters[0].Value :=id_employee;
       Just_a_Photo.Open;
       Just_a_Photo.Edit;
       Just_a_PhotoThumbNailPhoto.LoadFromFile(OpenPictureDialog.FileName);   // присваиваешь
       Just_a_Photo.Post;
      end;
end;

ПОКАЗ:

делаешь чекбокс (Показать/Не показать)

Код


procedure TfEditEmployee.chbShowYesNoClick(Sender: TObject);
var
  jpegfotka: TJPEGImage;
begin

     iPhoto.Visible := chbShowYesNo.Checked;

     id_employee:= tEmployeesId_Code.Value;
     jpegfotka  := TJPEGImage.Create;

    with Just_a_Photo do
     begin
      Close;
      Parameters[0].Value := id_employee;
      Open;
    end;

   if (chbShowYesNo.Checked)
     then
     if not Just_a_PhotoThumbNailPhoto.IsNull
        then
          begin
           jpegfotka.Assign(Just_a_PhotoThumbnailPhoto);
           iPhoto.Picture.Bitmap.Assign(jpegfotka);
          end
        else iPhoto.Picture.Bitmap.Assign(nil);
     jpegfotka.Free;
end;

Это сообщение отредактировал(а) sanik - 3.3.2005, 08:30

Grig

Дата 23.9.2005, 04:33 (ссылка)

(нет голосов)

Загрузка ...

Опытный

Профиль
Группа: Участник
Сообщений: 809
Регистрация: 29.4.2005
Где: Иркутск

Репутация: нет
Всего: 16

Цитата(sanik @ 3.3.2005, 04:46)

Код


       Just_a_PhotoThumbNailPhoto.LoadFromFile(OpenPictureDialog.FileName);

А это тут причем??
можно примерчик выслать мне на мыло..
пожалуйста!!

--------------------

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| MS SQL Server \| Следующая тема »