Форум: "Начинающим";
Текущий архив: 2008.08.17;
Скачать: [xml.tar.bz2];

Вниз

Почему генерируется ошибка?   Найти похожие ветки 

← →
fog   (2008-07-11 02:34) [0]

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

---

← →
Loginov Dmitry ©   (2008-07-11 07:56) [1]

> 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;

---

← →
fog   (2008-07-11 13:35) [2]

Спасибо

---

Страницы: 1 вся ветка

Форум: "Начинающим";
Текущий архив: 2008.08.17;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.332 c