wie verwende ich QueryPerformanceCounter?

[Thorben86]

Knn mir einer helfen, wie ich den QueryPerformanceCounter() verwenden muss, umd damit ungefähr auszurechnen, die lange die prozedur lief. Ich weis nur, dass man noch die QueryPerformanceFrequency irgendwie einstellen muss, aber hab keine ahnungg, wie ich das jetzt da einsetze. hab auch nach QueryPerformanceCounter hier gesucht, aber der hat nur immer ausgespuckt, dass es das nicht gibt.

Ich will aber keine Fremdkomonenten oder so dafür benutzen.

[Elite]

Hier gibt es ein Beispiel. Ist zwar auf DelphiX angepasst, aber es wird alles gut und ausführlich erläutert. Sollte also kein Problem sein, das Beispiel zu übertragen.

[Luckie]

Die Forensuche sollte helfen: QueryPerformanceCounter.

[Sprint]

Link

[Thorben86]

@Luckie: Ichh ba genau danach gesucht, aber bei mir kam immer raus dass es das suchwort nicht gibt. Gerade hats aber geklappt.

Welchen wert nimmt man denn für die Frequenz bei QueryPerformanceFrequency, oder welche Faktoren muss ich da berücksichtigen?

Die Zeitspanne ist nicht gerade Groß.(ich will dauer einer prozedur ermitteln, die die Fakultät berechnet)

[Sprint]

Zitat:

Zitat von Thorben86

Welchen wert nimmt man denn für die Frequenz bei QueryPerformanceFrequency, oder welche Faktoren muss ich da berücksichtigen?

Hättest du dir meinen Link angeschaut, dann würdest du dich fragen.

[Thorben86]

Ich hab das durchgelesen! :gruebel: Du beziehst dich auf deinen Post da, oder?
Da wird ja auch nur eine variable verwendet. Beim ermitteln der differenz wird die dann ja vom ergebnis dividiert, aber ich verstehe nicht, wie ich daraus schließen soll, was ich da nehmen muss. Ich würde höchstens schließen, dass das egal ist, aber das würde ja nicht wirkklich sinn machen, oder hab ich was übersehen?

Edit: Ich hab es jetzt einfach mal ohne wertzuweisung geschrieben.

[Luckie]

Schon mal auf die Idee gekommnen, dass QueryPwerformanceFrequency den Wert ermittelt und in die Variable schreibt?

[Sprint]

Zitat:

Zitat von Thorben86

Welchen wert nimmt man denn für die Frequenz bei QueryPerformanceFrequency, oder welche Faktoren muss ich da berücksichtigen?

Zitat:

Zitat von Thorben86

Ich würde höchstens schließen, dass das egal ist, aber das würde ja nicht wirkklich sinn machen, oder hab ich was übersehen?

Mit der WinAPI Funktion QueryPerformanceFrequency ermittelst du den Wert, den du dann beim Teilen brauchst. Die Zeitmessung beginnt erst mit dem Aufruf von QueryPerformanceCounter(Start) und endet dann mit dem Aufruf QueryPerformanceCounter(Stop).

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject);

  procedure Test;
  begin
    Sleep(2000);
  end;

var
  Start, Stop, Frequenzy: Int64;
begin

  QueryPerformanceFrequency(Frequenzy);

  QueryPerformanceCounter(Start);
  Test;
  QueryPerformanceCounter(Stop);

  ShowMessage(FormatFloat('0.00', (Stop - Start) * 1000 / Frequenzy) + ' Millisekunden');

end;

[Thorben86]

Thx, jetzt hab ichs verstanden :) :coder: