Lautstärke von TMediaPlayer mit der Trackbar regeln???

[mlspider]

Hallo,

mein Problem steht eigentlich schon im Titel. Wie kann ich die Lautstärke (Master) in Verwendeung mit der TMediaPlayer-Komponente mit einer Trackbar regeln ???

Ein Code-Schnipsel wäre nicht schlecht!!!

[fkerber]

Hi!

Schau mal hier:
http://www.swissdelphicenter.ch/de/showcode.php?id=618

Ciao Frederic

[mlspider]

Genau diesen Code habe ich bereits eingebunden, nur weis ich leider überhaupt nicht, wie ich das nun mit der Trackbar regeln kann, bzw. aufrufen soll????!!!!!

[Giantics]

Zitat von mlspider:

Genau diesen Code habe ich bereits eingebunden, nur weis ich leider überhaupt nicht, wie ich das nun mit der Trackbar regeln kann, bzw. aufrufen soll????!!!!!

Trackbar aufs Form. Max auf 1000 stellen und bei OnChange folgendes eintragen:

SetMPVolume(MediaPlayer1,TrackBar1.Pos);

[fkerber]

Hi!

Der Aufruf geschieht ja so:

Delphi-Quellcode:

procedure TForm1.Button1Click(Sender: TObject); 
begin 
  SetMPVolume(MediaPlayer1, 500); 
end;

Das müsste man dann etwa so ändern:

Delphi-Quellcode:

procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  SetMPVolume(MediaPlayer1, Trackbar1.Position);
end;

Wie du siehst, wird das ganze jetzt im OnChange-Ereignis der Trackbar aufgerufen.
Sinnvollerweise sollte die Trackbar folgendermaßen eingestellt werden:
Max: 1000
Frequenzy: 20 (abhängig von Länge etwas zu verändern, bis der Abstand ordentlich aussieht)


Ciao Frederic

[mlspider]

Jetzt gibt er mir aus, daß Pos ein undefinierter Bezeichner ist.

[fkerber]

Hi!

Siehe meinen Beitrag: Es müsste Position heißen, denke ich mal.


Ciao Frederic

[Giantics]

Zitat von mlspider:

Jetzt gibt er mir aus, daß Pos ein undefinierter Bezeichner ist.

Sorry hab mich vertan, muss natürlich Position heißen.

[mlspider]

Erst mal Danke. Es gibt zwar jetzt keine Fehler mehr, allerdings passiert irgendwie garnichts, wenn man an der Trackbar regelt.

[fkerber]

Hi!

Hast du es ins Onchange der trackbar geschrieben?

Ciao Frederic