Entwickler-Ecke :: Thema anzeigen - Timerevent wird nicht getriggert

N3tw124rd - Do 15.12.05 11:19
Titel: Timerevent wird nicht getriggert

Hallo,

ich habe mir ein Objekt programmiert welches die Prozeduren Open und Close hat sowie eine public variable sInfo.
Bei Open wird ein Formular erzeugt welches 2 Labels besitzt das eine Label bekommt die Info Varaible zu gewiesen und das andere Label soll ein Flicker sein, welcher über ein Timer immer einen Schritt weiter geschaltet wird.
Das Open bekommt als Parameter noch ein self mit damit ich das Formular im Objekt erzeugen kann.
Das ganze sieht dann z.b. so aus

Delphi-Quelltext

1:
2:
3:
4:

  oInfo.sInfo := 'Daten werden erzeugt';
  oInfo.Open(self);
  
  oInfo.Close;

Wenn ich nun zwischen dem Open und dem Close Datenbank abfragen mache und Berechnungen dann geht mein Flicker nicht :(
Wenn ich aber nach dem Open ein Formular aufrufe in dem die Berechnungen gemacht werden dann funktioniert der Flicker :)
Weiß jemand was ich da falsch mache mit dem Timer ??
Ich habe auch mal ein Breakpoint in den Timer gesetzt und er wird einfach nicht getriggert. :(

Vielen Dank schon mal
N3tw124rd

Moderiert von raziel: Delphi-Tags hinzugefügt.

Stefan.Buchholtz - Do 15.12.05 11:40

Damit während einer längeren Berechnung Timer-Events ausgeführt werden, musst du während der Berechnung regelmässig Application.ProcessMessages; aufrufen. Der Timer läuft nicht in einem separaten Thread, sondern Windows versendet regelmässig WM_TIMER Messages an dein Programm. Wenn das Programm keine Messages verarbeitet, weil es gerade etwas anderes macht, wird das Timer-Event auch nie ausgelöst - genauso, wie Fenster nicht neugezeichnet werden und das Programm auch nicht auf Tastatureingaben oder Mausklicks reagiert.

Stefan

wdbee - Do 15.12.05 12:38

Klar, du kannst separate Threads einsetzten. Dabei ist es aber wichtig, die Aufgaben sauber zu trennen:
Die VCL ist nicht threadsicher, d.h. Anzeigen (unter Nutzung von VCL-Objekten) dürfen nur vom "VCL-Thread" gemacht werden, also dem Hauptthread deiner Anwendung. Deshalb musst du die "Berechnungen" in einem separaten Thread machen (und ggf. anfallende Anzeigen dazu mit der Funktion Synchronize realisieren).

N3tw124rd - Do 15.12.05 13:18

Habe mich dazu entschlossen die CreateThread Funktion zu verwenden...

Aber mein Compiler meldet hier

ThreadHandle:=CreateThread(NIL, 0, TFNThreadStartRoutine(@ThreadFunc), NIL, 0, ThreadID);

Variable Required

Der Rest wie das dann abläuft mit dem Thread ist mir klar.

Danke
N3tw124rd

Lossy eX - Do 15.12.05 13:27

Also ich persönlich benutze eigentlich immer den Objekt Orientierten Ansatz mit TThread. Bin aber auch einfach zu Faul um mich um den Rest selber kümmern zu müssen. Warum auch. Existiert ja schon alles.

Aber zu deinem Problem. Die einzige Variable die dort Existiert ist die ThreadID. Wo hast du die denn Deklariert. Dabei muss es sich um eine Variable handeln. Bzw durch das @ bekommst du die Adress der Methode. Eigentlich sollte es genügen, wenn du das TypeCasting dort auch weglässt. Also nur @ThreadFunc

N3tw124rd - Do 15.12.05 14:51

Also ich habe jetzt mal versucht das ganze abzuändern...

Delphi-Quelltext

1:	ThreadHandle:=CreateThread(NIL, 0, @ThreadFunc, pTmp, 0, ThreadID);

pTmp ist NIL und ich bekomme wieder den Fehler Variable required.
ThreadID ist private in dem objekt deklariert welches den Thread erzeugt...
In der CreateThread hilfe von Delphi 2005 steht das der 4. Parameter (pTmp) ein Rückgabe wert ist. Aber selbst mit pTmp sagt er immer noch

Variable required

:(

Danke N3tw124rd

Moderiert von raziel: Delphi-Tags hinzugefügt.

N3tw124rd - Do 15.12.05 18:10

Also das mit dem Variable Required habe ich mit einem Codezeiger gelöst...
Das @ funktioniert nur bei variablen, auf jedenfall bei Delphi 2005.
Deshalb muß hier ein Codezeiger verwendet werden.
Ungefähr so

Delphi-Quelltext

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:

  TEventProc = Procedure of Object;

  oInfo = Object
    procEvent   : TEventProc;
    Procedure Open(aOwner : TComponent);
       .
       .
       .
  End;

Procedure oInfo.Open(aOwner : TComponent);
Begin
  .
  .
  .
  procEvent := ThreadEvent;
  ThreadHandle := CreateHandle(NIL, 0, @procEvent, NIL, 0, ThreadID);
  .
  .
  .
End;

Im Endeffekt hat es mir aber nicht geholfen, weil in dem Thread mein im Object erstelltes Formular nicht verfügbar ist und ich dann eine Access Violation bekomme :(
Naja aber ich habe gelernt wie man Threads erzeugt und sie verwendet.
Dafür schon mal ein Danke schön an alle die mir geholfen haben.

Gruß
N3tw124rd

Moderiert von raziel: Delphi-Tags hinzugefügt.

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!