FlashVars: String;
The FlashVars property determines value of the Flash object variables.
Executing the example requires that the repository contains a regular report with the OBJ_REPORT identifier. The C:\Flash.swf Flash clip 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;
After executing the example the Flash object is placed on the sheet of the regular report. The StartPeriod variable with the 1 value is determined for this object.
See also: