Mal wieder MP3

[jwhm]

Hallo,

ich möchte für einen MediaPlayer die Lautstärke Regeln, aber nicht die Systemlautstärke, da ich zwei Player in meinem Programm laufen habe. Ich habe bis jetzt nur Regelungen für die Systemlautstärke gefunden, da würde ich aber beide Player abwürgen. Hat jemand einen Code bzw. Tut. zu dem Thema oder zum MediaPlayer überhaupt irgendwo im Web gefunden?

Das zweite, worauf ich noch keine Antwort gefunden habe, ist das Auslesen der Trackinformationen bei MP3-Dateien, ist das irgendwie möglich?

Johannes

[SirThornberry]

oLautstärke änderm mit

Delphi-Quellcode:

procedure TForm1.SetMPVolume(MP: TMediaPlayer; Volume: Integer);
var
  p: MCI_DGV_SETAUDIO_PARMS;
begin
  p.dwCallback := 0;
  p.dwItem := MCI_DGV_SETAUDIO_VOLUME;
  p.dwValue := Volume;
  p.dwOver := 0;
  p.lpstrAlgorithm := nil;
  p.lpstrQuality := nil;
  mciSendCommand(MP.DeviceID, MCI_SETAUDIO,
    MCI_DGV_SETAUDIO_VALUE or MCI_DGV_SETAUDIO_ITEM, Cardinal(@p));
end;

und id3infos siehe anhang

[Thunderchild]

Ich bin API-nüschd-Wisser. Welche Unit muß ich einbinden, damit das läuft?

[MrKnogge]

Markier TMediaPlayer und drück F1 :roll:

[Thunderchild]

MediaPlayer ist kein Problem. Ich meine den mciSendCommand-Aufruf. Ich habe den Code bei mir eingefügt und er kennt den Typ MCI_DGV_SETAUDIO_PARMS nicht. Die Unit, die diesen Typ deklariert, meine ich.

Gruß

[jwhm]

Hier ist der code vollständig:

http://www.swissdelphicenter.com/de/showcode.php?id=618

[Gandalfus]

unit: mmsystem