TDebugCaptureService

type TDebugCaptureService = class(TComponent)

protected

  procedure DoLog();

  function GetCaptureJSON();

  procedure DistributeCaptureOutput(); virtual;

  procedure DoLogToConsole(); virtual;

  procedure DoLogToErrorLog(); virtual;

  procedure DoLogToFile(); virtual;

  function CreateRegistrationList; virtual;

  property Handlers: THandlerRegistrationList; [r]

public

  constructor Create(); override;

  destructor Destroy; override;

  class constructor init;

  destructor done;

  property Instance: TDebugCaptureService; [r]

  class function JSONDataToString();

  procedure HandleRequest();

  procedure RegisterHandler();

  procedure UnregisterHandler();

  property HandlerCount: Integer; [r]

  property LogFileName: string; [rw]

  property LogToConsole: Boolean; [rw]

  property CaptureToErrorLog: Boolean; [rw]

  property OnLog: TDebugCaptureLogHandler; [rw]

  property CORS: TCORSSupport; [rw]

end;

TDebugCaptureService

TObject