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

← →
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]

Спасибо

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