Вопросы по потокам TThread

[GunSmoker]

Несложно сообразить, что для этого нужно

Caption := 'Уря!'

заменить на запуск процесса.

[Shouldercannon]

Туплю. Не знаю как задействовать ProgressBar на Form1 из юнита с потоком

procedure TDownloadThread.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  PostMessage(???, WM_USER, 1, AWorkCount);
end;

procedure TDownloadThread.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  PostMessage(???, WM_USER, 0, AWorkCountMax);
end;

[GunSmoker]

??? - это информация, которая нужна потоку. Которой у потока нет. Что мы делаем с этой информацией?

Смотрим пример в коде. Пример такой информации - путь для сохранения и имя скачиваемого файла.

Внимание, вопрос: так что же тогда мы делаем с этой информацией?



































Блин, передаём её потоку, конечно же!

Как же это сделать?

























А ровно так же:

type
  TDownloadThread = class(TThread)
  private
    ...
    FProgressNotifyWnd: HWND;
    ...
  protected
    ...
    property ProgressNotifyWnd: HWND read FProgressNotifyWnd;
  public
    constructor Create(const AProgressNotifyWnd: HWND; ...);
    ...
  end;

constructor TDownloadThread.Create(const AProgressNotifyWnd: HWND; ...);
begin
  // Настройка потока:
  ...
  FProgressNotifyWnd := AProgressNotifyWnd;

  // Поехали! (С)
  inherited Create(False);
end;

procedure TDownloadThread.HTTPWork(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCount: Integer);
begin
  PostMessage(ProgressNotifyWnd, WM_USER, 1, AWorkCount);
end;

procedure TDownloadThread.HTTPWorkBegin(Sender: TObject; AWorkMode: TWorkMode;
  const AWorkCountMax: Integer);
begin
  PostMessage(ProgressNotifyWnd, WM_USER, 0, AWorkCountMax);
end;

Ну ЧТО тут не понятно-то?

Тут не надо даже особо думать - просто тупо скопировать по шаблону уже написанный код. Только имя FileName заменить на ProgressNotifyWnd. Тип String на HWND. И всё.

P.S. Большие пробелы вставлены в пост в расчёте побудить желание подумать, прежде чем смотреть ответ.

[Человек_Борща]

Тс, странный вы. И премеров вам дали, и толпы текса и кода вам тоже дали. А вы непонимаете.
Ну тут 2 вывода:
1. Вы хотите готовый код, под вас.
2. Вы не хотите понимать
3. Сами знаете.

[Shouldercannon]

Только имя FileName заменить на ProgressNotifyWnd. Тип String на HWND. И всё.

Тогда переменной FileName не будет и как я передам имя файла. Снова путаница или подвох, или я торможу?

Тяжело даётся освоение потоков. Только нашёл статью, где описывается работа с потоками и, вроде бы понял, но нет есть другой вид построения потока, который просто выносит.

[GunSmoker]

Друг, в твоих вопросах потоками не пахнет. Речь идёт об основах работы с объектами.

Есть два пути:
1. Задача пока не для вас. Вернитесь к ней потом, после изучения основ.
2. Выбрать другой способ работы с потоками, без объектов. Например, BeginThread.

[Shouldercannon]

Допустим ли такой способ завершения работы потока?

procedure TMyThread.Execute;
var
  i2: Integer;
begin
  for i2 := 0 to 60 do
  begin
    if i2 > 61 then Break;
    Sleep(100);
    i := i2;
    Synchronize(SyncProc);
  end;

  Terminate;
end;

[cotseec]

зачем? когда основная процедура потока (коей и является метод Execute) завершается - поток прекращается, а вот освобождается ли память, занятая под объект типа TThread - это другой вопрос, для этого либо FreeOnTerminate := true; либо самостоятельно вызвать деструктор

[evg_m]

Execute это и есть весь поток. Как только она кончится поток остановится!
и без использования Treminate;

Terminate; это процедура для ВОЗМОЖНОСТИ ВНЕШНЕЙ остановки потока.

это просто УСТАНОВКА флага.!

procedure TThread.Terminate;
begin
  terminated:=TRUE; 
end;

А чтобы воспользоваться внешней остановкой
НАДО внутри Execute проверять этот флаг(Terminated) и ПРИНИМАТЬ меры по завершению работы (выйти из процедуры/или цикла)

if treminated then EXIT;

myth.Terminate;

  for i2 := 0 to 60 do
  begin
    if terminated then break; 
    Sleep(100);
    i := i2;
    Synchronize(SyncProc);
  end;

http://programmersforum.ru/showthrea...ght=terminated

[Shouldercannon]

Хорошо. Тогда при таком раскладе

type
  TMyThread = class(TThread)
  private
    { Private declarations }
    i: Integer;
  protected
    procedure Execute; override;
    procedure DoTerminate; override;
    procedure SyncProc;
  public
  end;

var
  FormMain: TFormMain;
  MyThread: TMyThread;

implementation

{$R *.dfm}

procedure TFormMain.BStartClick(Sender: TObject);
begin
  MyThread := TMyThread.Create(True); // После создания поток остановлен
  MyThread.FreeOnTerminate := True; // После завершения работы поток "умрёт" сам
  MyThread.Resume; // Запуск потока
end;

procedure TMyThread.Execute;
var
  i2: Integer;
begin
  for i2 := 0 to 60 do
  begin
    if i2 > 61 then Break;
    Sleep(100);
    i := i2;
    Synchronize(SyncProc);
  end;
end;

procedure TMyThread.SyncProc;
begin
  FormMain.Caption := IntToStr(i);
end;

procedure TMyThread.DoTerminate;
begin
  // Что-то... Если нужно до вызова внешнего OnTerminate (если назначен)
  inherited;
  // Что-то... Если нужно после вызова внешнего OnTerminate (если назначен)
end;

procedure TFormMain.BCheckClick(Sender: TObject);
begin
  // Проверка на существование потока
  if MyThread <> nil then
  begin
    // Если поток умирает "мирно", штатно завершив работу
    if MyThread.Terminated then ShowMessage('Поток "MyThread" не работает') else ShowMessage('Поток "MyThread" работает');
  end else ShowMessage('Поток "MyThread" не создан');
end;

по завершению работы потока процедура проверки должна вывести "Поток "MyThread" работает"? Тогда получается, что поток висит в памяти.