Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

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]

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


Наверх

Титульная страница Поиск, карта сайта Написать письмо