powered by simpleCommunicator - 2.0.59     © 2025 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Delphi [игнор отключен] [закрыт для гостей] / BLOB-ы ... так их раз так
6 сообщений из 6, страница 1 из 1
BLOB-ы ... так их раз так
    #32060964
Lonely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
И снова про блобы. OlegV посоветовал и я сделал вот что:

procedure TForm1.Button1Click(Sender: TObject);
var
Stream1 : TBlobStream;
begin
ADOTable1.Active:=true;
ADOTable1.First;
Stream1 := TBlobStream.Create(ADOTable1.FieldByName('DocTU') as TBlobField, bmRead);
end;

При выполнении данной процедуры вываливается сообщение об ошибке следующего содержания:

Invalid class typecast

В чем тут прикол? Вроде и по Help для Delphi все то же самое я нашел, но вот не работает...:-(
...
Рейтинг: 0 / 0
BLOB-ы ... так их раз так
    #32060966
Фотография Luchkin Dmitry
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
дык, кто-то, вроде бы ещё в прошлый раз поправился, что надо так:
Код: plaintext
TBlobStream.Create(TblobField(ADOTable1.FieldByName('DocTU')), bmRead); 

И ещё там была строка (по памяти диктую большими буквами): "А ещё есть TADOBlobField"
Удачи
...
Рейтинг: 0 / 0
BLOB-ы ... так их раз так
    #32062128
Lonely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Вот код процедуры:

procedure TForm1.Button1Click(Sender: TObject);
var
Stream1 : TBlobStream;
begin
ADOTable1.Active:=true;
ADOTable1.First;
Stream1:=TBlobStream.Create(TBlobField(ADOTable1.FieldByName('DocTU')),bmRead);

end;

Все равно ничего не получается. При компилляции все нормально, а как до дела, так сразу "инвалидом" прикидывается. Пишет "invalid class typecast". Может этому Стрёму1 еще чего-то не хватает. Там при использовании подсказчика кода,если поставить после Stream1 точку, вываливается список свойств и т.д.
...
Рейтинг: 0 / 0
BLOB-ы ... так их раз так
    #32062165
~Bazul~
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Пользуешься BDE?
...
Рейтинг: 0 / 0
BLOB-ы ... так их раз так
    #32062181
Lonely
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
Нет. Работаю напрямую через Connection String.
...
Рейтинг: 0 / 0
BLOB-ы ... так их раз так
    #32064305
TFB
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
TFB
Гость
Может я опоздал с ответом, но...
я столкнулся с этим при работе с ibx'ами. как ни создовай stream, а все равно ошибка.... Тока у ibx'ов, по моему (сейчас не помню) был TBlobField и метод у него, что типа CreateBlobStram....
в итоге залез в исходник этого метода и обнаружил, что вместо обещанного в хелпах TBlobStream метод создает обычный TStream ))

вот. так что рекомендую нажать Ctrl и щелкнуть по методу, и поглядеть чего там твариться.

удачи
...
Рейтинг: 0 / 0
6 сообщений из 6, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / BLOB-ы ... так их раз так
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]