invalid class typecast

← →
VitV © (2006-07-26 12:20) [0]

bs:= TBlobStream.Create(DataModule1.IBDataSet5.fieldbyname("FIELD") as TBlobField, bmwrite);-invalid class typecast

← →
Сергей М. © (2006-07-26 12:27) [1]

Есть же пример в справке ... почему бы не посмотреть его ?

← →
ЮЮ © (2006-07-26 12:43) [2]

Очевидно DataModule1.IBDataSet5.fieldbyname("FIELD") не является TBlobField -ом, а следовательно и использовать его в таком контексте нельзя

← →
StriderMan © (2006-07-26 13:04) [3]

bs:= DataModule1.IBDataSet5.CreateBlobStream(DataModule1.IBDataSet5.fieldbyname("FIEL D"), bmwrite);

← →
VitV © (2006-07-26 13:54) [4]

Я сделал так:
procedure TForm1.sButton6Click(Sender: TObject);
var
MemoryStream:TMemoryStream;
s:TStream;
begin
MemoryStream:=TMemoryStream.Create;
DataModule1.IBDataSet5.Edit;
s:=DataModule1.IBDataSet5.CreateBlobStream(DataModule1.IBDataSet5.FieldByName("F IELD"),bmWrite);
try
RichEdit1.Lines.SaveToStream(MemoryStream);
MemoryStream.Seek(0,soFromBeginning);
s.CopyFrom(MemoryStream,MemoryStream.Size);
finally
MemoryStream.Free;
end;
end;

> Очевидно DataModule1.IBDataSet5.fieldbyname("FIELD") не
> является TBlobField -ом, а следовательно и использовать
> его в таком контексте нельзя

Оно БЛОБ!

нафига из одного потока в другой гонять?

RichEdit1.Lines.SaveToStream(s);

Точно! Спасибо за совет!!!

invalid class typecast Найти похожие ветки