| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Считывание ОЛЕ с базы [D7, Paradox]

Страницы:   < 1 2 >

metrol ©   (2004-07-05 14:36:00) 

Здрасти.
У меня такая проблема. Есть база в ней 5 БЛОБ полей  в которых хранятся ОЛЕ объекты. Как мне миожно их все  разом прочесть от туда на мою форму  на которой 5 оле компонентов. На форуме был какой-то вопрос связанный с ОЛЕ  и там был такой пример но он наработает.
var
OLE : TOLEContainer;
TBS,TB : TBLOBStream;
i:integer;
begin
 Table1.Next;
TBS:=TBLOBStream.Create(Table1.FieldByName('OLE') as
TBLOBField, bmRead);
OLEContainer1.LoadFromStream(TBS as TStream);
TBS.Free;

---

Курдль   (2004-07-06 09:09:00) [21]

У меня несколько лет работает и кушать не просит.

> Ты бы  немог бы это показать на присере 2 записей.

Мог бы. А ты сам не мог бы поднапрячься?

     mstr := TMemoryStream.Create;
      try
        sdqTemplateTEM_DATA.SaveToStream(mstr);
        mstr.Seek(0, soFromBeginning);
        OleContainer1.LoadFromStream(mstr);
      finally
        FreeAndNil(mstr);
      end;

     sdqTemplate.Next;

     mstr := TMemoryStream.Create;
      try
        sdqTemplateTEM_DATA.SaveToStream(mstr);
        mstr.Seek(0, soFromBeginning);
        OleContainer2.LoadFromStream(mstr);
      finally
        FreeAndNil(mstr);
      end;

---

metrol   (2004-07-06 07:43:00) [22]

>>>Курдль ©
Блин не работает. Ты бы  немог бы это показать на присере 2 записей. Тоесть одновременно считать с 2 записей. и ставить в Олеконтейнеры.Говорит что что тот с потоком.
Заранее спасибо metrol

---

Курдль   (2004-07-05 14:50:00) [23]


      mstr := TMemoryStream.Create;
       try
         sdqTemplateTEM_DATA.SaveToStream(mstr);
         mstr.Seek(0, soFromBeginning);
         OleContainer1.LoadFromStream(mstr);
       finally
         FreeAndNil(mstr);
       end;

где sdqTemplateTEM_DATA - TBLOBField.

---

Страницы:   < 1 2 >

Наверх