Gestor de claves API

uses
  sgcWebSocket, sgcWebSocket_Server, sgcAPIKeyManager;

var
  Keys: TsgcWSAPIKeyManager;
  WSServer: TsgcWebSocketHTTPServer;
begin
  Keys := TsgcWSAPIKeyManager.Create(nil);
  Keys.OnAPIKeyAuthenticate := DoAuth;

  WSServer := TsgcWebSocketHTTPServer.Create(nil);
  WSServer.Port := 80;
  WSServer.APIKeyManager := Keys;
  WSServer.Active := True;
end;

procedure TForm1.DoAuth(Sender: TObject;
  const aKey: string; var Authenticated: Boolean);
begin
  Authenticated := IsValidKey(aKey);
end;