Текущий архив: 2006.04.02;
Скачать: CL | DM;
Вниз
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;
Скачать: CL | DM;
Память: 0.45 MB
Время: 0.04 c
