nonVCL Timer

[Klaus01]

Zitat von XXcD:

Kann mir bitte einer Code für einen Timer in der Console geben?
Ich versuche es jetzt schon seid tagen und komme einfach nicht weiter.

Guten Morgen,

wie Du einen Timer in einer Consolenanwendung benutzt wird hier beschrieben.

Grüße
Klaus

[Luckie]

Oder hier mit der Timer-Komponente: http://www.michael-puff.de/Developer...n_Konsole.html

[gammatester]

Zitat von Luckie:

Oder hier mit der Timer-Komponente: http://www.michael-puff.de/Developer...n_Konsole.html

Wird da nicht etwas geschummelt? In der Schleife wird ja manuell NotifyEvent(p, T) aufgerufen. Wird das auskommentiert, gibt es zumindest unter Win98 keine Event-Kontrollausgabe.

Gammatester

[Luckie]

Kommentier die Zeile aus und guck es dir an.

[gammatester]

Zitat von Luckie:

Kommentier die Zeile aus und guck es dir an. ;)

Das habe ich ja gemacht bevor ich gefragt habe:

Code:

C:\TMP>Project2.exe
Warte auf Event:
warte 500ms...
warte 1000ms...
warte 1500ms...
warte 2000ms...
warte 2500ms...
C:\TMP>

Das ist die Ausgabe, wenn die Zeile auskommentiert ist, sonst sieht man die "yes" und hört die "beeps":

Code:

Warte auf Event: 
warte 500ms...
yes
warte 1000ms...
yes
warte 1500ms...
yes
warte 2000ms...
yes
warte 2500ms...
yes

Allerdings würde ich vielmehr "yes" erwarten: Je eins manuell, und dann jeweils alle 200ms. Wie sieht's denn bei Dir aus?

Gammatester

[Luckie]

Hm, komisch, irgendwas stimmt da wirklich nicht. Ist aber auch schon älter der Code und ich weiß gar nicht, ob er ursprünglich von mir ist.

[XXcD]

Ich mache das jetzt mit diesem Link http://www.delphipraxis.net/internal...=502712#502712
Da funktioniert die Lösung mit dem Thread

[lbccaleb]

Das ist doch quasi das was auch Luckie in seinen Tutorials erklärt!

[smallsmoker]

Zitat von lbccaleb:

Das ist doch quasi das was auch Luckie in seinen Tutorials erklärt!

@lbccaleb: wundert dich das wenn jemand schon vorher so einen kommentar abgegeben hat:

Zitat:

Gib mir doch bitte einfach den richtigen Code[..]

mfg smallsmoker

[XXcD]

ne Luckie hat mit Messages gearbeitet und ich habe keine Ahnung wie ich in eine Konsolenanwendung die Messages abfangen kann.

Und jetzt habe ich es so gemacht:

Delphi-Quellcode:

function reloadaccs(Parameter: Pointer): integer;
begin
repeat
USQL.ladeaccounts(nil);
sleep(30000);
until false;
end;
...
BeginThread(nil, 0, reloadaccs, nil, 0, ThreadID);

Das hat ja garnichts mit Luckies version zu tun.