Delphi-PRAXiS
Seite 2 von 4     12 34      

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   GUI-Design mit VCL / FireMonkey / Common Controls (https://www.delphipraxis.net/18-gui-design-mit-vcl-firemonkey-common-controls/)
-   -   Delphi Timer und Rechner-Belastung? (https://www.delphipraxis.net/5791-timer-und-rechner-belastung.html)

Christian Seehase 22. Jun 2003 13:44

Moin MadMason,

Zitat:

Zitat von MadMason
ist dann eigentlich bei hoher Rechenlast noch die Genauigkeit garantiert

Genauigkeit wird bei diesen Timer sowieso nicht garantiert.

MadMason 22. Jun 2003 15:06

Zitat:

Zitat von Christian Seehase
Genauigkeit wird bei diesen Timer sowieso nicht garantiert.

Gibt es ne Timer-Kompo wo die Genauigkeit garantiert ist?

flomei 22. Jun 2003 15:31

Zitat:

Zitat von MadMason
Gibt es ne Timer-Kompo wo die Genauigkeit garantiert ist?

Garantiert dir Micro$oft das Windoof nicht irgendwann mal abstürzt? ;) Ich denke, man kann keine Garantie geben weil wenn der Rechner bockt dann bocken auch die Timer. Ist halt abhängig vom Rest.

MfG Florian :hi:

Minz 22. Jun 2003 21:57

Delphi-Quellcode:
procedure TForm1.TimerProc(Sender: TObject);
begin
        label1.Caption:=Sender.name;
end;
Da meckert er undeclared identifier: 'name'

Delphi-Quellcode:
procedure TForm1.FormCreate(Sender: TObject);
var    i:integer;
begin
     for i:=0 to 9999 do begin
        setlength(Timer, length(Timer)+1);
        Timer[high(Timer)]:=TTimer.create(form1);
        Timer[high(Timer)].Name:='Timer'+inttostr(high(Timer));
        Timer[high(Timer)].interval:=random(10000)+1;
        Timer[high(Timer)].OnTimer:=TimerProc;
     end;
end;
Oder liegt da irgendwo der Hase im Pfeffer begraben? Oder wars der Hund? :mrgreen:

Luckie 22. Jun 2003 22:00

Probier mal:
Delphi-Quellcode:
label1.Caption:=(Sender as TTimer).Name;

Minz 22. Jun 2003 22:12

Das klappt schonmal ...

Leider kann ich nur um die 2500 Timer erstellen...beim compilieren kommt:

---------------------------
Debugger Exception Notification
---------------------------
Project Project1.exe raised exception class EOutOfResources with message 'Not enough timers available'. Process stopped. Use Step or Run to continue.
---------------------------
OK Help
---------------------------

Beim ausführen der exe kommt 'Not enough Timers available'

Weiß jemand was das soll?

Ich habe die Systemresourcen anzeigen lassen mit dem Windowstool,
der zeigt noch über 80% verfügbar an.

Die CPU-Auslastung ist bis dahin aber nicht erwähnenswert.
(Athlon 1700+//256 MB RAM

)

Luckie 22. Jun 2003 22:14

Was für ein OS?

Minz 22. Jun 2003 22:28

win 98

Luckie 23. Jun 2003 08:18

Jupp. Windows98 gehen schnell mal die Ressourcen aus. Zu den Ressourcen zählen auch die verfügbaren Handles und ähnliches.

Sanchez 23. Jun 2003 08:18

Wenn ich mich nicht täusche, sind bei einer alten Delphi-Version, weiss nicht welche, nur 6 Timer möglich. Hab ich mal wo aufgeschnappt, kann ich aber nicht zu 100% sagen.

Welche Delphi-Version hast du?

mfg Daniel


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:01 Uhr.
Seite 2 von 4     12 34      

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024-2025 by Thomas Breitkreuz