Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Вниз

заполнение OleContainer из BlobField 


SVS   (2001-12-04 13:11) [0]

Hello All !
Помогите плиз, в базе хранятся документы Word однако при их выводе в OleContainer
возникает ошибка "Invalid stream format"

procedure Blob2OLEContainer(aDataSet: TDataSet; aBlobFieldName: string; aOleContainer:
TOleContainer);
var
MS:TMemoryStream;
begin
MS:=TMemoryStream.Create;
TBlobField(aDataSet.FieldByName(aBlobFieldName)).SaveToStream(MS);
Stream.Position:=0;
aOleContainer.LoadFromStream(Stream); // --- "Invalid stream format"
aOleContainer.DoVerb(ovShow);
Stream.Free;
end;

--
Regards,
SVS mailto:svs-12345678@mail.ru



Юрий Жуков   (2001-12-04 14:20) [1]

Поставь свойство у OleContanter OldFormat (кажись так называется) - в справке об этом написано




Форум: "Базы";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.01.08;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.71 MB
Время: 0.06 c
1-22244           Socol                 2001-12-15 15:42  2002.01.08  
Загрузка файла!


1-22107           Alexander             2001-12-19 01:45  2002.01.08  
Как при запуске программы сразу показать поверх главной формы другую?


3-21936           vvs                   2001-12-05 06:42  2002.01.08  
Delphi5+SQL Server7 нормально, а Delphi5+SQL 2000 бред


1-22258           mashinist             2001-12-16 23:16  2002.01.08  
Уравнение третьей степени.


1-22081           Andrewv               2001-12-18 14:14  2002.01.08  
Как вызвать системную ошибку.