// *********************************************************************//
// OLE-Server-Proxy-Klassendeklaration
// Server-Objekt : TCoffeeBarController
// Hilfe-String :
// Standardschnittstelle: _CoffeeBarController
// Def. Intf. DISP? : No
// Ereignisschnittstelle: ICoffeeBarControllerEvents
// TypeFlags : (2) CanCreate
// *********************************************************************//
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
TCoffeeBarControllerProperties=
class;
{$ENDIF}
TCoffeeBarController =
class(TOleServer)
private
FOnBrewed: TCoffeeBarControllerBrewed;
FIntf: _CoffeeBarController;
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
FProps: TCoffeeBarControllerProperties;
function GetServerProperties: TCoffeeBarControllerProperties;
{$ENDIF}
function GetDefaultInterface: _CoffeeBarController;
protected
procedure InitServerData;
override;
procedure InvokeEvent(
DispID: TDispID;
var Params: TVariantArray);
override;
public
constructor Create(AOwner: TComponent);
override;
destructor Destroy;
override;
procedure Connect;
override;
procedure ConnectTo(svrIntf: _CoffeeBarController);
procedure Disconnect;
override;
property DefaultInterface: _CoffeeBarController
read GetDefaultInterface;
published
{$IFDEF LIVE_SERVER_AT_DESIGN_TIME}
property Server: TCoffeeBarControllerProperties
read GetServerProperties;
{$ENDIF}
property OnBrewed: TCoffeeBarControllerBrewed
read FOnBrewed
write FOnBrewed;
end;