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

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

Почему генерируется ошибка? [D7]

fog ©   (2008-07-11 02:34:00) 

procedure TForm1.ADODataSet1DescriptionGetText(Sender: TField; var Text: String; DisplayText: Boolean);
var bs: TBlobStream;
begin
bs := TBlobStream.Create(TMemoField(Sender), bmRead);

и получаю "Invalid class typecast"

Description - TMemoField

ошибка вылезает при начале заполнения DBGrid

---

fog   (2008-07-11 13:35:00) [1]

Спасибо

---

Loginov Dmitry   (2008-07-11 07:56:00) [2]

> bs := TBlobStream.Create(TMemoField(Sender), bmRead);
>
> и получаю "Invalid class typecast"


А что ты ожидал получить? TBlobStream - это только для BDE. Для ADO используй TADOBlobStream. Кстати исключение возникает вот тут:

constructor TBlobStream.Create(Field: TBlobField; Mode: TBlobStreamMode);
var
 OpenMode: DbiOpenMode;
begin
 FMode := Mode;
 FField := Field;
  FDataSet := FField.DataSet as TBDEDataSet;

---

Наверх