[lmikle]

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

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

Статистика показывает, что, к сожалению, поиском пользуется 0.(0)1% людей, просто предпочитают сразу задавать вопрос.

Собственно, по теме.
Я бы строил примерно так.
Если задача стоит как список заданий вида:
[на этот сервер][закачать][эту папку/файл]
то делаем пул потоков-работников, каждый из которых обрабатывает одно задание. Когда поток выполняет задание, он спрашивает (беред из очереди) следующее. Тут тебе потребуются критические секции (CriticalSection). Общее кол-во потоков тоже ограничивается каким-то разумным числом (5-10).
Ну и соответсвенно поток-координатор (м.б. главный поток приложения) просто обеспечивает очередь заданий для выполнения и следит когда вся работа закончится.

[ujanin]

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

Ну уж если к такому коду комментарии писать, то однозначно - за учебники.

Ну я в начале темы и написал, что новичек, да и раздел для начинающих Код прочел, примерно понял как работает, но лучше от комментировать

[angvelem]

Offtop:
No comments

[ujanin]

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

Статистика показывает, что, к сожалению, поиском пользуется 0.(0)1% людей, просто предпочитают сразу задавать вопрос.

Ну тут двояко. Я например задал вопрос на этом форуме, но мне никто не ответил, все нашел по методу "прогуглил яндекс". Но когда искал часто натыкался на тему, где похожие вопросы без ответа, так что отсюда вытекает, смысл от поиска, если знающие люди по тем или иным причинам не отвечают новичкам?

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

Собственно, по теме.
Я бы строил примерно так.
Если задача стоит как список заданий вида:
[на этот сервер][закачать][эту папку/файл]
то делаем пул потоков-работников, каждый из которых обрабатывает одно задание. Когда поток выполняет задание, он спрашивает (беред из очереди) следующее. Тут тебе потребуются критические секции (CriticalSection). Общее кол-во потоков тоже ограничивается каким-то разумным числом (5-10).
Ну и соответсвенно поток-координатор (м.б. главный поток приложения) просто обеспечивает очередь заданий для выполнения и следит когда вся работа закончится.

Я в голове понимаю, что мне надо, только сложность в том что не владею инструментарием delphi, но потихоничку по частям собираю проект в кучу. Вот кстате хороший видео урок Многопоточность и синхронизация delphi http://avtuh.ru/2010/10/10/delphi-vi...onizaciya.html
Скачал видео и исходник, сейчас буду разбирать и запилю в свой проект.

[ujanin]

Хелп! Почему выскакивает ошибка Project.Project2.exe raised exception class EAccessViolation with message 'Access violation at address 00427DA0 in module 'Project2.exe'. Read of address 0000000000'. Process stoped. Use Step or Run to continue. при нажатии на батон.

PHP код:

procedure TForm1.Button1Click(Sender: TObject);
var
  Acc:integer;
  Work:boolean;
begin

   work:=true;
   Acc:=-1;
   for Thread:=1  to strtoint(Edit1.Text) do
   TNewThread.Create(false);
   Thread:=strtoint(Edit1.Text);
  end; 


Когда убираю work, то ошибки нет, а с ним выскакивает. Почему так?

[angvelem]

Силён. Что это строка по твоему делает?

Код:

    TNewThread.Create(false);

[NumLock]

вот рабочий пример с Work:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TNewThread = class(TThread)
  protected
    procedure Execute; override; 
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TNewThread }

procedure TNewThread.Execute;
begin
  Sleep(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: Integer;
  Work: Boolean;
begin
  Work:=True;
  for Thread:=1 to StrToInt(Edit1.Text) do
    TNewThread.Create(False);
  if Work then PostMessage(Handle, WM_CLOSE, 0, 0);
end;

end.

http://data.cod.ru/123478

[ujanin]

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

Силён. Что это строка по твоему делает?

Код:

    TNewThread.Create(false);

Я взял исходник вот тут http://avtuh.ru/2010/10/10/delphi-vi...onizaciya.html как за пример и хотел переделать для себя, но т.к. я новичек не понял некоторые моменты кода, и этот один из этих моментов. Процедуру с потоком TNewThread переделал для себя. По идеи эта функция должна запускать потоки.

[ujanin]

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

вот рабочий пример с Work:

Код:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls;

type
  TNewThread = class(TThread)
  protected
    procedure Execute; override; 
  end;

  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

{ TNewThread }

procedure TNewThread.Execute;
begin
  Sleep(0);
end;

procedure TForm1.Button1Click(Sender: TObject);
var
  Thread: Integer;
  Work: Boolean;
begin
  Work:=True;
  for Thread:=1 to StrToInt(Edit1.Text) do
    TNewThread.Create(False);
  if Work then PostMessage(Handle, WM_CLOSE, 0, 0);
end;

end.

http://data.cod.ru/123478

Спасибо друг!