FlashVars: String;
The FlashVars property determines value of the Flash object variables.
Executing this example assumes that the repository contains a regular report with the identifier OBJ_REPORT. The C:\Flash.swf Flash reel must be in the file system.
Sub Main;
Var
Mb: IMetabase;
ReportObj: IMetabaseObject;
Report: IPrxReport;
PrxTable: IPrxTable;
TabSheet: ITabSheet;
Objs: ITabObjects;
Point: IGxRectF;
TabObject: ITabObject;
PrxFlash: IPrxFlash;
fl: IShockWaveFlash;
Begin
Mb := MetabaseClass.Active;
ReportObj := Mb.ItemById("OBJ_REPORT").Edit;
Report := ReportObj As IPrxReport;
PrxTable := Report.ActiveSheet As IPrxTable;
TabSheet := PrxTable.TabSheet;
Objs := TabSheet.Objects;
Objs.Clear;
Point := New GxRectF.Create(10, 10, 110, 110);
TabObject := Objs.Add("PrxFlash", Point);
PrxFlash := TabObject As IPrxFlash;
PrxFlash.LoadFromFile("C:\Flash.swf");
fl := PrxFlash.ShockWaveFlash;
fl.FlashVars := "StartPeriod=1";
ReportObj.Save;
End Sub Main;
The Flash object is placed on the sheet of the regular report after execution of the example. The StartPeriod variable with 1 value is determined for this object.
See also: