Вниз
Скачать: CL | DM;

Как записать кртинку из bmp-файла в таблицу Access?   Найти похожие ветки 

← →
abell   (2004-12-10 10:39) [0]

Есть таблица в базе access, поле "Photo" определено как OLE.
Пытаюсь сделать следующее:

var
 stFile: TFileStream;
 stData: TBlobStream;
begin
 ADODataSet1.Edit;
 stFile:=TFileStream.Create(OpenDialog1.FileName, fmOpenRead);
 stData:=TBlobStream.Create(ADODataSet1.FieldByName("Photo") as TBlobField, bmReadWrite); // Ошибка здесь.
 stData.CopyFrom(stFile,stFile.Size);
 ADODataSet1.Post;
 stData.Free;
 stFile.Free;
end;

и вылетает "Invalid class typecast".
Что не так? Делаю то же самое для dBase 5 - все отлично, только поле типа Binary. В access такого типа нет, но описание OLE вроде бы подходит к этому типу. Как быть? От access базы отказаться не получится, она уже в работе.


← →
Соловьев ©   (2004-12-10 10:44) [1]

Читаем как всегда хелп и не придумываем себе проблем на голову:
...
if not (Query.State in [dsInsert, dsEdit]) then Query1.Insert;

Query1Images.LoadFromFile("c:\Windows\Waves.bmp");
Query1.Post;
...


← →
-=SS=- ©   (2004-12-10 11:05) [2]


ADODataSet1.Insert;
TBlobField(ADODataSet1.FieldByName("Picture")).LoadFromFile(OpenDialog1.FileName);
ADODataSet1.Post;

 enjoy



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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.022 c
8-1097262333
Yegorchic
2004-10-08 23:05
2005.01.16
Загрузить юч в Delphi...


1-1103865925
asvt
2004-12-24 08:25
2005.01.16
Цвет пикселя от положния курсора на экране


14-1104087205
Hypercube
2004-12-26 21:53
2005.01.16
Самогон


1-1104226035
Pavelkq
2004-12-28 12:27
2005.01.16
Что-то с памятью моей стало, то, что было не со мной помню.


1-1104236940
stud
2004-12-28 15:29
2005.01.16
создание компанентов динамически




   Наверх