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

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

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

VitV ©   (2006-02-07 08:58:00) 

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

---

VitV   (2006-02-07 11:00:00) [1]

Спасибо!

---

Личность   (2006-02-07 09:49:00) [2]

см. выше

---

VitV   (2006-02-07 09:42:00) [3]

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

---

Личность   (2006-02-07 09:11:00) [4]

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;

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

---

Личность   (2006-02-07 09:04:00) [5]

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

---

Наверх