| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Сохранение картинки в БД. [D6, MSSQL]

AndrewK ©   (2003-09-28 23:42:00) 

Доброго времени суток, господа!

Прошу прощения за избитый вопрос.

Как сохранить картинку в базу данных MS SQL 2000?

Есть таблица Cards (ID int, Photo image)
Таблица закрыта для всех пользователей на прямое чтение и запись.
Обращение к ней ведется только через SP и функции.

Мне надо сохранить фотографию в поле Photo для карточки с определенным ID и потом выводить ее.

Выводить научился. Делаю так:

...
Query.SQL.Text := "spGetPhoto "+IntToStr(ID);
Query.Open;
if Query.FieldByName("Photo").AsString <> "" then
Image.Picture.Assign(TBlobField(Query.FieldByName("Photo")));
...

Сохранить пытаюсь так:

var
MStream : TStream;
qImage : TADOQuery;

...

MStream := TMemoryStream.Create;
qImage := TADOQuery.Create(nil);
try
qImage.Connection := DM.dbConn;
qImage.SQL.Text := "cmp_spTradeMarkGET "+IntToStr(ID);
qImage.Open;
Image.Picture.Graphic.SaveToStream (MStream);
qImage.Edit;
TGraphicField(qImage.FieldByName("Photo")).LoadFromStream(MStream);
qImage.Post;
finally
qImage.Close;
qImage.Free;
MStream.Free;
end;

Ошибка вылетает на вызов qImage.Post;

Неужели нельзя сохранить картинку в поле без использования команд Edit и Post?

---

AndrewK   (2003-10-02 10:23:00) [1]

Нашел как сделать.
При использовании TADOStoredProc у добавляемых параметров есть метод LoadFromStream. С ним все получилось. И в рамках одной транзакции.

---

Polevi   (2003-09-29 13:31:00) [2]

try
BeginTrans;

Действие 1
Действие 2
Действие 3
Действие 3

CommitTrans;
Сохранение картинки
except
RollbackTrans;
end;

---

AndrewK   (2003-09-29 12:36:00) [3]

Выдает сообщение:

"В данном сеансе невозможен запуск дополнительных транзакций"

Конструкция такая:

try
BeginTrans;

Действие 1
Действие 2
Действие 3
Сохранение картинки
Действие 3

CommitTrans;
except
RollbackTrans;
end;
При попытке сохранить картинку вылетает ошибка.

---

Polevi   (2003-09-29 11:23:00) [4]

TCustomADODataSet.CreateBlobStream

---

AndrewK   (2003-09-29 11:05:00) [5]

2Polevi: Понятно. Только это не решает проблему.

---

Polevi   (2003-09-29 10:54:00) [6]

Image.Picture.Graphic.SaveToStream (MStream);
MStream.Position:=0
qImage.Edit;
TGraphicField(qImage.FieldByName("Photo")).LoadFromStream(MStream);

---

AndrewK   (2003-09-29 10:54:00) [7]

Неужели никто не сталкивался с такой задачей?

Если кто знает где можно почитать про это, поделитесь, пожалуйста.

---

AndrewK   (2003-09-29 10:07:00) [8]

2Polevi: Не понял

---

Polevi   (2003-09-29 10:04:00) [9]

MStream.Position:=0

---

Наверх