Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Invalid typecast [D7]

Сатир © (2007-07-13 12:41:00)
var MyBlobStream:TBlobStream

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

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

Сатир (2007-07-13 13:28:00) [1]

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

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

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

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

Сатир (2007-07-13 13:21:00) [3]

> Как определен 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 12:52:00) [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:00) [5]
> Сатир (13.07.2007 12:41:00) [0]

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

Сергей М. (2007-07-13 12:47:00) [6]

> adsAppFilesFILE_BODY - TBlobField

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

Ega23 (2007-07-13 12:46:00) [7]
MyBlobStream := TBlobStream.Create(adsAppFilesFILE_BODY,bmRead)

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

Сатир (2007-07-13 12:41:00) [8]

> bagin

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

Наверх

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