Hallo, endlich sommer!
Ich möchte eine Multithreadanwendung implementieren, der eine Thread soll so lange laufen, wie er nicht beendet worde,
d.h. in seiner execute steht
Delphi-Quellcode:
while not terminated do begin
if UsbParIn(c_DevNum,instream,c_laen) then begin
weitergabe:=instream;
DarstThread.Resume; // hier soll der andere Thread angestoßen werden
end;
end; // while
und in der anderen DarstThread.Execute steht:
Delphi-Quellcode:
procedure darst_Thread.Execute;
var
i,max,min:integer;
mittel:double;
begin
irgendwas;
suspend;
end;
und immer an der markierten stelle soll der erste thread den zweiten Thread anstoßen, damit der zweite seine execute-Prozedur einmal ausführt.
Im Moment sieht es so aus, die zweite exe-Proz einmal ausgeführt wird, dann aber nicht mehr. Was kann ich tun?
Mit
suspend
sollte doch der DarstThread angehalten werden, um dann, wenn der erste Thread wieder
resume
gibt, weiterzulaufen..
