freepascal.ru

Код: Выделить всё

unit main;
{$ifdef FPC}{$mode objfpc}{$h+}{$endif}
interface
uses
mseglob,mseguiglob,mseguiintf,mseapplication,msestat,msemenus,msegui,
msegraphics,msegraphutils,mseevent,mseclasses,mseforms,classes,sysutils,
msesimplewidgets,msewidgets;

type
tmainfo = class(tmainform)
   tbutton1: tbutton;
procedure OnTreadTerminate(Sender: TObject);
   procedure _on_run(const sender: TObject);
end;

TTestThread = class(Tthread)   
  protected
    procedure Execute; override;
  public

end;

var
mainfo: tmainfo;
t1,t2,t3:TTestThread;
implementation
uses
main_mfm;

procedure tmainfo.OnTreadTerminate(Sender: TObject);
var
y:TThreadID;
begin
if Sender is TTestThread  then
begin
y:=TTestThread(Sender).Handle;
if y=t1.handle then begin showmessage('t1'+' (handle='+inttostr(y)+')') end;
if y=t2.handle then begin showmessage('t2'+' (handle='+inttostr(y)+')') end;
if y=t3.handle then begin showmessage('t3'+' (handle='+inttostr(y)+')') end;
end;

end;


procedure test();
begin
T1:=TTestThread.Create(True);
T2:=TTestThread.Create(True);
T3:=TTestThread.Create(True);

T1.Onterminate:=@mainfo.OnTreadTerminate;
T2.Onterminate:=@mainfo.OnTreadTerminate;
T3.Onterminate:=@mainfo.OnTreadTerminate;

T1.Resume;
T2.Resume;
T3.Resume;

end;

procedure tmainfo._on_run(const sender: TObject);
begin
test;
end;

procedure TTestThread.Execute;
begin
sleep(50*round(random(2))+50);
end;

end.

deadlock при определенных обстоятельствах возможен.

Для нормальной синхронизации главного и вторичного потока метода Synchronize недостаточно. Представьте себе такую ситуацию: в методе главного потока мы ожидаем завершения вторичного потока (не важно, каким образом, важно то, что этот метод не вернет управление главному потоку до тех пор, пока вторичный поток не завершится), а в это время вторичный поток вызывает метод Synchronize. В результате возникнет взаимоблокировка: метод главного потока не может завершиться пока не завершится вторичный поток, а вторичный поток не может завершиться, пока не будет выполнен метод Synchronize (а для этого нужно, чтобы главный поток вернулся в цикл обработки сообщений). Для разрешения этой ситуации существует функция CheckSynchronize, вызов которой приводит к выполнению всех методов, находящихся в данный момент в очереди SyncList, и возвращению управления из всех методов Synchronize, вызванных вторичными потоками.

Это специфика WinAPI, не в windows используется что-то одно. После того, как поток завершился, но объект TThread еще не освобожден, вновь запущенный поток может иметь тот же ThreadID, но Handle всегда уникален.

Код: Выделить всё

FThreadID: TThreadID; // someone might need it for pthread_* calls

4) Если речь о макросе в исходниках RTL, то зависит от того, как собирали RTL (был ли определен символ, включающий эту отладку -- а он включается сам по себе, независимо от debug/release), опции сборки проекта не влияют.