IPrxFlash.LoadFromFile

Синтаксис

LoadFromFile(FileName: String);

Параметры

FileName - полное имя файла, из которого будет загружен Flash-объект.

Описание

Метод LoadFromFile загружает Flash-объект из файла.

Пример Fore

Для выполнения примера в репозитории предполагается наличие регламентного отчета с идентификатором «REGULAR_REPORT». Также в файловой системе должен присутствовать Flash-файл «C:/Flash.swf». Подключите системные сборки: Metabase, Drawing, Report, Tab.

Sub UserProc;
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Place: IGxRectF;
    Tab: ITabSheet;
    Fl: IPrxFlash;
Begin
    MB := MetabaseClass.Active;
    Rep := MB.ItemById("REGULAR_REPORT").Edit As IPrxReport;
    Place := New GxRectF.Create(10, 10, 100, 100);
    SheetT := Rep.Sheets.Item(0) As IPrxTable;
    Tab := SheetT.TabSheet;
    Fl := Tab.Objects.Add("PrxFlash", Place).Extension As IPrxFlash;
    Fl.LoadFromFile("C:\Flash.swf");
    (Rep As IMetabaseObject).Save;
End Sub UserProc;

После выполнения примера на первый лист регламентного отчета будет добавлен Flash-объект из файла «C:\Flash.swf».

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Metabase;
Imports Prognoz.Platform.Interop.Drawing;
Imports Prognoz.Platform.Interop.Report;
Imports Prognoz.Platform.Interop.Tab;

Public Shared Sub Main(Params: StartParams);
Var
    MB: IMetabase;
    Rep: IPrxReport;
    SheetT: IPrxTable;
    Tab: ITabSheet;
    Fl: IPrxFlash;
    RectF: GxRectF = New GxRectFClass();
Begin
    MB := Params.Metabase;
    Rep := MB.ItemById["REGULAR_REPORT"].Edit() As IPrxReport;
    RectF.Create(10, 10, 100, 100);
    SheetT := Rep.Sheets.Item[0] As IPrxTable;
    Tab := SheetT.TabSheet;
    Fl := Tab.Objects.Add("PrxFlash", RectF).Extension As IPrxFlash;
    Fl.LoadFromFile("C:\Flash.swf");
    (Rep As IMetabaseObject).Save();
End Sub;

См. также:

IPrxFlash