Оптимизация параллельных запросов в сети Netbios с использованием AsyncCalls в Delphi

Delphi , Компоненты и Классы , Потоки

Оптимизация параллельных запросов в сети Netbios с использованием AsyncCalls в Delphi

Вопрос о параллельных запросах в сети Netbios может возникнуть перед разработчиками, использующими Delphi для создания клиент-серверных приложений, особенно в контексте работы с сетевыми службами, такими как Netbios. В данном случае рассматривается использование компонента AsyncCalls, который предназначен для асинхронного выполнения функций, что позволяет улучшить производительность за счет параллельной обработки задач.

Проблема

Разработчик столкнулся с проблемой, когда при попытке выполнить Netbios lookup для всего класса C подсети с использованием компонента AsyncCalls, запросы выполнялись последовательно, а не параллельно, как было бы желательно. Это приводило к тому, что в момент работы с подсетью из 255 хостов, процесс запросов был неэффективным и занимающим много времени.

Контекст

Данные, предоставленные разработчиком, показывают, что он использует асинхронные вызовы функций, но не может добиться параллельной обработки. Основной код, который был предоставлен, включает функцию NetBiosLookup, которая выполняет запрос в сети Netbios, и процедуру Button1Click, которая инициирует множество асинхронных вызовов через цикл.

Подтвержденный ответ

После детального изучения проблемы было выявлено, что проблема кроется в механизме возвращаемых интерфейсов IAsyncCall. Каждый вызов AsyncCallEx возвращает интерфейс, который необходимо корректно обработать, чтобы избежать синхронного ожидания завершения предыдущего запроса. В примере решения предложено сохранить возвращенные интерфейсы в массив, чтобы обеспечить их живучесть и возможность параллельной работы.

type
  TNetbiosTask = record
    // ... как было ранее ...
    thread: IAsyncCall;
  end;

private
  fAsyncCalls: array of IAsyncCall;

procedure TForm2.Button1Click(Sender: TObject);
var
  i: integer;
  ArrNetbiosTasks: array of TNetbiosTask;
  sIp: string;
begin
  SetMaxAsyncCallThreads(50);
  SetLength(ArrNetbiosTasks, 255);
  sIp := '192.168.1.';
  for i := 1 to 255 do
  begin
    ArrNetbiosTasks[i - 1].hMainForm := Self.Handle;
    ArrNetbiosTasks[i - 1].sAddress := Concat(sIp, IntToStr(i));
    ArrNetbiosTasks[i - 1].iTimeout := 5000;
    ArrNetbiosTasks[i - 1].thread := AsyncCallEx(@NetBiosLookup, ArrNetbiosTasks[i - 1]);
    SetLength(fAsyncCalls, Length(fAsyncCalls) + 1);
    fAsyncCalls[High(fAsyncCalls)] := ArrNetbiosTasks[i - 1].thread;
  end;
  // Дополнительный код для ожидания завершения всех задач
  // ...
end;

Альтернативный ответ

Разработчику было предложено обратить внимание на то, что использование AsyncCalls может быть не самым лучшим решением для данной задачи. В частности, было указано на то, что каждый вызов AsyncCallEx возвращает интерфейс IAsyncCall, который, если его не обработать должным образом, приведет к синхронному ожиданию завершения работы предыдущего потока. Для решения проблемы предлагается сохранить эти интерфейсы в массиве, чтобы избежать их автоматического освобождения и, соответственно, синхронного поведения.

Выводы

Для эффективной работы с параллельными запросами в сети Netbios с использованием AsyncCalls в Delphi, необходимо правильно управлять возвращаемыми интерфейсами IAsyncCall. Это позволит избежать ненужного ожидания завершения предыдущих задач и улучшить общую производительность системы.

Приведенный пример кода демонстрирует, как можно модифицировать существующий код для обеспечения параллельной обработки запросов. Однако, важно также добавить код для ожидания завершения всех задач и корректного освобождения ресурсов.

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

Контекст: Разработчик в Delphi пытается оптимизировать параллельные запросы в сети Netbios с использованием компонента AsyncCalls, но сталкивается с проблемой их последовательного выполнения.

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

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

:: Главная :: Потоки ::