ConsoleApplication+Thread

[RuVarez]

Здраствуйте многоуважаемые! Есть некий код:

program Project2;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils,Classes;

type
  TMyThread = class(TThread)
  protected
    procedure DoSome;
    procedure Execute; override;
  public
    Offset : Word;
  end;

var
  Threads : array [0..2] of TMyThread;

procedure TMyThread.DoSome;
begin
  Writeln('This is '+Inttostr(Offset)+' thread');
end;

procedure TMyThread.Execute;
begin
  DoSome;
end;

procedure ThreadInit(const Offset : Word);
begin
  Threads[Offset] := TMyThread.Create(true);
  Threads[Offset].FreeOnTerminate := true;
  Threads[Offset].Offset := Offset;
  Threads[Offset].Start;
end;

begin
  ThreadInit(0);
  ThreadInit(1);
  ThreadInit(2);
  Readln;
end.

Так вот - если оставить так (без Synchronize) то пишет все норм, но иногда происходят сбои (то один поток 2 раза Writeln выполнит, то еше что то). Я логично понимаю что надо вместе с синхронизация, но когда пишу

Synchronize(DoSome)

то DoSome вообще не выполняется. Не первый раз такое замечаю и именно в ConsoleApp.

[RuVarez]

Люди ну хоть что то скажите

[error404ru]

на WinAPI куда проще

uses
  Windows

type
  TMyThread = record
    hThread: THandle;
    idThread: Cardinal;
  end;

var
  Threads : array [0..2] of TMyThread;

procedure DoSome;
begin
  Writeln('This is '+Inttostr(Offset)+' thread');
  Sleep(600);
end;

procedure ThreadInit(const Offset : Word);
begin
  Threads[Offset].hThread := CreateThread(nil, 0, @DoSome, nil, 0, Threads[Offset].idThread);
end;

procedure ThreadClose(const Offset : Word);
var
  iExitCode: Cardinal;
begin
  GetExitCodeThread(hThread[Offset].hThread, iExitCode);
  TerminateThread(hThread[Offset].hThread, iExitCode);
  CloseHandle(hThread[Offset].hThread);
end;

begin
  ThreadInit(0);
  ThreadInit(1);
  ThreadInit(2);
  Readln;
end.

[RuVarez]

Проще нен значет лучше! Меня интересует именно вариант с наследником TThread.

[Stilet]

Я логично понимаю что надо вместе с синхронизация

Зачем? Синхронизация хороша если в потоке цикл отрабатывает, а у тебя чисто оператор выполнился и поток закрылся. Какая тут синхронизация? Нечего синхронизировать толком.

[RuVarez]

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

[RinatV]

  ThreadInit(0);
  ThreadInit(1);
  ThreadInit(2);
  while GetAsyncKeyState(VK_RETURN)=0 do CheckSynchronize;

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

[3D Hunter]

Вот так будет работать:

program Project1;

{$APPTYPE CONSOLE}

uses
  SysUtils, Classes;

type
  TMyThread = class(TThread)
  protected
    FOffset : Word;
    procedure DoSome;
    procedure Execute; override;
  end;

var
  i : Integer;
  Threads : array [0..2] of TMyThread;

procedure TMyThread.DoSome;
begin
  Writeln('This is '+Inttostr(FOffset)+' thread');
end;

procedure TMyThread.Execute;
begin
  DoSome;
end;

procedure ThreadInit(const AOffset : Word);
begin
  Threads[AOffset] := TMyThread.Create(true);
  Threads[AOffset].FreeOnTerminate := False;
  Threads[AOffset].FOffset := AOffset;
  Threads[AOffset].Start;
end;

begin
  ThreadInit(0);
  Threads[0].WaitFor;
  ThreadInit(1);
  Threads[1].WaitFor;
  ThreadInit(2);
  Threads[2].WaitFor;
  Readln;
  for i:=0 to High(Threads) do FreeAndNil(Threads[i]);
end.