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

markieren

Delphi-Quellcode:

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

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

markieren

Delphi-Quellcode:

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

hmm wieso will er jetzt nicht mal den Thread starten?

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

MonThread:=TMonThread.create;

auch wenn ich es ins OnCreate reinschreibe kommt der Fehler!

Schau dir diese Zeile an:

Zitat von HERMES:

MonThread:=TMonThread.create;

Diese jetzt ganz einfach vor deinen Code gesetzt, fetsch

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

hab dann noch etwas bisschen ausgebessert:

markieren

Delphi-Quellcode:

destructor TMonThread.Destroy;
begin
inherited Destroy;
end;

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

zusammenfalten · markieren

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

wenn Du noch aus diesem hier:

markieren

Delphi-Quellcode:

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

das machen willst:

markieren

Delphi-Quellcode:

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

Grüße
Klaus

danke sehr ist eingebaut!

lg