Thread Terminate

[schweindi]

Hab jetzt "MonThread : TMonThread" in Form1 deklariert, überall die lokalen variablen weggetan und wenn ich jetzt auf den Button klicke:

Delphi-Quellcode:

MonThread.Create;
MonThread.FreeOnTerminate:= True;
MonThread.Resume;

kommt ein fehler: EAccessViolation 'Access violation at adress 0041A960' - und er springt zu:

Delphi-Quellcode:

constructor TMonThread.Create;
begin
inherited Create(True);
end;

hmm wieso will er jetzt nicht mal den Thread starten?

[HERMES]

vor der ersten verwendung und nur einmal aufrufen, am besten in oncreate von deimen formular

MonThread:=TMonThread.create;

[schweindi]

auch wenn ich es ins OnCreate reinschreibe kommt der Fehler!

[Teekeks]

Schau dir diese Zeile an:

Zitat:

Zitat von HERMES

MonThread:=TMonThread.create;

Diese jetzt ganz einfach vor deinen Code gesetzt, fetsch :)

[schweindi]

jaja schon klar!
funzt ja eh - hab nur nicht richtig geschaut.

hab dann noch etwas bisschen ausgebessert:

Delphi-Quellcode:

destructor TMonThread.Destroy;
begin
inherited Destroy;
end;

Es stand ohne inherited da... und bei der letzten abfrage steht jetzt:

Delphi-Quellcode:

until (Signaled = EV_RXCHAR) or (Stopped = True);
  if (Stopped = False) then
  begin
    Form1.Memo_sms.Lines.Add('Input!');
    Input;
  end else
  begin
  ShowMessage('Stopped');
  Terminate;
  end;
end;

Jetzt geht alles danke euch!

lg

[Klaus01]

wenn Du noch aus diesem hier:

Delphi-Quellcode:

until (Signaled = EV_RXCHAR) or (Stopped = True);
if (Stopped = False) then
begin

das machen willst:

Delphi-Quellcode:

until (Signaled = EV_RXCHAR) or Stopped;
if not Stopped then
begin

Grüße
Klaus

[schweindi]

danke sehr :) ist eingebaut!

lg