thread в библиотеке.

[alik1]

в общем нужно сделать следующее: есть главное приложение которое вызывает функцию из библиотеки их 2-е (start и stop).
procedure ButtonClick1;
begin
if Start then ShowMessage('ok')
else ShowMessage('not ok or stop');
end;

procedure ButtonClick1;
begin
Stop;
end;
....

Функция ждет реакции железа т.е. делат в нити какую то работу. В этот момент у пользователя в главном приложении не должен тормозится главный поток.

вот примерный код в либе.

TWorkThread = class
public
procedure Execute; override;
end;

procedure TWorkThread.Execute;
begin
while True do if fAnswer_Hardware ot fStop then Break;

end;

function Start : boolean;
var W : TWorkThread;
begin
W := TWorkThread.Create(false);
WaitForThreadTerminate(W.Handle,0);
Result := W.Result ...
end;

procedure Stop;
begin
fStop := true;
end;

чуствую что где то грабли, такие большие, с топором на ручке ...

[Sergei I. Gorelkin]

Зачем в этой ситуации нужен доп. поток? Если он будет неперывно крутиться в цикле, то займет 100% процессорного времени и система застрянет, даже если основной поток не будет блокирован.
Не проще ли проверять fAnswer_Hardware по таймеру?

[alik1]

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

procedure TWorkThread.Execute;
begin
MyFunc;
end;

[SergKam]

TWorkThread = class
public
procedure Execute; override;
end;

Чтото не вижу тут наследования от TThread.

TWorkThread = class(TThread)
public
procedure Execute; override;
end;

Может так? И в чем собственно вопрос?

[alik1]

TWorkThread = class
public
procedure Execute; override;
end;

Чтото не вижу тут наследования от TThread.

TWorkThread = class(TThread)
public
procedure Execute; override;
end;

Может так? И в чем собственно вопрос?

нет, ет я опечался .. смысл в том что мне нужно сделать ал-я ProcessMessages для глвного потока, пока выполнается "рабочий поток", в библиотеке (вин/никс). Как ет на FPC решить не понимаю.

[Sergei I. Gorelkin]

Тут нужно в цикле вызывать Application.HandleMessage:

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

while not SomeCondition do
  Application.HandleMessage;

Но, чтобы этот код использовать в библиотеке (вне программы), надо в нее по крайней мере указатель на Application.HandleMessage передать. Я решал подобную задачу, но поток создавал в основном приложении. А вместо цикла был показ модальной формы (в TForm.ShowModal делается то же самое, SomeCondition = ModalResult<>mrNone). Поток же перед завершением устанавливал этой форме ModalResult.

[FedeX]

А по мойму лучше юзить BeginThread...
Когда в потоке всё что надо выполнится, поставить специальную булеву переменную в done:=true. Значение этой переменной переодически (при помощи таймера) проверять в основном потоке...
Ну не знаю хорошо ли это... я так делаю.

[alik1]

Тут нужно в цикле вызывать Application.HandleMessage:

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

while not SomeCondition do
  Application.HandleMessage;

Но, чтобы этот код использовать в библиотеке (вне программы), надо в нее по крайней мере указатель на Application.HandleMessage передать. Я решал подобную задачу, но поток создавал в основном приложении. А вместо цикла был показ модальной формы (в TForm.ShowModal делается то же самое, SomeCondition = ModalResult<>mrNone). Поток же перед завершением устанавливал этой форме ModalResult.

ну с showmodal, это конечна хитро

[alik1]

А по мойму лучше юзить BeginThread...
Когда в потоке всё что надо выполнится, поставить специальную булеву переменную в done:=true. Значение этой переменной переодически (при помощи таймера) проверять в основном потоке...
Ну не знаю хорошо ли это... я так делаю.

ну в принципе тоже вариант, но мне не подходит - не понятно кто будет эту либу пользовать, а на всех языках делать поддержку и с таймерами разбиратся - ет себе дороже.

[alik1]

На самом деле, придется как обычно - callback-ом ...