Столкнулся с тем что не могу понять как работает WaitForMultipleObjects. А может дело и не в нем.
Есть такой пример, большая часть кода позаимствована http://forum.vingrad.ru/index.php?showtopic=216315&view=findpost&p=1573798 
| Код |
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TForm34 = class(TForm)
btn1: TButton;
btn2: TButton;
btn3: TButton;
procedure btn1Click(Sender: TObject);
procedure btn2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
TMyThread = class(TThread)
protected
procedure Execute; override;
end;
TMy2Thread = class(TThread)
private
procedure Show1;
procedure Show2;
protected
procedure Execute; override;
end;
var
Form34: TForm34;
A: Integer = 0;
implementation
{$R *.dfm}
{ TMyThread }
procedure TMyThread.Execute;
begin
Sleep(50);
InterlockedIncrement(A);
Sleep(1000);
end;
procedure TForm34.btn1Click(Sender: TObject);
var
Handles: array of THandle;
I: Integer;
WaitRes: Cardinal;
begin
SetLastError(NO_ERROR);
SetLength(Handles, 50);
A := 0;
for I := Low(Handles) to High(Handles) do
with TMyThread.Create(True) do
begin
Handles[I] := Handle;
FreeOnTerminate := True;
Resume;
end;
WaitRes := WaitForMultipleObjects(Length(Handles),
@Handles, True, INFINITE);
if WaitRes = WAIT_OBJECT_0 then
ShowMessage(IntToStr(A))
else
ShowMessage(SysErrorMessage(GetLastError));
end;
procedure TForm34.btn2Click(Sender: TObject);
begin
{ чтобы не застывала главная форма выношу все в отдельный поток }
TMy2Thread.Create(false).FreeOnTerminate := true;
end;
{ TMy2Thread }
procedure TMy2Thread.Execute;
var
Handles: array [1..MAXIMUM_WAIT_OBJECTS] of THandle;
I: Integer;
WaitRes: Cardinal;
begin
SetLastError(NO_ERROR);
A := 0;
for I := Low(Handles) to High(Handles) do
with TMyThread.Create(True) do
begin
Handles[I] := Handle;
FreeOnTerminate := True;
Resume;
end;
WaitRes := WaitForMultipleObjects(High(Handles),
@Handles, True, INFINITE);
if WaitRes = WAIT_OBJECT_0 then
Synchronize(Show1)
else
Synchronize(Show2);
end;
procedure TMy2Thread.Show1;
begin
ShowMessage(IntToStr(A))
end;
procedure TMy2Thread.Show2;
begin
ShowMessage(SysErrorMessage(GetLastError));
end;
end.
|
Так вот процедура btn2Click отрабатывает как и предполагается, а вот btn1Click выдает ошибку "Неверный дескриптор".
1) Почему не получается обработать массив хэндлов произвольного размера, т.е. фактически произвольно задавать число создаваемых потоков?
2) Если после нажатия на btn2, пока не успели завершится все потоки, нажать на btn1, то выводимое значение А будет 50, т.е. отрабатывают только 50 потоков. Т.е. получается, что массивы Handles хоть и объявляются в каждой процедуре локально, но взаимосвязаны? Почему так? Пробовал переименовывать эти массивы, результат тот же.
Чувствую что истина где-то рядом... Помогите пожалуйста. |
