Lydstyrke????

Jeg har i de sidste par dage lavet en media player, men jeg kan ikke finde ud af at gøre så man kan skrue op og ned på lydstyrken i programmet...
Håber i kan hjælpe mig!!!

/Mads

Kode 

procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer);
var
  p: MCI_DGV_SETAUDIO_PARMS;
begin
   { Lydstyrke: 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;

// Du kan kalle prosedyren slik:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  SetMPVolume(MediaPlayer1, TrackBar1.Position);
end;

// eller

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

Jeg har i de sidste par dage lavet en media player, men jeg kan ikke finde ud af at gøre så man kan skrue op og ned på lydstyrken i programmet...
Håber i kan hjælpe mig!!!

/Mads

Jeg har i de sidste par dage lavet en media player, men jeg kan ikke finde ud af at gøre så man kan skrue op og ned på lydstyrken i programmet...
Håber i kan hjælpe mig!!!

/Mads

Du kan fx forandre på lydstyrken til en TMediaPlayer:

Kode 

procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer);
var
  p: MCI_DGV_SETAUDIO_PARMS;
begin
   { Lydstyrke: 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;

// Du kan kalle prosedyren slik:
procedure TForm1.TrackBar1Change(Sender: TObject);
begin
  SetMPVolume(MediaPlayer1, TrackBar1.Position);
end;

// eller

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

Håper dette er til hjelp.

DiZpel

Tak for hjælpen DiZPel... Ved du også hvordan man gør så brugeren ikke kan ændre størelsen på vinduet???
OBS. Hvis du også svarer på dette her får du 150 UP!!

/Mads

Kode 

procedure SetMPVolume(MP : TMediaPlayer; Volume : Integer);
const
  MCI_SETAUDIO               = $0873;
  MCI_DGV_SETAUDIO_VOLUME    = $4002;
  MCI_DGV_SETAUDIO_ITEM      = $00800000;
  MCI_DGV_SETAUDIO_VALUE     = $01000000;

  MCI_DGV_STATUS_VOLUME      = $4019;
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
  { Lydstyrke: 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;