Entwickler-Ecke :: Thema anzeigen - Probleme mit TThread.Synchronize

zakoon - So 11.01.09 16:28
Titel: Probleme mit TThread.Synchronize

Hallo zusammen,

Ich habe das Problem, das Sychronize nicht (immer) funktioniert.
Bei folgendem Probe-Code wird der Thread gestartet (erhalte Meldung 'started'), aber Synchronize(UpdateIcon); scheint nicht ausgeführt zu werden (keine Meldung 'sync').
Was für mich merkwürdig ist: entferne ich die Kommentierung vor dem ShowMessage in Z. 12, scheint alles abzulaufen. Ich bekomme die Meldungen 'started', 'sync', '0:0, 1:10, 2:20 ...', 'thread started?' in dieser Reihenfolge, was korrekt wäre.

Wieso funktioniert der Code, mit diesem ShowMessage? Und wie bekomme ich ihn auch ohne diese ShowMessage zum laufen?

Vielen Dank, Zak.

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:

//*****************
// im Hauptprogramm
//*****************
procedure CheckNewMails;  //  <--------- Mit dem Aufruf dieser procedure geht es los
var CheckThread: TCheckThread;
    i: integer;
begin
  CheckThread:= TCheckThread.Create(true);
  CheckThread.FreeOnTerminate:= true;
  // hier sollen später Parameter übergeben werden
  CheckThread.Resume;
  // ShowMessage('Thread started?');   //  <------ Seltsam
end;

procedure ThreadFinished(aryMailCount: TAryMailcount);
var s: string;
    i: integer;
begin
  s:= '';
  for i:= 0 to 4 do
    s:=s+IntToStr(i)+': '+IntToStr(aryMailCount[i])+'; ';
  ShowMessage(s);
end;

//*****************
// Thread
//*****************
procedure TCheckThread.Execute;
begin
  CheckMail();
end;

procedure TCheckThread.CheckMail;
var i: Integer;
begin
  ShowMessage('started');
  for i:= 0 to 4 do
    aryMailCount[i]:= i*10;
  Synchronize(UpdateIcon);
end;

procedure TCheckThread.UpdateIcon;
begin
  ShowMessage('sync');
  ThreadFinished(aryMailCount);
end;

Edit: Ach ja, deklariert ist der Thread so:

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:

type
  TCheckThread = class(TThread)
  private
    procedure CheckMail;
    procedure UpdateIcon;
    { Private declarations }
  protected
    procedure Execute; override;
  public
    aryMailbox: TAryMailbox;
    aryMailCount: TAryMailCount;
  end;

Moderiert von Narses: Code- durch Delphi-Tags ersetzt

Xentar - Fr 16.01.09 18:58

MSCH hat folgendes geschrieben :

delfiphan hat folgendes geschrieben :

Du darfst in einem Thread kein ShowMessage machen (VCL ist nicht thread-safe). Verwende stattdessen z.B. MessageBox() oder OutputDebugString(). Beim letzteren siehst du die Ausgabe in der IDE im Message-Fenster.

darf er doch, weil es im Synchronize() Abschnitt aufruft. Das läuft im Context des Main-Threads.
:-)msch

Ähm, nein, tut er nicht?

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:

procedure TCheckThread.Execute;
begin
  CheckMail();
end;

procedure TCheckThread.CheckMail;
var i: Integer;
begin
  ShowMessage('started');
  for i:= 0 to 4 do
    aryMailCount[i]:= i*10;
  Synchronize(UpdateIcon);
end;

Entwickler-Ecke.de based on phpBB
Copyright 2002 - 2011 by Tino Teuber, Copyright 2011 - 2025 by Christian Stelzmann Alle Rechte vorbehalten.
Alle Beiträge stammen von dritten Personen und dürfen geltendes Recht nicht verletzen.
Entwickler-Ecke und die zugehörigen Webseiten distanzieren sich ausdrücklich von Fremdinhalten jeglicher Art!