![]() |
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
invalid class typecast [D7, XP]
VitV © (2006-07-26 12:20:00)bs:= TBlobStream.Create(DataModule1.IBDataSet5.fieldbyname('FIELD') as TBlobField, bmwrite);-invalid class typecast
VitV (2006-07-26 14:04:00) [1]Точно! Спасибо за совет!!!
StriderMan (2006-07-26 13:56:00) [2]нафига из одного потока в другой гонять?
RichEdit1.Lines.SaveToStream(s);
VitV (2006-07-26 13:54:00) [3]Я сделал так:
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 -ом, а следовательно и использовать
> его в таком контексте нельзя
Оно БЛОБ!
StriderMan (2006-07-26 13:04:00) [4]
bs:= DataModule1.IBDataSet5.CreateBlobStream(DataModule1.IBDataSet5.fieldbyname('FIEL D'), bmwrite);
ЮЮ (2006-07-26 12:43:00) [5]Очевидно DataModule1.IBDataSet5.fieldbyname('FIELD') не является TBlobField -ом, а следовательно и использовать его в таком контексте нельзя
Сергей М. (2006-07-26 12:27:00) [6]Есть же пример в справке ... почему бы не посмотреть его ?