Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.02.10;
Скачать: CL | DM;

Вниз

Как сохранить поток в 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);



 
-=Sergeante=- ©   (2003-01-22 16:04) [2]

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



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

Текущий архив: 2003.02.10;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
7-29135
Konstantin
2002-12-07 15:10
2003.02.10
как получить уникальное исмя файла


8-28947
Asderg
2002-10-24 13:15
2003.02.10
ПОВОРОТ битмапа


7-29123
Burjua
2002-12-06 11:41
2003.02.10
Как ловить синхроимпульсы от видеокарточкм


1-28829
Son!K
2003-02-02 18:49
2003.02.10
Hex в Делфи


1-28714
AlexanderSK
2003-01-31 16:01
2003.02.10
1 Unit или 2?