MediaPlayer : Ændre lydstyrker

I selve TMediaPlayer.... Det gøres som en indstilling....

Hmm, jeg kan ikke finde nogen indstilling til TMediaPlayer som ændre på lydstyrken. (Jeg bruger Delphi 5)... giv mig evt. navnet på indstillingen.

Det kan du ikke sådan lige umidelbart gøre.... men læg 500 points på bordet, så skal jeg med glæde uploade et program til dig, hvor du kan ændre lydstryrken i ALT.

[Til : cyberlsn] -> 500 point er nu lagt på bordet! Så lad mig se hvad du kan tilbyde...

Jeg mener ikke du kan styre lydstyrken kun på mediaplayeren.

Mediaplayeren bruger lydstyrken fra systemet(PC\'en)

Hvis du er interesseret har jeg noget kode der kan slå mute til/fra samt styre lydstyrken i venstre og højre højttaler.

Stoney

PS.  500 point er ALT ALT ALT for meget

Stoney <- Takker, jeg er ny her på siden så jeg ved stadig ikke helt hvor meget 500/60 osv. virkelig er.

Jeg er meget interesseret i den lydcontroller du snakker om!

Det havde dog stadig været bedre med et component som kunne styre en mediaplayers individuelle lydstyrke, da jeg er ved at lave et mixer program hvor man skal kunne fade frem og tilbage mellem to mediaplayere.

PIS, jeg fuckede pointene totalt up!
Jeg kom til at give mig selv dem allesammen :-(.
(Det var meningen at jeg skulle give mig selv 440, så der stadig var 60 point i puljen).

Nybegynder fejl... sorry!

Bare opret en ny tråd.....

Jeg har lagt en *.zip fil ud på nettet....
- men du får først *.zip-filens destination, når du kan give mig de 500 points, som du selv tog tilbage. *LOL* :)

Jeg faldt lige over dette link:
http://www.swiftsoft.de/mmdemos.html

Det ser ud til de kan alt, jeg har dog ikke prøvet
deres componenter.

Stoney

Stoney <- Jeg kigger på linket lidt senere, jeg har desværre ikke tid lige nu (< 2 dage).
Cyberlsn <- Jeg har ikke råd til at give 500 point (jeg er ny på stedet)... sorry!

feldthaus > Okay.... Jeg kan også godt se, at det der er på swiftsoft.de hvist er laaaangt bedre og mere avancerede eksempler end mit...

Feldthaus, jeg vil faktisk personligt råde dig til at tage et kig på http://www.swiftsoft.de/mmdemos.html
- der er nogle ret så avancerede programmer - med OpenSource, så man kan lave noget lignende.
Jeg har lige taget et kig på eksemplerne, og jeg kan se, at hvis bare man bruger de tilhørende komponenter, kan du lave mega seje/avancerede programmer, der kick\'e Windows XP ud af markedet :)

JEG har i hvertfald fået en del ud af Stoneys link, så ved jeg så ikke om du, Feldthaus, også får det (som sagt, det er professionelle programmer med OpenSource)!!!

Jeg faldt lige over dette (selvfølgelig langt tid efter jeg skulle bruge det...). Det virker kun med mp3 filer:

uses MMSystem;

[...]


procedure TForm1.SetMPVolume(MP : TMediaPlayer; Volume : Integer);
  // Volume : 0 - 1000
const
  MCI_SETAUDIO              = $0873;
  MCI_DGV_SETAUDIO_VOLUME    = $4002;
  MCI_DGV_SETAUDIO_ITEM      = $00800000;
  MCI_DGV_SETAUDIO_VALUE    = $01000000;

Type
  MCI_DGV_SETAUDIO_PARMS = record
  dwCallback : DWORD;
  dwItem    : DWORd;
  dwValue : DWORD;
  dwOver : DWORD;
  lpstrAlgorithm : PChar;
  lpstrQuality : PChar;
  end;

var
  p      : MCI_DGV_SETAUDIO_PARMS;

begin
  { Volume: 0 - 1000 }
  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;