Pemutar MP3 Sederhana: Volume

Artikel ini lanjutan dari artikel saya yang terdahulu: Pemutar MP3 Sederhana: Trackbar. Pada artikel kali ini, saya akan menambahkan kemampuan mengatur volume. Program saya membutuhkan unit MMDevApi.pas yang saya dapatkan dari delphiforfun.org. Silakan kopi unit tersebut dibawah ini dan simpan sebagai file text biasa dengan ekstensi .Pas

Unit MMDevApi.pas


Sekarang mari kita buat layout seperti dibawah ini:


Dibandingkan layout program pada artikel terdahulu. Saya menambahkan satu Trackbar lagi untuk mengatur volume. Kita juga harus menambahkan di bagian unit MMDevPas dan ActiveX di bagian uses

Uses
MMDevApi, ActiveX,......

Saya mempersiapkan pemakaian pengaturan suara di Procedure PreparingSound yang dipanggil di FormCreate milik form.

procedure TMainForm.PreparingSound;
var
    deviceEnumerator: IMMDeviceEnumerator;
    defaultDevice: IMMDevice;
begin
    EndpointVolume:= nil;
    CoCreateInstance(
        CLASS_IMMDeviceEnumerator, 
       nil, 
      CLSCTX_INPROC_SERVER,      
      IID_IMMDeviceEnumerator, deviceEnumerator);

     deviceEnumerator.GetDefaultAudioEndpoint(
     eRender, eConsole, 
     defaultDevice);

     defaultDevice.Activate(
     IID_IAudioEndpointVolume, 
     CLSCTX_INPROC_SERVER, 
     nil, endpointVolume);
end;

Pengaturan Volume terlaksana, saat pengguna mengubah-ubah trackbar volume. Tambahkan kode berikut pada OnChange milik TrackBar2.

procedure TMainForm.TrackBar2Change(Sender: TObject);
var
    VolumeLevel: Single;
begin
    if endpointVolume = nil then Exit;
    with Trackbar2 do volumeLevel:= Position/max;
    endpointVolume.SetMasterVolumeLevelScalar(VolumeLevel, nil);
end;

Program Selengkapnya

Pemutar MP3 Sederhana: Volume Rating: 4.5 Diposkan Oleh: Yohanes Octa

0 comments:

Posting Komentar

Diberdayakan oleh Blogger.