Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Базы";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Вниз

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

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



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

Форум: "Базы";
Текущий архив: 2007.11.25;
Скачать: [xml.tar.bz2];

Наверх




Память: 0.46 MB
Время: 0.04 c
2-1194165050
savyhinst
2007-11-04 11:30
2007.11.25
Классные константы


2-1193910412
werb
2007-11-01 12:46
2007.11.25
Узнать включен комп или нет


2-1193813394
Morrah
2007-10-31 09:49
2007.11.25
Выполнение кода Delphi, приведенного в качестве аргумента


3-1184330315
DelphiLexx
2007-07-13 16:38
2007.11.25
TDBGidEh и Footer.SumValue


4-1179315582
Ketmar
2007-05-16 15:39
2007.11.25
как узнать, запущена ли программа как сервис, или как обычно?





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский