Thread Terminate

[schweindi]

ahja:

Delphi-Quellcode:

procedure TMonThread.Execute;
begin
DoThread(False);
end;

procedure TMonThread.Stop;
begin
Form1.Memo_sms.Lines.Add('Thread Destroyed');
// clear buffers
SetCommMask(ComPort2.Handle, 0);
PurgeComm(ComPort2.Handle, PURGE_TXCLEAR or PURGE_RXCLEAR);
//stop thread
Stopped:= True;
end;

procedure TMonThread.Input;
var
  input,Answer : String;
begin
Input := ComPort2.RecvTerminated(readtotal,eol);
ShowMessage('" '+Input+' "');
DoThread(False);
end;

so das ist dann alles