Многопоточность

[Fahman]

type
 TPotok=class(TThread)
  private
   html:WideString;
      procedure reg;
  protected
   procedure Execute;override;
end;

procedure TPotok.reg;
begin
 Form1.sMemo2.Lines.Add(rege.Match[0]);
end;

procedure TPotok.Execute;
begin
  for i:=0 to Form1.sMemo1.Lines.Count-1 do
  begin
    try
      site:=Form1.sMemo1.Lines.Strings[i];
      html:=HTTP.Get(site);
    except
    end;
    if rege.Exec(html) then
     repeat Synchronize(reg);
     until (not rege.ExecNext) or Potok.Terminated;
    if Potok.Terminated then break;
  end;
  HTTP.Free;
  Rege.Free;
end;

Имеется следующий поток, как задать ему кол-во потоков в SpinEdit?

[Streletz]

В цикле for создать количество экземпляров потока равное значению в spinedit.
ИМХО: Лучше это делать с помощью динамических массивов.

var
  potoks: array of TPotok;//Динамический массив потоков
begin
...
  SetLength(potoks,SpinEdit1.Value); //Задаём размер массива потоков 
for i:=0 to SpinEdit1.Value-1 do //Создаём нужное количество потоков
  potoks[i]:=TPotok.Create(false);

Примерно как-то так.

[Fahman]

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

В цикле for создать количество экземпляров потока равное значению в spinedit.
ИМХО: Лучше это делать с помощью динамических массивов.

var
  potoks: array of TPotok;//Динамический массив потоков
begin
...
  SetLength(potoks,SpinEdit1.Value); //Задаём размер массива потоков 
for i:=0 to SpinEdit1.Value-1 do //Создаём нужное количество потоков
  potoks[i]:=TPotok.Create(false);

Примерно как-то так.

Не работает.

[Streletz]

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

Не работает.

Почему не работает? Работает. Просто у Вас видимо, где-то ошибка.
Можете выложить Ваш код формирования потоков, который выдаёт ошибку?
В чём суть проблемы?
Кстати, SpinEdit лучше не использовать, он не всегда работает корректно. Лучше используйте UpDown в ассоциации с Edit.

[STRELOK-2007]

/facepalm

Во-первых, есть такой класс как TThreadList, скорее всего идеально использовать его. Но, я привык всегда использовать TStringList для этих целей - и универсальное хранилище для объектов и одновременно хранилище строк.

var
 FDB: TStringList;
 obj: TPotok;
 i: Integer;
begin
 FDB:= TStringList.Create;

 for i:=0 to SpinEdit.Value-1 do
  begin
   obj:=TPotok.Create;
   FDB.AddObject('', obj);
   obj.Start;
  end;
end;

[Fahman]

Сообщение от STRELOK-2007

/facepalm

Во-первых, есть такой класс как TThreadList, скорее всего идеально использовать его. Но, я привык всегда использовать TStringList для этих целей - и универсальное хранилище для объектов и одновременно хранилище строк.

var
 FDB: TStringList;
 obj: TPotok;
 i: Integer;
begin
 FDB:= TStringList.Create;

 for i:=0 to SpinEdit.Value-1 do
  begin
   obj:=TPotok.Create;
   FDB.AddObject('', obj);
   obj.Start;
  end;
end;

При старте ошибка - "Cannot call Start on a running or suspended thread."

[Пепел Феникса]

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

При старте ошибка - "Cannot call Start on a running or suspended thread."

ну так прочтите ошибку и примите меры.

[Fahman]

Сообщение от Пепел Феникса

ну так прочтите ошибку и примите меры.

Сам я не силен в англ. а гугл старнно переводит

"Невозможно вызвать Пуск на бег или приостановленного потока."

[demiware]

Все написано в хэлпе по методу start :

Starts the execution of a thread.
Call Start to cause a thread that was created in suspended state to start its execution. To create a thread in suspended state, pass true to the thread's constructor. For threads that were not created in suspended state, calling Start has no effect.

Если в англ. не силен, поясню: поскольку в конструкторе потока нет параметра TRUE, то Start не надо вызывать - поток уже стартанул после создания сразу...
-----------
Мой блог http://demiware.ru

[Stilet]

А я дополню:
Если obj:=TPotok.Create; то obj.Start не нужен. Но если нужно просто создать поток, чтоб перед его работой какие-то его поля проинициализировать то:

  begin
   obj:=TPotok.Create(false);
   FDB.AddObject('', obj);
   obj.Start;
  end;

тогда поток создается приостановленным и ждет старта.
Кстати в твоем коде можно просто: FDB.AddObject('', TPotok.Create()); и все.