TCEFServerComponent

type TCEFServerComponent = class(TComponent,IServerEvents)

protected

  FHandler: ICefServerHandler;

  FServer: ICefServer;

  FInitialized: Boolean;

  FOnServerCreated: TOnServerCreated;

  FOnServerDestroyed: TOnServerDestroyed;

  FOnClientConnected: TOnClientConnected;

  FOnClientDisconnected: TOnClientDisconnected;

  FOnHttpRequest: TOnHttpRequest;

  FOnWebSocketRequest: TOnWebSocketRequest;

  FOnWebSocketConnected: TOnWebSocketConnected;

  FOnWebSocketMessage: TOnWebSocketMessage;

  function GetInitialized;

  function GetIsRunning;

  function GetAddress;

  function GetHasConnection;

  procedure doOnServerCreated(); virtual;

  procedure doOnServerDestroyed(); virtual;

  procedure doOnClientConnected(); virtual;

  procedure doOnClientDisconnected(); virtual;

  procedure doOnHttpRequest(); virtual;

  procedure doOnWebSocketRequest(); virtual;

  procedure doOnWebSocketConnected(); virtual;

  procedure doOnWebSocketMessage(); virtual;

  procedure InitializeEvents;

public

  constructor Create(); override;

  destructor Destroy; override;

  procedure CreateServer();

  procedure Shutdown;

  function IsValidConnection();

  procedure SendHttp200response();

  procedure SendHttp404response();

  procedure SendHttp500response();

  procedure SendHttpResponse();

  procedure SendRawData();

  procedure CloseConnection();

  procedure SendWebSocketMessage();

  property Initialized: Boolean; [r]

  property IsRunning: Boolean; [r]

  property Address: ustring; [r]

  property HasConnection: Boolean; [r]

published

  property OnServerCreated: TOnServerCreated; [rw]

  property OnServerDestroyed: TOnServerDestroyed; [rw]

  property OnClientConnected: TOnClientConnected; [rw]

  property OnClientDisconnected: TOnClientDisconnected; [rw]

  property OnHttpRequest: TOnHttpRequest; [rw]

  property OnWebSocketRequest: TOnWebSocketRequest; [rw]

  property OnWebSocketConnected: TOnWebSocketConnected; [rw]

  property OnWebSocketMessage: TOnWebSocketMessage; [rw]

end;

TCEFServerComponent

TObject,IServerEvents