WINDOWS.BEEP für WINDOWS 7

[turboPASCAL]

Wäre es so:

Delphi-Quellcode:

type
  BEEP_SET_PARAMETERS = record
    Frequency, Duration: cardinal;
  end;

const
  IOCTL_BEEP_SET = $10000;
  FNStr: array[0..9] of char = '\\.\piep'#0;
  FN: PChar = @FNStr[0];
  DEVNAME: PChar = @FNStr[3];

var
  DEVPATH: array[0..MAX_PATH] of char;

implementation

{$R *.dfm}

function WindowsBeep(Freq, Duration: cardinal): longint;
var
  hBeep, bRET: cardinal;
  BSP: BEEP_SET_PARAMETERS;
  ODN: longbool;
begin
  if (Freq = 0) and (Duration > 0) then
  begin
    Sleep(Duration);
    Result := S_OK;
  end else
  begin
    ODN := false;
    if QueryDosDevice(DEVNAME, DEVPATH, MAX_PATH) = 0 then
    begin
      DefineDosDevice(DDD_RAW_TARGET_PATH, DEVNAME, '\Device\Beep');
      ODN := true;
    end;
    hBeep := CreateFile(FN, GENERIC_READ or GENERIC_WRITE, 0, nil, OPEN_EXISTING, 0, 0);
    if hBeep <> INVALID_HANDLE_VALUE then
    begin
      BSP.Frequency := Freq;
      BSP.Duration := Duration;
      DeviceIOControl(hBeep, IOCTL_BEEP_SET, @Freq, sizeof(BSP), nil, 0, bRET, nil);
      if ODN then DefineDosDevice(DDD_REMOVE_DEFINITION, DEVNAME, nil);
      Sleep(BSP.Duration);
      CloseHandle(hBeep);
      Result := S_OK;
    end else
      Result := E_FAIL;
  end;
end;

function Beep(Freq, Duration: cardinal): Bool;
begin
  Result := WindowsBeep(Freq, Duration) = S_OK;
  sleep(0);
end;

nicht besser ?

[himitsu]

Es liegt nicht generell an Windows 7.

Beep

Windows Vista x64 and Windows XP 64-Bit Edition: This function is not supported.

Es liegt also am 64-Bit Windows.

PS: Unter einem 32-Bit Windows (seit Win2000) beept es nur, wenn der Beep-Service auch läuft.
Gibt es denn diesen Service unter Win64 nicht?

(OK und in Wine geht es auch nicht, da dieses diese Funktion nicht weiterleitet)

[blackfin]

Unter Windows 7 (x32 UND x64) wird der Beep()-Sound auf die Lautsprecher umgeleitet, durch einen kleinen "Hack" (überschreiben der beep.sys durch eine alte aus XP) kann man den auch wieder zurück auf den PC Speaker leiten.
Nur Vista x64 und XP x64 betrifft das Problem des Threads direkt.

Es gibt dazu auch einen wirklich interessanten Blog-Eintrag von einem Microsoft-Entwickler, wie kompliziert so eine banale Sache wie der Beep-Spund sein kann :

http://blogs.msdn.com/b/larryosterma...windows-7.aspx

[hathor]

@blackfin:

Den Link kenne ich: am Lustigsten finde ich den Hinweis auf http://www.ada.gov/
Ich hielt das für eine amerikanische Übertreibung in Sachen "Umweltschutz"! Deshalb KEIN Beep.

[hathor]

Zitat von turboPASCAL:

Wäre es so:

Delphi-Quellcode:

function Beep(Freq, Duration: cardinal): Bool;
begin
  Result := WindowsBeep(Freq, Duration) = S_OK;
  sleep(0);
end;

nicht besser ?

Das kann man zusätzlich definieren.
Aber bei meinen vorhandenen Sourcecodes muss ich nur den Punkt entfernen in "Windows.Beep" und eine Unit WBEEP einfügen.
Man könnte am Ende gleich das erforderliche Sleep(50); einfügen, dann erspart man sich das zwischen 2 Funktionsaufrufen.

Wenn Freq oder Duration =0, warum nicht gleich Exit; ?

[turboPASCAL]

"sleep(0)" bringt also nichts ?

Wenn das so wäre könnte/muss, wenn man seine Programme nach x64 portiert, den kompletten Sound-Krams umschreiben.
(bezogen auf Melodien etc.)

[hathor]

Ich habe es soeben mit WINDOWS 7 64Bit getestet: Sleep(0); funktioniert auch.
Ob das in der Realität auch einem Sleep(16) entspricht wie bei WIN XP werde ich noch untersuchen...

Ergebnis: Sleep(0); entspricht in WINDOWS 7 64Bit 0,0062 msec.

Zum Selbertesten:

Delphi-Quellcode:

var   a, b, c: Int64; r: real;

  QueryPerformanceFrequency(a);
  QueryPerformanceCounter(b);
  Sleep(0);
  QueryPerformanceCounter(c);
  r:= (c - b) * 1000 / a;
  Label1.Caption:=FloatToStrF(r, ffFixed, 12, 5)+' msec';

[himitsu]

Zitat von hathor:

Ergebnis: Sleep(0); entspricht in WINDOWS 7 64Bit 0,0062 msec.

Sleep(0) entspricht:
- hallo Windows, brich jetzt bitte die Verarbeitung meines Threads ab und arbeite erstmal mit allen anderen Threads weiter.

Je nach dem wie lange es nun dauert, bis der aktuelle Thread wieder dran ist, so lange ist dann auch die Pause.

Windows arbeitet (auf Singel-CPU-Basis) nicht paralell, sondern alle Thread werden für ein paar Millisekunden bearbeitet.

Je nachdem, wieviel ein Thread arbeitet und wie die Thread-/Prozessprioritäten eingestellt sind, hängt davon ab, wievie Zeit und in welchem Intervall, bzw. wie oft Windows den Threads dann verarbeitet.

[hathor]

Mir ist klar, dass das keine Konstante ist.

Wer die Temperatur der Luft um 16.00 Uhr in Berlin misst, bekommt einen Wert. Man muss nicht immer angeben, womit gemessen worden ist. Ich muss auch nicht die Luftfeuchtigkeit und die Windgeschwindigkeit angeben.
Wenn ich ständig messe, bekomme ich immer einen anderen Wert, abhängig von der Auflösung.

Warum also glauben hier im Forum immer die gleichen Leute, etwas mit immer den gleichen Argumenten kommentieren zu müssen???

In Deinen Zeilen steht nichts Anderes, als dass Du andere Forumsmitglieder für doof hältst!

[jfheins]

Zitat von hathor:

In Deinen Zeilen steht nichts Anderes, als dass Du andere Forumsmitglieder für doof hältst!

Und schon allein die Aussage

Zitat von hathor:

Ergebnis: Sleep(0); entspricht in WINDOWS 7 64Bit 0,0062 msec.

in der du eine konkrete Zeitspanne benennst, zeigt dass diesr Gedanke nicht ganz absurd ist.