Форум: "Базы";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Вниз

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]

см. выше

---

← →
VitV ©   (2006-02-07 11:00) [5]

Спасибо!

---

Страницы: 1 вся ветка

Форум: "Базы";
Текущий архив: 2006.04.02;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.034 c