Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Чтение из Blob-поля [D5, Oracle]

Lena © (2002-05-30 14:13:00)
Тип поля LONG RAW. Пользуюсь NCOCI.
Записываю так:
with OCIQuery1 do begin
active:=false;
sql.clear;
sql.add("update vid set icona=:par where id=:par1");
parambyname("par1").asinteger:=10;
ParamByName("par").DataType := ftBlob;
ParamByName("par").ParamType := ptInput;
ParamByName("par").LoadFromFile(OpenpictureDialog1.FileName,ftBlob);
execsql;
end;
Всё записывается без ошибок.
При чтении:
OCIQuery1.Active:=false;
OCIQuery1.SQL.Clear;
OCIQuery1.SQL.add("select icona from vid where id=:par1");
OCIQuery1.parambyname("par1").asinteger:=10;
OCIQuery1.active:=true;

stream:=TBlobStream.Create(
TBlobField(OCIQuery1.FieldByName("icona")),bmRead); //***

stream.Position:=0;
if stream.Size>0 then
image1.Picture.Bitmap.LoadFromStream(stream);
stream.Free;
выдаётся ошибка "invalid class typecast" на строке //***
Что я неправильно делаю?

Lusha (2002-05-30 14:48:00) [1]
Действительно не должно было работать... TBlobStream требует TBDEDataSet...

Lena (2002-05-30 14:38:00) [2]
stream : TBlobStream, конечно. :)
> Black Cat - спасибо, через TMemoryStream получилось. А я сама и не догадалась так сделать! Но непонятно, почему мой вариант не сработал. Ну ладно, всем спасибо ещё раз!

Black Cat (2002-05-30 14:26:00) [3]
Попробуй
MS := TMemoryStream.Create;
TBlobField(OCIQuery1.FieldByName("icona")).SaveToStream(MS);
MS.Seek(soFromBeginning, 0);

Kuusiniemi (2002-05-30 14:22:00) [4]
Может все дело в том как у Вас объявлен stream? Может он не TBlobStream? Объявление переменных Вы не привели.

Lusha (2002-05-30 14:21:00) [5]
Все, вроде бы правильно... Необходимо лишь убедиться, что экземпляр OCIQuery1.FieldByName("icona") производный от TBlobField...

Наверх

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