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

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

Добавить/прочитать JPEG-картинку в базу данных [D6, Access]

avr555 ©   (2002-10-14 17:01:00) 

Нужно мне добавить в базу данных JPG-картинку.
В инете я нашл такое решение:

if Picture.Graphic is TJPegImage then begin
bs := TBlobStream.Create(TBlobField(Field), bmWrite);
Picture.Graphic.SaveToStream(bs);
bs.Free;
end else if Picture.Graphic is TBitmap then begin
Jpg := TJPegImage.Create;
Jpg.CompressionQuality := ...;
Jpg.PixelFormat := ...;
Jpg.Assign(Picture.Graphic);
Jpg.JPEGNeeded;
bs := TBlobStream.Create(TBlobField(Field), bmWrite);
Jpg.SaveToStream(bs);
bs.Free;
Jpg.Free;
end else
Field.Clear;

Но, как я понял это решение для случая, когда обращение идет непосредсвенно к таблице.

У меня же добавление происходит через ADOCommand (INSERT INTO ...)
В ADOCommand я создал параметр и попытался сделать тоже что и для поля но с использованием Field->ADOCommand1.Parameters.Items[0]. Но во время создания TBlobStream получается Access Violation

Что делать?

---

avr555   (2002-10-17 16:11:00) [1]

Сам докопался:
Для занесения:
tmp := TJpegImage.Create;
tmp.LoadFromFile(Edit1.Text);


TBlobField(ADOCommand1.Parameters.Items[0]).Assign(tmp);



ADOCommand1.Execute;

Для отображения:
with ADOQuery1 do
begin
Active := false;
Parameters.ParamValues["ID"] := 34;
Active := true;

tmp.Assign(TBlobField(FieldByName("Pict")));
Image1.Picture.Assign(tmp);

end;

Может кому пригодится...

---

avr555   (2002-10-15 15:36:00) [2]

Я уже и через TMemoryStream попробовал.

Только при чтении возникает ошибка #41. Как я понял она возникает, когда у картинким нулевая ширина. Следовательно, запись в базу данных осуществляется неправильно.

Вопрос: что делать?

---

avr555   (2002-10-14 18:02:00) [3]

Можно по-подробнее?

---

Fiend   (2002-10-14 17:49:00) [4]

а в адоклмманд надо помоему сначала параметры пропарсить. у нее там метод есть у параметров

---

Наверх