Tutorial Delphi 7 :: Mengontrol Volume TMediaPlayer

Ah , hampir saya lupa .. Ternyata program musik player yang saya buat belum memiliki kontrol suara .. Alhasil suara dari lagu yang di putar hanya alakadarnya saja .. Setelah Trial and error beberapa kali , akhirnya saya menemukan juga code yang cocok untuk mengontrol suara ..  Jadi , tunggu apa lagi !?

Begin ..
Yang paling penting adalah , jangan lupa memasukan unit MMSystem pada klausa uses ..

Pertama  , kita buat dulu procedure untuk mengkontrol volume TMediaPlayer tersebut seperti dibawah ini ..

procedure 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
  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;


Yippi , procedure tersebut mengembalikan nilai integer yang nantinya digunakan sebagai variabel untuk mengontrol volume pada TMediaPlayer ..
Penggunaan procedurenya adalah sebagai berikut ( saya mengimplementasikannya pada TrackBar onChange event) ..


procedure TForm1.TrackBar1Change(Sender: TObject);
var a , b : integer;
begin

  a := TrackBar1.Position;
  b := a * 100;
  SetMPVolume(MediaPlayer1,b);
end;


Mudah bukan ?Akhirnya , musik player made self berhasil juga di buat .. Dan saya bisa mendengarkan lagu kesayangan saya dengan player sendiri ..
Sekian tutorial kali ini , sampaia ketemu di tutorial selanjutnya :)
End.

Oia , bila anda berminat untuk mempelajari delphi 7 dari tingkat dasar sampai mahir membuat aplikasi database sendiri.Silahkan kunjungi blog video tutorial saya DISINI.Tersedia video tutorial praktek selama 3 jam yang akan menuntun anda dengan mudah mempelajari pemrograman Delphi 7.

Simak Juga Tutorial Lainnya: