Hallo,

ich mal wieder
Und zwar wenn ich mehrere Threads starte zbs. 5.

markieren

Delphi-Quellcode:

 for I := 1 to 5 do
   BeginThread(nil,
                         0,
                         Addr(Execute),
                         nil,
                         0,
                         id1);

und in dem Threads zbs. das drin steht:

markieren

Delphi-Quellcode:

procedure Execute;
begin
  Form1.Memo1.lines.add('start ');
  Form1.Memo1.lines.add('#');
end;

Dann stehen 5 "#" in dem Memo drin, so wie es sein soll.

Mach ich aber so:

markieren

Delphi-Quellcode:

procedure Execute;
begin
  Form1.Memo1.lines.add('start ');
sleep(100); // Oder irgendwas anderes wo ein bisschen Zeit beansprucht
  Form1.Memo1.lines.add('#');
end;

kommen manchmal nur 1 "#" in dem Memo oder manchmal auch 2.
Also beendet der Thread nicht richtig?
Kann mir bitte jemand einen kleine Denkanstoß geben, oder den Grund dafür nennen ?

Danke schonmal für's lesen
Gruss,
MArc

Das liegt wohl daran das du unsyncronisiert aus dem Thread auf VCL-Elemente zugreifst.

Du solltest nicht VCL Komponenten aus einem Thread ohne Synchronize verwenden.

Edit: Ups da war einer schneller
Guck mal in der OH in TThread und Synchronize

Könnt Ihr mich auch erklären wie ich das mache ?

Wenn ich

markieren

Delphi-Quellcode:

procedure Execute;
begin
   Synchronize([b]I[/b]MachMal);
sleep(100); // Oder irgendwas anderes wo ein bisschen Zeit beansprucht
   Synchronize(MachMal);
end;

Mache kommt ne Meldung:
Missing operator or semicolon
da wo das dicke I ist.

Ich habe schon in der Hilfe nachgeschaut und google auch schon seit 3 Stunden befragt, aber es kommt einfach nichts gescheites raus. Wenn ich es mittels TThread mache kommt genau das gleiche. Deswegen dachte ich, ich nehm wieder BeginThread . Aber das geht ja auch nicht...

Danke.
Gruss,
MArc

Versuche einen TThread abzuleiten...

markieren

Delphi-Quellcode:

procedure TMyThread.Machmal;
begin
   Form1.Memo1.lines.add('...');
end;

procedure TMyThread.Execute;
begin
   Synchronize(MachMal);
end;

Boah, manchmal könnte ich den hier
Bin ziemlich Felsenfest überzeugt, dass ich das gleich vorhin gemacht habe, und es nicht ging.

Aber hauptsache ist, dass es jetzt funktionukt

Danke euch.

Gruss,
MArc

PS: Fragt mich nicht, was ich anderst gemacht habe.... weiss es nämlich selbst nicht ^^

Laß mal lieber, davon bekommt man nur Kopfschmerzen

Hauptsache jetzt läufts!

Hallo, Hab da auch so ein änliches Problem. Mein Thread startet Problemlos und läuft bis kurz vor Synchronize. Dann tut sich nichts mehr (in dem thread).


Aufruf des Synchronize: (innerhalb einer Methode die in Execute aufgerufen wird.

markieren

Delphi-Quellcode:

 //...
 if search.Items.Count > 0 then
  begin
   fNodeToCheck:=node;
   // bis hier komme ich ohne Probleme
   Synchronize(markNode);
  end;
 //...

markieren

Delphi-Quellcode:

procedure TCheckForNewInPostkorbThread.MarkNode;
begin
  AdvNavForm.Test;
end;

Die Procedure Test sollte in dem anderen Thread nun ein showmessage aufrufen, tut aber nicht.

Zeig uns auch bitte noch die Procedure "Test".

Zitat von kaiser1401:

Die Procedure Test sollte in dem anderen Thread nun ein showmessage aufrufen, tut aber nicht.

Welcher anderer Thread?
Meinst Du den VCL Thread oder hast Du noch meherere Threads?
Zeig mal mehr Quelltext.