Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Базы данных и репортинг > Delphi+Access+OLE

Автор: Thoron 17.8.2011, 13:30

Всем добрый день.
Вопрос уже обсуждался здесь, но вяло и безрезультатно.
Проблема собственно в следующем:

В качестве БД – Access, интерфейс – Delphi. В БД есть таблица с полем OLE. Как из Delphi читать и записывать в это поле файлы?

Следующая попытка прочитать файл из БД в компонент OLEContainer1 (таблица предварительно заполнена)

Код


  var DatOle: TADOBLOBStream;
begin
   try
      DatOle:=TADOBLOBStream.Create(ADOTable1.FieldByName('OLE') as TBlobField, bmread);
      if DatOle.size>0 then begin
        OLEContainer1.LoadFromStream(DatOle as TStream);
      end;
   finally
      DatOle.free;
   end;
end;

приводит к возникновению ошибки «Invalid System Format»

Спасибо.

Автор: Keeper89 17.8.2011, 19:04

stackoverflow.com/questions/4206081/display-microsoft-access-ole-object-in-my-application

Автор: Thoron 18.8.2011, 13:16

Толково. Но не работает. За пол дня так и не смог применить данный пример к решению задачи.
Если у Вас работает(ло) - напишите.
Спасибо.

Автор: Thoron 19.8.2011, 14:41

Ответ нашелся здесь - http://www.fexclub.su/t151132.html