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

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

вставка и считывание картинки в бд ms sql

arinyshka ©   (2008-04-08 18:32:00) 

Не сочтите за оскорбление, вопрос мой прост.
Нужно размещать в БД картинки и считывать их оттуда. Имеем MS SQL 2005, Delphi (ADO), bmp- картинки...
Хранимая выглядит так:
ALTER PROCEDURE [dbo].[ImP_add_Image]
@Image_PurposePay image
AS
  begin transaction
      insert into ImageForPurposePay
          (Image_PurposePay)
      values
          (@Image_PurposePay)
   if (@@error != 0) begin
     select 'Ok', -1
     rollback transaction
     return
   end
 commit transaction

В таблице ImageForPurposePay поле Image_PurposePay типа Image, естественно...

Delphi:

procedure TForm1.FormCreate(Sender: TObject);
var MyStream: TMemoryStream;
begin
  MyStream := TMemoryStream.Create;
  image1.Picture.bitmap.SaveToStream(MyStream);
  qrUni.SQL.Append('ImP_add_Image :Image_PurposePay');
  MyStream.Position := 0;
  qrUni.Parameters.ParamByName('Image_PurposePay').LoadFromStream(MyStream,ftGraph ic);
  qrUni.open;
end;

qrUni - TAdoQuery

Компилируется. На выполнении уходит с ошибкой
Project xxxx raised exception class EOleExeption with message 'Неправильно определен объект parametr. Представлены  несовместимые или неполные сведения'.

Только не заводите (пожалуйста!) дискуссию о рациональности хранения картинок в базе... я их уже начиталась Улыбаюсь Мне бы понять, в чем ошибка...

---

Ega23   (2008-04-09 13:28:00) [1]

> Пасиб... разобралась :) Заработало :)


Мягкого гранита!   :)

---

Ega23   (2008-04-09 13:27:00) [2]

> Очень информативные посты. Не почитать-ли тебе самому что-
> нибудь?


Между прочим, ты напрасно на Плохиша волну гонишь. Он дал правильный ответ.
var MyStream: TMemoryStream;
begin
 MyStream := TMemoryStream.Create;
 image1.Picture.bitmap.SaveToStream(MyStream);
 qrUni.SQL. Text:= 'ImP_add_Image :Image_PurposePay';
 MyStream.Position := 0;
 qrUni.Parameters.ParamByName('Image_PurposePay').LoadFromStream(MyStream,ftGraph  ic);
 qrUni.open;
end;

И у меня очень сильное подозрение, что "почитал" он на порядок больше тебя.

---

Rat   (2008-04-09 12:38:00) [3]

> Плохиш ©   (08.04.08 18:56) [4]

Очень информативные посты. Не почитать-ли тебе самому что-нибудь?

---

arinyshka   (2008-04-09 11:39:00) [4]

Пасиб... разобралась :) Заработало :)

---

Ega23   (2008-04-08 20:22:00) [5]

> arinyshka   (08.04.08 18:47) [3]
>
> qrUni.SQL.Add('ImP_add_Image :Image_PurposePay'); ничего
> не изменило


Положи на форму Memo, и перед qrUni.open; вставь строчку
Memo1.lines.Assign(qrUni.SQL);
Удивись.

---

Плохиш   (2008-04-08 18:56:00) [6]

> arinyshka   (08.04.08 18:47) [3]

попробуй в конце концов справку почитать.

PS. Text

---

arinyshka   (2008-04-08 18:47:00) [7]

qrUni.SQL.Add('ImP_add_Image :Image_PurposePay'); ничего не изменило

---

arinyshka   (2008-04-08 18:39:00) [8]

эээ... по-другому не умею :) как ее можно вызвать еще?

---

Ega23   (2008-04-08 18:36:00) [9]

Сильно подозреваю, что в этом.
qrUni.SQL.Append('ImP_add_Image :Image_PurposePay');

1. Нафига Append?
2. Зачем такой "вольный" вызов хп?

---

Наверх