Delphi+access. Проблема загрузки рисунка.

← →
VitV © (2006-02-07 08:58) [0]

Есть база данных в аксесе.
Оболочка написана в Дэлфях7,ОфисХР.
Для вставки рисунка использую:
if OpenDialog1.Execute then
begin
DBimаgе1.Picture.LoadFromFile(OpenDialog1.FileName);
Рисунок не сохраняется...
Поле в базе : Оле объект.

← →
Личность (2006-02-07 09:04) [1]

кусок кода которым ты вставляешь дай, и чем к БД цепляешся?

← →
Личность (2006-02-07 09:11) [2]

procedure .... var IconStream : TMemoryStream; .. .. begin . . IconStream := TMemoryStream.Create; Image1.picture.icon.savetostream(IconStream); (Table1.fieldbyname("Icon") as TBlobField).LoadFromStream(IconStream); Table1.post; IconStream.Free; . . end;

** Читаем Bitmap в Timage из поля dbase с именем Icon.

procedure ..... var IconStream : TMemoryStream; .. .. begin . . IconStream := TMemoryStream.Create; (Table1.fieldbyname("Icon") as TBlobField).SaveToStream(IconStream); {что бы что-нибудь записать, необходимо установить позицию потока в ноль!} IconStream.Position := 0; appointment.iconimage.picture.icon.loadfromstream(iconstream); IconStream.Free; end;

Смысл я думаю понятен...

← →
VitV © (2006-02-07 09:42) [3]

DataModule2.ADOTable4.Insert;
Соеденение через Ado.

← →
Личность (2006-02-07 09:49) [4]

см. выше

Спасибо!

Delphi+access. Проблема загрузки рисунка. Найти похожие ветки