Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Multimedia (https://www.delphipraxis.net/16-multimedia/)
-   -   Delphi Lautstärke von midi Datei ändern... (https://www.delphipraxis.net/68807-lautstaerke-von-midi-datei-aendern.html)

Mazel 5. Mai 2006 18:31


Lautstärke von midi Datei ändern...
 
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 6. Mai 2006 13:27

Re: Lautstärke von midi Datei ändern...
 
Keiner eine Idee?

Gruß Mazel

marabu 6. Mai 2006 14:56

Re: Lautstärke von midi Datei ändern...
 
Hallo Marcel,

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

Grüße vom marabu

Mazel 6. Mai 2006 16:28

Re: Lautstärke von midi Datei ändern...
 
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 6. Mai 2006 19:19

Re: Lautstärke von midi Datei ändern...
 
dann binde die funktionen doch selbst ein. Im msdn sollte doch alle nötigen Informationen zu finden sein.

Mazel 6. Mai 2006 21:47

Re: Lautstärke von midi Datei ändern...
 
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


Alle Zeitangaben in WEZ +1. Es ist jetzt 21:09 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz