Главная страница
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.027 c
14-29027
anpsoft
2003-01-22 02:04
2003.02.10
QuickBooks Pro and LedgerLink - есть кто ???


14-29101
Anatoly Podgoretsky
2003-01-26 02:04
2003.02.10
Именинники 26 января


9-28573
Lamer86
2002-07-04 12:21
2003.02.10
Можно ли использовать формат jpg в DXImageList


6-28984
dcat
2002-12-17 17:22
2003.02.10
idTCPServer


6-28952
Nord-Ost
2002-12-15 15:18
2003.02.10
Отправка всплывающего сообщения на другой компьютер