📄 shockwaveflashobjects_tlb.pas
字号:
property Quality2: WideString dispid 141;
procedure LoadMovie(layer: SYSINT; const url: WideString); dispid 142;
procedure TGotoFrame(const target: WideString; FrameNum: Integer); dispid 143;
procedure TGotoLabel(const target: WideString; const label_: WideString); dispid 144;
function TCurrentFrame(const target: WideString): Integer; dispid 145;
function TCurrentLabel(const target: WideString): WideString; dispid 146;
procedure TPlay(const target: WideString); dispid 147;
procedure TStopPlay(const target: WideString); dispid 148;
procedure SetVariable(const name: WideString; const value: WideString); dispid 151;
function GetVariable(const name: WideString): WideString; dispid 152;
procedure TSetProperty(const target: WideString; property_: SYSINT; const value: WideString); dispid 153;
function TGetProperty(const target: WideString; property_: SYSINT): WideString; dispid 154;
procedure TCallFrame(const target: WideString; FrameNum: SYSINT); dispid 155;
procedure TCallLabel(const target: WideString; const label_: WideString); dispid 156;
procedure TSetPropertyNum(const target: WideString; property_: SYSINT; value: Double); dispid 157;
function TGetPropertyNum(const target: WideString; property_: SYSINT): Double; dispid 158;
function TGetPropertyAsNumber(const target: WideString; property_: SYSINT): Double; dispid 172;
property SWRemote: WideString dispid 159;
property FlashVars: WideString dispid 170;
property AllowScriptAccess: WideString dispid 171;
property MovieData: WideString dispid 190;
property InlineData: IUnknown dispid 191;
property SeamlessTabbing: WordBool dispid 192;
procedure EnforceLocalSecurity; dispid 193;
property Profile: WordBool dispid 194;
property ProfileAddress: WideString dispid 195;
property ProfilePort: Integer dispid 196;
function CallFunction(const request: WideString): WideString; dispid 198;
procedure SetReturnValue(const returnValue: WideString); dispid 199;
procedure DisableLocalSecurity; dispid 200;
property AllowNetworking: WideString dispid 201;
end;
// *********************************************************************//
// DispIntf: _IShockwaveFlashEvents
// Flags: (4112) Hidden Dispatchable
// GUID: {D27CDB6D-AE6D-11CF-96B8-444553540000}
// *********************************************************************//
_IShockwaveFlashEvents = dispinterface
['{D27CDB6D-AE6D-11CF-96B8-444553540000}']
procedure OnReadyStateChange(newState: Integer); dispid -609;
procedure OnProgress(percentDone: Integer); dispid 1958;
procedure FSCommand(const command: WideString; const args: WideString); dispid 150;
procedure FlashCall(const request: WideString); dispid 197;
end;
// *********************************************************************//
// Interface: IFlashFactory
// Flags: (0)
// GUID: {D27CDB70-AE6D-11CF-96B8-444553540000}
// *********************************************************************//
IFlashFactory = interface(IUnknown)
['{D27CDB70-AE6D-11CF-96B8-444553540000}']
end;
// *********************************************************************//
// Interface: IDispatchEx
// Flags: (4096) Dispatchable
// GUID: {A6EF9860-C720-11D0-9337-00A0C90DCAA9}
// *********************************************************************//
IDispatchEx = interface(IDispatch)
['{A6EF9860-C720-11D0-9337-00A0C90DCAA9}']
function GetDispID(const bstrName: WideString; grfdex: LongWord; out pid: Integer): HResult; stdcall;
function RemoteInvokeEx(id: Integer; lcid: LongWord; dwFlags: LongWord; var pdp: DISPPARAMS;
out pvarRes: OleVariant; out pei: EXCEPINFO;
const pspCaller: IServiceProvider; cvarRefArg: SYSUINT;
var rgiRefArg: SYSUINT; var rgvarRefArg: OleVariant): HResult; stdcall;
function DeleteMemberByName(const bstrName: WideString; grfdex: LongWord): HResult; stdcall;
function DeleteMemberByDispID(id: Integer): HResult; stdcall;
function GetMemberProperties(id: Integer; grfdexFetch: LongWord; out pgrfdex: LongWord): HResult; stdcall;
function GetMemberName(id: Integer; out pbstrName: WideString): HResult; stdcall;
function GetNextDispID(grfdex: LongWord; id: Integer; out pid: Integer): HResult; stdcall;
function GetNameSpaceParent(out ppunk: IUnknown): HResult; stdcall;
end;
// *********************************************************************//
// Interface: IFlashObjectInterface
// Flags: (4096) Dispatchable
// GUID: {D27CDB72-AE6D-11CF-96B8-444553540000}
// *********************************************************************//
IFlashObjectInterface = interface(IDispatchEx)
['{D27CDB72-AE6D-11CF-96B8-444553540000}']
end;
// *********************************************************************//
// Interface: IServiceProvider
// Flags: (0)
// GUID: {6D5140C1-7436-11CE-8034-00AA006009FA}
// *********************************************************************//
IServiceProvider = interface(IUnknown)
['{6D5140C1-7436-11CE-8034-00AA006009FA}']
function RemoteQueryService(var guidService: TGUID; var riid: TGUID; out ppvObject: IUnknown): HResult; stdcall;
end;
// *********************************************************************//
// OLE Control Proxy class declaration
// Control Name : TShockwaveFlash
// Help String : Shockwave Flash
// Default Interface: IShockwaveFlash
// Def. Intf. DISP? : No
// Event Interface: _IShockwaveFlashEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
TShockwaveFlashOnReadyStateChange = procedure(ASender: TObject; newState: Integer) of object;
TShockwaveFlashOnProgress = procedure(ASender: TObject; percentDone: Integer) of object;
TShockwaveFlashFSCommand = procedure(ASender: TObject; const command: WideString;
const args: WideString) of object;
TShockwaveFlashFlashCall = procedure(ASender: TObject; const request: WideString) of object;
TShockwaveFlash = class(TOleControl)
private
FOnReadyStateChange: TShockwaveFlashOnReadyStateChange;
FOnProgress: TShockwaveFlashOnProgress;
FOnFSCommand: TShockwaveFlashFSCommand;
FOnFlashCall: TShockwaveFlashFlashCall;
FIntf: IShockwaveFlash;
function GetControlInterface: IShockwaveFlash;
protected
procedure CreateControl;
procedure InitControlData; override;
function Get_InlineData: IUnknown;
procedure Set_InlineData(const ppIUnknown: IUnknown);
public
procedure SetZoomRect(left: Integer; top: Integer; right: Integer; bottom: Integer);
procedure Zoom(factor: SYSINT);
procedure Pan(x: Integer; y: Integer; mode: SYSINT);
procedure Play;
procedure Stop;
procedure Back;
procedure Forward;
procedure Rewind;
procedure StopPlay;
procedure GotoFrame(FrameNum: Integer);
function CurrentFrame: Integer;
function IsPlaying: WordBool;
function PercentLoaded: Integer;
function FrameLoaded(FrameNum: Integer): WordBool;
function FlashVersion: Integer;
procedure LoadMovie(layer: SYSINT; const url: WideString);
procedure TGotoFrame(const target: WideString; FrameNum: Integer);
procedure TGotoLabel(const target: WideString; const label_: WideString);
function TCurrentFrame(const target: WideString): Integer;
function TCurrentLabel(const target: WideString): WideString;
procedure TPlay(const target: WideString);
procedure TStopPlay(const target: WideString);
procedure SetVariable(const name: WideString; const value: WideString);
function GetVariable(const name: WideString): WideString;
procedure TSetProperty(const target: WideString; property_: SYSINT; const value: WideString);
function TGetProperty(const target: WideString; property_: SYSINT): WideString;
procedure TCallFrame(const target: WideString; FrameNum: SYSINT);
procedure TCallLabel(const target: WideString; const label_: WideString);
procedure TSetPropertyNum(const target: WideString; property_: SYSINT; value: Double);
function TGetPropertyNum(const target: WideString; property_: SYSINT): Double;
function TGetPropertyAsNumber(const target: WideString; property_: SYSINT): Double;
procedure EnforceLocalSecurity;
function CallFunction(const request: WideString): WideString;
procedure SetReturnValue(const returnValue: WideString);
procedure DisableLocalSecurity;
property ControlInterface: IShockwaveFlash read GetControlInterface;
property DefaultInterface: IShockwaveFlash read GetControlInterface;
property ReadyState: Integer index -525 read GetIntegerProp;
property TotalFrames: Integer index 124 read GetIntegerProp;
property InlineData: IUnknown index 191 read GetIUnknownProp write SetIUnknownProp;
published
property Anchors;
property TabStop;
property Align;
property DragCursor;
property DragMode;
property ParentShowHint;
property PopupMenu;
property ShowHint;
property TabOrder;
property Visible;
property OnDragDrop;
property OnDragOver;
property OnEndDrag;
property OnEnter;
property OnExit;
property OnStartDrag;
property Playing: WordBool index 125 read GetWordBoolProp write SetWordBoolProp stored False;
property Quality: Integer index 105 read GetIntegerProp write SetIntegerProp stored False;
property ScaleMode: Integer index 120 read GetIntegerProp write SetIntegerProp stored False;
property AlignMode: Integer index 121 read GetIntegerProp write SetIntegerProp stored False;
property BackgroundColor: Integer index 123 read GetIntegerProp write SetIntegerProp stored False;
property Loop: WordBool index 106 read GetWordBoolProp write SetWordBoolProp stored False;
property Movie: WideString index 102 read GetWideStringProp write SetWideStringProp stored False;
property FrameNum: Integer index 107 read GetIntegerProp write SetIntegerProp stored False;
property WMode: WideString index 133 read GetWideStringProp write SetWideStringProp stored False;
property SAlign: WideString index 134 read GetWideStringProp write SetWideStringProp stored False;
property Menu: WordBool index 135 read GetWordBoolProp write SetWordBoolProp stored False;
property Base: WideString index 136 read GetWideStringProp write SetWideStringProp stored False;
property Scale: WideString index 137 read GetWideStringProp write SetWideStringProp stored False;
property DeviceFont: WordBool index 138 read GetWordBoolProp write SetWordBoolProp stored False;
property EmbedMovie: WordBool index 139 read GetWordBoolProp write SetWordBoolProp stored False;
property BGColor: WideString index 140 read GetWideStringProp write SetWideStringProp stored False;
property Quality2: WideString index 141 read GetWideStringProp write SetWideStringProp stored False;
property SWRemote: WideString index 159 read GetWideStringProp write SetWideStringProp stored False;
property FlashVars: WideString index 170 read GetWideStringProp write SetWideStringProp stored False;
property AllowScriptAccess: WideString index 171 read GetWideStringProp write SetWideStringProp stored False;
property MovieData: WideString index 190 read GetWideStringProp write SetWideStringProp stored False;
property SeamlessTabbing: WordBool index 192 read GetWordBoolProp write SetWordBoolProp stored False;
property Profile: WordBool index 194 read GetWordBoolProp write SetWordBoolProp stored False;
property ProfileAddress: WideString index 195 read GetWideStringProp write SetWideStringProp stored False;
property ProfilePort: Integer index 196 read GetIntegerProp write SetIntegerProp stored False;
property AllowNetworking: WideString index 201 read GetWideStringProp write SetWideStringProp stored False;
property OnReadyStateChange: TShockwaveFlashOnReadyStateChange read FOnReadyStateChange write FOnReadyStateChange;
property OnProgress: TShockwaveFlashOnProgress read FOnProgress write FOnProgress;
property OnFSCommand: TShockwaveFlashFSCommand read FOnFSCommand write FOnFSCommand;
property OnFlashCall: TShockwaveFlashFlashCall read FOnFlashCall write FOnFlashCall;
end;
// *********************************************************************//
// The Class CoFlashProp provides a Create and CreateRemote method to
// create instances of the default interface IUnknown exposed by
// the CoClass FlashProp. The functions are intended to be used by
// clients wishing to automate the CoClass objects exposed by the
// server of this typelibrary.
// *********************************************************************//
CoFlashProp = class
class function Create: IUnknown;
class function CreateRemote(const MachineName: string): IUnknown;
end;
// *********************************************************************//
// OLE Server Proxy class declaration
// Server Object : TFlashProp
// Help String : Macromedia Flash Player Properties
// Default Interface: IUnknown
// Def. Intf. DISP? : No
// Event Interface:
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TFlashPropProperties= class;
{$ENDIF}
TFlashProp = class(TOleServer)
private
FIntf: IUnknown;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TFlashPropProperties;
function GetServerProperties: TFlashPropProperties;
{$ENDIF}
function GetDefaultInterface: IUnknown;
protected
procedure InitServerData; override;
public
constructor Create(AOwner: TComponent); override;
destructor Destroy; override;
procedure Connect; override;
procedure ConnectTo(svrIntf: IUnknown);
procedure Disconnect; override;
property DefaultInterface: IUnknown read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TFlashPropProperties read GetServerProperties;
{$ENDIF}
end;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
// *********************************************************************//
// OLE Server Properties Proxy Class
// Server Object : TFlashProp
// (This object is used by the IDE's Property Inspector to allow editing
// of the properties of this server)
// *********************************************************************//
TFlashPropProperties = class(TPersistent)
private
FServer: TFlashProp;
function GetDefaultInterface: IUnknown;
constructor Create(AServer: TFlashProp);
protected
public
property DefaultInterface: IUnknown read GetDefaultInterface;
published
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -