Ограничение скорости BITS в приложениях на Delphi

Delphi , ОС и Железо , Windows

Ограничение скорости Background Intelligent Transfer Service (BITS) в приложениях на Delphi

Background Intelligent Transfer Service (BITS) — это компонент операционной системы Windows, предназначенный для фоновой передачи данных, который автоматически управляет скоростью передачи данных для оптимизации использования сетевых ресурсов и минимизации влияния на производительность системы. Ограничение скорости загрузки и планирование заданий BITS обычно осуществляется через групповые политики.

Однако, в случае когда IT-команда клиента не хочет задействовать групповую политику, возникает необходимость управления этими параметрами непосредственно из кода. В данной статье мы рассмотрим, как можно ограничить скорость загрузки и запланировать выполнение заданий BITS в приложениях, написанных на Delphi.

Ограничение скорости BITS

Для ограничения скорости BITS заданий из кода, можно использовать методы класса BITSJob из пространства имен Microsoft.BITS. Однако, стоит отметить, что на момент написания этой статьи, API BITS не предоставляет прямых возможностей для ограничения скорости передачи данных.

Тем не менее, можно использовать сторонние библиотеки или инструменты, например, NetLimiter, которые позволят контролировать использование сетевых ресурсов на уровне операционной системы. Это потребует интеграции стороннего ПО в ваше приложение.

// Пример кода на Delphi не применим, так как BITS не предоставляет API для ограничения скорости.

Планирование BITS заданий

Для планирования BITS заданий на выполнение в определённые часы можно использовать планировщик задач Windows. В Delphi для работы с планировщиком задач можно использовать компоненты, такие как TTaskScheduler.

uses
  Winapi.TaskScheduler;

procedure TForm1.ScheduleBITSJob(const JobName: string; const StartTime: TDateTime; const Interval: Integer);
var
  TS: TTaskService;
  Task: TTask;
begin
  TS := TTaskService.Create(nil);
  try
    Task := TS.CreateTask(JobName, True);
    with Task.TriggerCollection.Create as Trigger: TTimeTrigger do
    begin
      Trigger.StartTime := StartTime;
      Trigger.Interval := Interval;
      Trigger.DayOfWeek := [dwWeekdays];
      Trigger.RepeatCount := -1; // Бесконечное повторение
      Trigger.Enabled := True;
    end;
    Task.Actions.Add(CreateBITSAction(JobName)); // Создание действия для запуска BITS задания
    TS.SaveTask(Task);
  finally
    TS.Free;
  end;
end;

function CreateBITSAction(const JobName: string): TExecAction;
begin
  Result := TExecAction.Create(nil);
  with Result do
  begin
    ActionType := etExecute;
    with Parameters do
    begin
      Add('{B54F1FFE-1E8B-11D0-89P0-00AA0060B827}', 'Microsoft.Bits.BitsService', 'CreateJob', JobName, '');
    end;
  end;
end;

В этом примере кода создаётся задача, которая будет запускать BITS задание в заданное время.

Заключение

К сожалению, в рамках стандартных возможностей BITS ограничить скорость загрузки заданий из кода не представляется возможным. Однако, планирование заданий можно реализовать, используя планировщик задач Windows. Для контроля скорости загрузки можно рассмотреть интеграцию сторонних инструментов, таких как NetLimiter, в ваше приложение на Delphi.

Создано по материалам из источника по ссылке.

Статья о том, как ограничить скорость фоновой передачи данных с помощью BITS в приложениях на Delphi и о планировании таких заданий.

Комментарии и вопросы

Получайте свежие новости и обновления по Object Pascal, Delphi и Lazarus прямо в свой смартфон. Подпишитесь на наш Telegram-канал delphi_kansoftware и будьте в курсе последних тенденций в разработке под Linux, Windows, Android и iOS

:: Главная :: Windows ::