Как сохранить поток в Blob поле InterBase6

← →
Mihas © (2003-01-22 14:38) [0]

Подскажите пожайлуста:
Пытаюсь сохранить компонент в 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:03) [1]

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

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

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

Как сохранить поток в Blob поле InterBase6 Найти похожие ветки