powered by simpleCommunicator - 2.0.61     © 2026 Programmizd 02
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA
2 сообщений из 2, страница 1 из 1
Загадочные компоненты DOA
    #32179030
Конечно это вопрос скорее по Delphi, но попытаю счастья здесь.
КАК загнать в оле-контейнер обьект(rtf-текст) из бд?
пользую DOA
поле DOCTEXT - тип CLOB

Если пишу так
Код: plaintext
1.
2.
3.
4.
5.
var 
  Stream1: TBlobStream; 
begin 
Stream1:=TBlobStream.Create((DM.EditDocSetDOCTEXT as TBlobField),bmRead);
...

то жалуется Invalid class Typecast.

Если пишу так
Код: plaintext
1.
2.
3.
4.
5.
var 
  Stream1: TStream; 
begin 
stream1:=DM.EditDocSet.CreateBlobStream(DM.EditDocSetDOCTEXT,bmRead);
olecontainer1.LoadFromStream(Stream1);

то жалуется Invalid stream format.
И что тут делать? Я (проверяя себя) брал содержимое поля сохранял в файл с расширением rtf - он спокойно открывался в Ворде.
...
Рейтинг: 0 / 0
Загадочные компоненты DOA
    #32179404
Divan
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Участник
стоп, я чтото не понял.
Объект это Вордовский документ, или RTF.
Оле контейнер у тебя что??? Word.

попробуй так....
вроде у меня сработало.

var
fbd: TBlobField;
begin
fbd:=TBlobField.Create(Application);
fbd:=OracleDataSet1.FieldByName('Имя поля') as TblobField;
fbd.SaveToFile('Имя файла');
OleContainer1.LoadFromFile('Имя файла');
end;
...
Рейтинг: 0 / 0
2 сообщений из 2, страница 1 из 1
Форумы / Oracle [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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