IShockWaveFlash.SaveToStream

Синтаксис

SaveToStream(Stream: IIOStream);

Параметры

Stream - поток, в который осуществляется сохранение Flash-объекта.

Описание

Метод SaveToStream осуществляет сохранение Flash-объекта в поток, передаваемый посредством параметра Stream.

Пример

Для выполнения примера предполагается наличие регламентного отчета, на активном листе отчета расположен Flash-объект.

Sub SaveFlash;

Var

MB: IMetabase;

MObj: IMetabaseObject;

CrInfo: IMetabaseObjectCreateInfo;

Doc: IDocument;

MemStr: IMemoryStream;

Sheet: IPrxTable;

Fl: IPrxFlash;

Begin

MB := MetabaseClass.Active;

CrInfo := MB.CreateCreateInfo;

CrInfo.ClassID := MetabaseObjectClass.KE_CLASS_DOCUMENT;

CrInfo.Id := "Flash_Document";

CrInfo.Name := "Flash_Document";

CrInfo.Parent := MB.Root;

CrInfo.Permanent := True;

MObj := MB.CreateObject(CrInfo).Edit;

Doc := MObj As IDocument;

Sheet := PrxReport.ActiveReport.ActiveSheet As IPrxTable;

Fl := Sheet.TabSheet.Objects.Item(0).Extension As IPrxFlash;

MemStr := New MemoryStream.Create;

Fl.ShockWaveFlash.SaveToStream(MemStr);

Doc.LoadFromStream(MemStr);

MObj.Save;

Dispose MemStr;

End Sub SaveFlash;

Данный пример является макросом для регламентного отчета. После выполнения макроса, Flash-объект, расположенный на активном листе регламентного отчета, будет сохранен в объект репозитория Документ с идентификатором "Flash_Document".

См. также:

IShockWaveFlash