Lautstärke von midi Datei ändern...

[Mazel]

Hallo,

wie kann ich, wenn ich eine Midi Datei abspiele, die Lautstärke ändern? Öffnen und abspielen tue ich die Midi Datei über MCISendCommand.

Gruß
Mazel

[Mazel]

Keiner eine Idee?

Gruß Mazel

[marabu]

Hallo Marcel,

ich habe keine Ahnung - aber wofür sind die API Funktionen MCIWndGetVolume() und MCIWndSetVolume() eigentlich da?

Grüße vom marabu

[Mazel]

Hi,

diese Funktionen sin zwar in der SDK aber in Delphi 6 funktionieren sie leider nicht, auch wenn MMSystem eingebunden ist. Es kann aber sein, dass ich noch eine andere Unit einbinden muss.

Gruß
Mazel

[SirThornberry]

dann binde die funktionen doch selbst ein. Im msdn sollte doch alle nötigen Informationen zu finden sein.

[Mazel]

Hi,

ich habe es nun gelöst mit folgenden Code:

Delphi-Quellcode:

type
 TVolumeRec = record
   case Integer of
    0: (LongVolume: Longint);
    1: (LeftVolume, RightVolume: Word);
  end;

var
 i: Integer;
 Vol: TVolumeRec;

begin
  for i:=MIDIOUTGetNumDevs - 1 downto 0 do MIDIDeviceID:=i;
  Vol.LeftVolume:=Volume shl 8;
  Vol.RightVolume:=Volume shl 8;
  MidiOutSetVolume(MIDIDeviceID, Vol.LongVolume);
end;

Gruß
Mazel