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

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

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

wp2 ©   (2006-12-07 00:34:00) 

Выдает ошибку.
Table1.FieldByName('Pic').Assign(Image1.Picture)

---

Elen   (2006-12-08 11:47:00) [1]

> Как загрузить рисунок в базу даных?

Вот код загружающий в BLOB содержимое файла в принципе.
"W" - BLOB поле
ShellTreeView1.Path - путь и имя файла


procedure TForm1.Button1Click(Sender: TObject);
var p:array of byte;sz,lh:cardinal;
begin
t:=TStream.Create;
Table1.Edit;
t:=Table1.CreateBlobStream(Table1.FieldByName('w') ,bmReadWrite);
tf:=TFileStream.Create(ShellTreeView1.Path,fmShareDenyRead);
sz:=GetFileSize(tf.Handle,@lh);
tf.Read(p,sz);
caption:=inttostr(t.CopyFrom(tf,sz));
//Table1.Post;
Table1.FieldValues['q']:=ExtractFileName(ShellTreeView1.Path);
t.Free;
tf.Free;
end;

Может пригодиться

---

Anatoly Podgoretsky   (2006-12-08 11:35:00) [2]

> clickmaker  (08.12.2006 11:19:06)  [6]

Не пора ли нам друзья замахнуть на Уильяма Шекспира, не пора ли нам узнать великую тайну про БД?

---

clickmaker   (2006-12-08 11:19:00) [3]

> [3] wp2 ©   (07.12.06 20:50)

в есть такой тип - PictureField?
может все-таки TGraphicField?

в любом случае, поле д.б. либо TGraphicField либо TBlobField

---

Anatoly Podgoretsky   (2006-12-08 11:14:00) [4]

Большой Бада Бум

---

wp2   (2006-12-08 00:20:00) [5]

У меня такое ощущение, что возможно всё из-за создания самой таблицы Batabase Desktop

Кстати, для поля типа "G" какой размер надо указывать?

---

wp2   (2006-12-07 20:50:00) [6]

В Delphi 5 говорит, что нельзя TPicture превратить в TPictureField

В Delphi 7 ничего не говорит, но и не работает...

А в Delphi 6 иногда работает...

---

clickmaker   (2006-12-07 12:57:00) [7]

> [1] Desdechado ©   (07.12.06 12:06)
> это такой же бред, как превращать файл в кнопку

нет, если поле TBlobField


> wp2 ©   (07.12.06 00:34)
> Выдает ошибку.

какую?

---

Desdechado   (2006-12-07 12:06:00) [8]

ты хоть понял, что сделал?
Assign приводит твою картинку к виду компонента поля
это такой же бред, как превращать файл в кнопку

используй LoadFromStream или LoadFromFile

---

Наверх