CPU Speed ermitteln

[Basilikum]

Zitat von Ati:

Hab mal ganz einfach C&P verwendet.
function CalcCPUFrequency(Rounds: Cardinal =1): comp; Wird wie folgt angemeckert:; oder) erwartet aber = gefunden

Ati

Delphi 3 kennt wohl die Default-Parameter-Values noch nicht... entferne einfach das "=1"...

[Ati]

Hatte ich schon probiert!
 if IsRDTSCPresent and QueryPerformanceFrequency(F) and QueryPerformanceCounter(S) then Ist jetzt das Problem."Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen".

[himitsu]

Zitat von s.h.a.r.k:

Mal eine etwas andere Frage an dich: Was hast du eigentlich für eine CPU?!? Ich meine vor kurzem mal gelesen zu haben, dass bei AMD64 (oder waren es die DualCode-Prozessoren) der TSC nicht richtig funktioniert. AMD hat glaube ich das Problem bisher nicht gelöst, wenn mich nicht alles täuscht!

Also bei meinem AMD64 hab ich nocht keine derartigen Probleme entdecken können?

Zitat von Basilikum:

Delphi 3 kennt wohl die Default-Parameter-Values noch nicht... entferne einfach das "=1"...

Jupp, erst ab D4 (wenn ih mich jetzt nicht irre)

Zitat von Ati:

Hatte ich schon probiert!
 if IsRDTSCPresent and QueryPerformanceFrequency(F) and QueryPerformanceCounter(S) then Ist jetzt das Problem."Die Typen der tatsächlichen und formalen Var-Parameter müssen übereinstimmen".

Wie sind den QueryPerformanceFrequency und QueryPerformanceCounter bei dir definiert?

[Ati]

Ich habe mich jetzt schon auf die Möglichkeit weiter oben versteift. Zusätzlich lese ich noch den Prozessorname aus, da ja hier auch meistens die Leistung mit angegeben ist. War zumindest in allen bisherigen Testläufen auf den verschiedensten Computern so.
Hoffe Du siehst es mir nach das ich mich jetzt nicht mehr damit beschäftige.

Ati

[himitsu]

Macht nüschts.

Aber wunder dich nicht, wenn der Wert im Namen nicht stimmt, denn da steht ja nur (wenn überhaupt) der Wert drin, für den der eingesetzte Prozessoer vorgesehen ist ... ob er jetzt über-/untertaktet ist, oder ob der Wert genau stimmt, ist was anderes...

[Ati]

Danke Dir. Werde es mir mal merken falls ich doch nochmal Bedarf habe.

Ati

[Razor]

What about if you have speedstep enabled in bios and it changes its speed.How to detect then?