Гость
Войти | Профиль | Очистить
Целевая тема:
Создать новую тему:
Автор:
Действия ...
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA / 3 сообщений из 3, страница 1 из 1
07.06.2003, 20:28
    #32179029
Гость форума
Гость форума
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загадочные компоненты DOA
КАК загнать в оле-контейнер обьект из бд
пользую 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
| Ответить | Цитировать | Написать  
09.06.2003, 00:10
    #32179176
KirillovA
KirillovA
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загадочные компоненты DOA
делай так:
TBlobField (kaka).SaveToStream (memory);
memory - мемострим...
в контейнер грузи потом из мемострима.
...
Рейтинг: 0 / 0
| Ответить | Цитировать | Написать  
09.06.2003, 08:54
    #32179239
eNose
eNose
Участник
[не активирован]
[не одобрен]
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Загадочные компоненты DOA
Код: 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
| Ответить | Цитировать | Написать  
Форумы / Delphi [игнор отключен] [закрыт для гостей] / Загадочные компоненты DOA / 3 сообщений из 3, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


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