VPF::многопоточность - Форум программистов

NieL

Дата 20.3.2011, 21:15 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

есть массив идентификаторов целочисленного типа:

Код


IDs: array [1..99] of Integer;

Задача: пройти по массиву, подставляя текущий идентификатор в GET-запрос. Сделать возможность отправки GET-запросов в несколько потоков. Собственно вопрос по многопоточности, как такое обычно правильно делается? Нашел два варианта реализация.

1-й вариант

Код


threads_for_run := 5; // количество потоков, будет вводится пользователем, для примера 5 
for I := Low(IDs) to High(IDs) do
begin
  Application.ProcessMessages;
  if thread_running = thread_for_run then  // thread_running - глобальная переменная, количество работающих в данный момент потоков
    while thread_runnin = thread_for_run do
    begin
      Sleep(10);
      Application.ProcessMessages; 
    end;
   TMyThread.Create(False, IDs[I]); // нужна ли тут critical section?

end;

2-вариант

Создаем нужное количество потоков.

Код


for I := 1 to threads_for_run do
begin
  TMyThread.Create(False);  
  
end;

проходим по элементам массивава из TMyThread.Execute;

Код


procedure TMeThread.Execute;
var
  ID: Integer;
begin
  while True do // пока не конец массива
  begin
    CriticalSection.Enter; // нужна ли тут critical section?
    try 
      Inc(cur_id); // глобальная переменная, текущий элемент массива
  
      if cur_id < High(IDs) then   
        ID := cur_id
   
      else
        // Break;
    finally
      CriticalSection.Leave;
    end;
    // формируем Get-запрос, отправляем на веб сервер    

   end;

end;

MetalFan

Дата 20.3.2011, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

Как по мне, так оба варианта... не фонтан.
Имхо, должен быть один поток-менеджер, и N рабочих потоков.
У менеджера должен быть некий пул запросов и событие окончания обработки запроса.
Менеджер периодически проверяет, нет ли новых запросов, берет первый свободный рабочий поток и отдает ему данные для выполнения запроса.
Так же менеджером делается проверка на завершение задачи рабочим потоком.
Как то так) по крайней мере я такую архитектуру обычно у себя реализовываю в случае подобных задач.

--------------------

There are always someone smarter than you...

NieL

Дата 20.3.2011, 22:16 (ссылка)

(нет голосов)

Загрузка ...

Бывалый

Профиль
Группа: Участник
Сообщений: 214
Регистрация: 10.2.2008

Репутация: 1
Всего: 1

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

MetalFan

Дата 20.3.2011, 22:47 (ссылка)

(нет голосов)

Загрузка ...

Аццкий Сотона

Профиль
Группа: Комодератор
Сообщений: 3815
Регистрация: 2.10.2006
Где: Moscow

Репутация: 62
Всего: 128

На этом форуме есть замечательная статья про потоки. После ее прочтения и осмысления никаких вопросов по реализации ранее упомянутого алгоритма возникнуть не должно.

--------------------

There are always someone smarter than you...

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »