Invalid typecast

← →
Сатир (2007-07-13 12:41) [0]

var MyBlobStream:TBlobStream

bagin
MyBlobStream := TBlobStream.Create(adsAppFilesFILE_BODY,bmRead)
на этом месте получается сабж.
adsAppFilesFILE_BODY - TBlobField

что я делаю не так?

← →
Сатир (2007-07-13 12:41) [1]

> bagin

читать как begin
:-)

← →
Ega23 © (2007-07-13 12:46) [2]

MyBlobStream := TBlobStream.Create(adsAppFilesFILE_BODY,bmRead)

Разницу между TADODataSet и TBLOBField осчусчаешь?

← →
Сергей М. © (2007-07-13 12:47) [3]

> adsAppFilesFILE_BODY - TBlobField

Значит оно на самом деле не TBlobField.
Иные объяснения сабжу вряд ли найдутся)

← →
ЮЮ © (2007-07-13 12:52) [4]

TBlobStream.Create(Field: TBlobField; Mode: TBlobStreamMode);

> [2] Ega23 © (13.07.07 12:46)

TADODataSet - откуда взялся и куда девать?

Я, наоборот, боюсь, что DataSet какой нибудь IBSQL, который вовсе не TDataSet, и adsAppFilesFILE_BODY не TBlobField

← →
Anatoly Podgoretsky © (2007-07-13 12:52) [5]

> Сатир (13.07.2007 12:41:00) [0]

Как определен adsAppFilesFILE_BODY

← →
Сатир (2007-07-13 13:21) [6]

> Как определен adsAppFilesFILE_BODY

оперделён в дизайн-тайме
вот кусок dfm-ки:
object adsAppFiles: TADODataSet
FieldDefs = <
...
item
Name = "FILE_BODY"
DataType = ftBlob
end>
...
object adsAppFilesFILE_BODY: TBlobField
DisplayLabel = #1058#1077#1083#1086
FieldName = "FILE_BODY"
end
...
end;

← →
Сатир (2007-07-13 13:25) [7]

это... мож есть какой-то другой вариант реализации такого изврата?
просто в исходниках было вот так:
MyBlobStream := TBlobStream(adsSingleRow.CreateBlobStream(adsAppFilesFILE_BODY, bmRead));

но теперь у меня нету adsSingleRow, поэтому надо напрямую читать с поля...
о!
Можт вот так забацать:
MyBlobStream := TBlobStream(adsAppFiles.CreateBlobStream(adsAppFilesFILE_BODY, bmRead));
?

← →
Сатир (2007-07-13 13:28) [8]

> MyBlobStream := TBlobStream(adsAppFiles.CreateBlobStream(adsAppFilesFILE_BODY,
> bmRead));

ТАК ЗАРАБОТАЛО!!!
УРА!!!!

Invalid typecast Найти похожие ветки