ReSQL.ru
     
powered by simpleCommunicator - 2.0.60     © 2026 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA
3 сообщений из 3, страница 1 из 1
Загадочные компоненты DOA
    #32179029
Гость форума
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Гость форума
Гость
КАК загнать в оле-контейнер обьект из бд
пользую 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
07.06.2003, 20:28
| Ответить | Цитировать | Написать  
Загадочные компоненты DOA
    #32179176
Фотография KirillovA
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
KirillovA
Участник
делай так:
TBlobField (kaka).SaveToStream (memory);
memory - мемострим...
в контейнер грузи потом из мемострима.
...
Рейтинг: 0 / 0
09.06.2003, 00:10
| Ответить | Цитировать | Написать  
Загадочные компоненты DOA
    #32179239
Фотография eNose
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
eNose
Участник
[не активирован]
[не одобрен]
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
procedure ...;
var
  S: TMemoryStream;
begin
...
    S := TMemoryStream.Create;
    что-то.SaveToStream(S);
    S.Position :=  0 ;
    OracleDataSet.Open;
    OracleDataSet.Edit;
    OracleDataSet_Имя_поля.LoadFromStream(S);
    OracleDataSet.Post;
...
    S.Free;
end;


Это для записи. Для чтения - аналогично: используй TMemoryStream.
...
Рейтинг: 0 / 0
09.06.2003, 08:54
| Ответить | Цитировать | Написать  
3 сообщений из 3, страница 1 из 1
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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