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

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

Как сохранить поток в Blob поле InterBase6 [D6, IB6.x]

Mihas ©   (2003-01-22 14:38:00) 

Подскажите пожайлуста:
Пытаюсь сохранить компонент в Blob поле Interbase
структура таблицы:
CREATE TABLE PRICEEDITOR (
ID INTEGER,
DATAVKL BLOB sub_type -1 segment size 80);

Делаю так:
procedure TFormPriceEditor.SaveToField;
var
Stream : TBlobStream;
FormName : string;
i : Integer;
FField :TBlobField;
begin
FField:= DM.PRICEEDITORDATAVKL;
Stream := TBlobStream.Create(DM.PRICEEDITORDATAVKL, bmWrite);
^ здесь ругается Так("Invalid klass typecast")
DM.PRICEEDITOR.Insert;
DM.PRICEEDITORID.Value:= ELDesigner1.DesignControl.ControlCount -1;
try
for i:= 0 to ELDesigner1.DesignControl.ControlCount -1 do
begin
FormName := Copy(ELDesigner1.DesignControl.Controls
[i].ClassName, 2, 99);
Stream.WriteComponentRes(FormName, ELDesigner1.DesignControl.Controls[i]);
end;
finally
DM.PRICEEDITOR.Cancel;
Stream.Free;
end;
end;
В чем моя ошибка, или как сделать по другому ?

---

-=Sergeante=-   (2003-01-22 16:04:00) [1]

Только перед POST нада обязательно сделать Stream.free

---

-=Sergeante=-   (2003-01-22 16:03:00) [2]

Попробуй создать

var stream:TMemoryStream ;
...
begin
Stream:=TMemoryStream .Create;
...//записываешь что надо в поток а потом
TBlobField(DM.PRICEEDITOR).LoadFromStream(stream);

---

Наверх