Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > MS SQL Server > сохрнить картинку в SQL сервере

Автор: Илья 2.3.2005, 02:13

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

Автор: AntonSaburov 2.3.2005, 12:39

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

Автор: Guest 3.3.2005, 01:29

спсб

Автор: sanik 3.3.2005, 04:46

ЗАГРУЗКА

делаешь кнопку 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;

Автор: Grig 23.9.2005, 04:33

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

Код


       Just_a_PhotoThumbNailPhoto.LoadFromFile(OpenPictureDialog.FileName);

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