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

← →
wp2 © (2006-12-07 00:34) [0]

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

← →
Desdechado © (2006-12-07 12:06) [1]

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

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

← →
clickmaker © (2006-12-07 12:57) [2]

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

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

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

какую?

← →
wp2 © (2006-12-07 20:50) [3]

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

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

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

← →
wp2 © (2006-12-08 00:20) [4]

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

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

← →
Anatoly Podgoretsky © (2006-12-08 11:14) [5]

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

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

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

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

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

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

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

Вот код загружающий в 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;

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

Как загрузить рисунок в базу даных? Найти похожие ветки