Warum ist diese Soundkomponente stumm?

[implementation]

Ich habe den Quelltext der angehängten Komponente einem Buch entnommen
Dort funktioniert er auch, doch bei mir ist dieKomponente stumm und gibt keinen Ton von sich.

Bei der angehängten Komponente handelt essich um eine Klaviertaste (TPianokey), die per midiOut einen Ton ausgibt.

Warum funktioniert die Komponente bei mir nicht?

[mkinzler]

Gibt es keine Beschreibung hierzu?

[turboPASCAL]

Hilft dir das weiter ?
http://www.delphipraxis.net/internal...t.php?t=147889

[implementation]

hab ich mir angeguckt

ich stelle dieses thema auch rein, weil ich nicht weiß warum es nicht funktioniert
dann brauch ich auch keine einweisung

daher hilft mir das jetzt leider nicht weiter

[turboPASCAL]

Es kommt kein Ton weil er nicht hötbar ist.

Delphi-Quellcode:

const
  NOTE_ON  = $90;
  NOTE_OFF = $80;

var
  MidiNote: Cardinal;

  function MakeMidiNote(Octave, Note, Velocity: Byte): Cardinal; { Cardinal = DWORD }
  begin
    // 0..127 Octave
    // Note 0..11 -> C, C#, D, D#, E, F, F#, G, G#, A, A#, H
    // Velocity 0..127 -> Lautstärke der Note

    Result := (((Octave + 2) * 12 or Note mod 12) shl 8) or (Velocity shl 16);
  end;

procedure TPianokey.MouseDown(Button:TMouseButton; Shift: TShiftstate; X, Y: Integer);
begin
  inherited MouseDown(Button,Shift,X,Y);
  if (Button=mbLeft) and (midiOut<>0) then
  begin
    // midiOutShortMsg(midiOut, $FF0090+(256*FNote));

    MidiNote := MakeMidiNote(Octave, FNote, 100);
    midiOutShortMsg(midiOut, MidiNote or NOTE_ON);
  end;
end;

procedure TPianokey.MouseUp(Button:TMouseButton; Shift: TShiftstate; X, Y: Integer);
begin
  inherited MouseUp(Button,Shift,X,Y);
  if (Button=mbLeft) and (midiOut<>0) then
  begin
   // midiOutShortMsg(midiOut, $80+(256*FNote));
   midiOutShortMsg(midiOut, MidiNote or NOTE_OFF);
  end;
end;

Auf diese Weise lässt es sich besser lesen. ;)

[implementation]

hab verstanden --> keine Lautstärke

aber klappt immer noch nicht

[turboPASCAL]

Hast du das so in der Komponente ersetzt ?

[implementation]

ja habe ich

[DeddyH]

MIDI wird generell aber abgespielt?

[implementation]

wie meinst du das

ja, das dings im link hat bei mir funktioniert