GrHnd
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
TohaDub
Если в ячейке базы лежит OLE поле с документом, то надо сначала содержимое ячейки сохранить в file или в stream:
а потом подгрузить сохраненное в OleContainer:
procedure TfmOle.Podgotovka(Sender: TObject);
var
Stream: TStream;
begin
case Create_Mode of
From_File: begin
OleContainer.CreateObjectFromFile(F_Name,False);
end;
From_Stream: begin
Stream := fmDM.ODS_DOC.CreateBlobStream (fmDM.ODS_DOCDOC, bmRead);
OleContainer.LoadFromStream (Stream);
Stream.Free;
end;
else ;
end;
end;
Добавлено:
Это работа с TOleContainer (а не с DBOleContainer).
Но, как показала практика, в БД лучше хранить чистые документы (файла .doc, .tif и др.) чтобы после сохранения их в файле, можно было их открыть с любом установленном приложении. В случае же с OleContainer после сохранения в БД их можно будет открыть только через OleContainer c помощью того приложения, которым оно сохранялась, что не очень хорошо. |
Эта "беда" из Мпег-2 энкодера "Cinema Craft Encoder SP2" (Price=2000$ :0 ) 
