Создание потоков

[kardinal94]

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

for I := 0 to 9 do
  begin
potok:=demo.Create(false);
potok.Priority:=tpnormal;
potok.FreeOnTerminate:=true;
  end;

А сама процедура потока выглядит следующим образом:

procedure Demo.Execute;
var
  neiz, yours, itcount, i: integer;
  fbi: string;
  Inif: TInifile;
begin
  for yours := 0 to Form1.CheckListBox1.items.Count - 1 do
  Begin
    if Form1.CheckListBox1.checked[yours] = true then
    begin
      Inif := TInifile.Create(ExtractFilePath(ParamStr(0))
          + 'base\' + Form1.Memo2.Lines.Strings[yours]);
      fbi := Inif.ReadString('Readktor', 'Info', '');
      if lowercase(fbi) = 'phpbbadd' then
        phpbbgo(yours);
      if lowercase(fbi) = 'npadd' then
        npaddgo(yours);
    end;
  End;

То есть выполняются две процедуры phpbbgo(yours) & npaddgo(yours);
При этом стоит вопрос, а не должен ли я их синхронизировать? Как? Насколько я понимаю процедуры с входными нельзя синхронизировать с помощью функции Synchronize. И вообще правильно ли я делаю.

[veniside]

Начнём с того, что с VCL компонентами нельзя работать не из главного потока. Все эти обращения к Form1.CheckListBox1 и Form1.Memo2 рано или поздно завалят ваше приложение.

> potok.FreeOnTerminate:=true;

есть шанс, что эта строчка выполнится уже после того, как поток отработает и завершится.

> а не должен ли я их синхронизировать?

зависит от того, что в них происходит.

> входными нельзя синхронизировать с помощью функции Synchronize

во-первых, Synchronize() ничего не "синхонизирует". Этот метод только обеспечивает выполнение переданной ему процедуры в главном потоке.

во-вторых, параметры передавать можно, но не явно, а через поля класса, например.

> И вообще правильно ли я делаю

не заметно. 10 потоков будут насиловать одни и те же ini файлы. Смысл ваших действий?

[kardinal94]

Сообщение от veniside

Начнём с того, что с VCL компонентами нельзя работать не из главного потока. Все эти обращения к Form1.CheckListBox1 и Form1.Memo2 рано или поздно завалят ваше приложение.

И как к ним тогда обращаться? О_о

Сообщение от veniside

> а не должен ли я их синхронизировать?

зависит от того, что в них происходит.

В них происходит отправка POST/GET запросов, парсинг.

Сообщение от veniside

> входными нельзя синхронизировать с помощью функции Synchronize

во-первых, Synchronize() ничего не "синхонизирует". Этот метод только обеспечивает выполнение переданной ему процедуры в главном потоке.

во-вторых, параметры передавать можно, но не явно, а через поля класса, например.

А как насчет конкретного примера?

Сообщение от veniside

> И вообще правильно ли я делаю

не заметно. 10 потоков будут насиловать одни и те же ini файлы. Смысл ваших действий?

Действительно только сейчас заметил, мне надо чтобы каждый новый потом брал следующий файл, только пока ума не приложу как это реализовать.

[veniside]

> И как к ним тогда обращаться?

из потока лучше никак. Не, ну в самом деле, что там такого супер важного в этом мемо, чего нельзя передать в поток заранее?

Если уж очень надо обратиться, то используйте Synchronize(), PostMessage() или любой другой доступный механизм межпотокового взаимодействия.

> В них происходит отправка POST/GET запросов, парсинг.

ну, это ни о чём не говорит. Скажем так, если в них идёт обращение к совместно разделяемым ресурсам (например, один парсер на всех, или один TStrignList, куда сбрасываются результаты парсинга), то оборачивайте доступ к ним критическими секциями, это и будет синхронизация, а не вызов Syncronize()!

> А как насчет конкретного примера?

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

> ума не приложу как это реализовать

Ну это как раз просто:

Demo = class(TThread)
private
  f_ini: string;

  .....

public
  constructor Create(const ini: string);
end;

{ Demo }

constructor Demo.Create(const ini: string);
begin
  f_ini := ini;
  FreeOnTerminate := True;
  Priority := tpnormal;
  //
  inherited Create(False);
end;

Одним выстрелом 3-х зайцев:

1) внутри потока не нужно больше обращаться к VCL, т.к. имя файла уже передано
2) FreeOnTerminate := True; выполняется в нужном месте
3) Проще выглядит создание потоков:

for I := 0 to 9 do
  demo.Create(ExtractFilePath(ParamStr(0))  + 'base\' + Form1.Memo2.Lines.Strings[l]); // как пример

[jskorvin]

Читайте настройки ини в главном потоке и передавайте их параметром (как было замечено выше).

Моя реализация подобного

TH.host:=SES[StrToInt(SEnum)][0];
TH.query:=SES[StrToInt(SEnum)][1];
TH.LinksMask:=SES[StrToInt(SEnum)][2];
TH.totalpages:=SES[StrToInt(SEnum)][3];
TH.sename:=SES[StrToInt(SEnum)][4];
TH.NextPageShab:=SES[StrToInt(SEnum)][5];

SES двумерный массив с параметрами. При старте сначала полностью читается ини, а затем уже передаются параметры потокам.

Ну это так, отвлечение, заострить внимание я хотел не на этом.
Проверьте как стартуют потоки, недавно в похожем случае выяснилось, что они стартанут разом после выполнения цикла. Вероятно у вас будет также. На 10 потоках вы этого не заметите, а вот 100 уложит вам машину.