Circuit breaker dla Delphi

uses
  sgcWebSocket_CircuitBreaker;

var
  CB: TsgcWSCircuitBreaker;
begin
  CB := TsgcWSCircuitBreaker.Create(nil);
  CB.FailureThreshold := 5;
  CB.ResetTimeout     := 30;  // seconds

  CB.OnCircuitBreakerOpen     := DoOpen;
  CB.OnCircuitBreakerHalfOpen := DoHalfOpen;
  CB.OnCircuitBreakerClose    := DoClose;

  // Attach to an HTTP / API component that exposes a CircuitBreaker property
  Anthropic.CircuitBreaker := CB;
end;