andrypein.net : Aplikasi pemutar wav dengan delphi kali ini bisa kalian coba untuk membuatnya.
Dan selamat mungkin dengan praktek ini levelnya akan menjadi sound programming. 
Beginilah skrinsut aplikasinya :
Praktek membuatnya sangat mudah, bahannya hanya 1 buah edit text, 3 bitbutton dan 1 buah opendialog.
Sebelumnya tambahkan terlebih dahulu ‘Uses’ MMSystem pada Uses nya sehingga full listing kode nya akan seperti ini :
unit Unit1;interfaceuses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, MMSystem, StdCtrls, Buttons;type TForm1 = class(TForm) SpeedButton1: TSpeedButton; SpeedButton2: TSpeedButton; Edit1: TEdit; od: TOpenDialog; Label1: TLabel; SpeedButton3: TSpeedButton; procedure SpeedButton2Click(Sender: TObject); procedure SpeedButton1Click(Sender: TObject); procedure SpeedButton3Click(Sender: TObject); private { Private declarations } public { Public declarations } end;var Form1: TForm1;implementation{$R *.dfm}procedure TForm1.SpeedButton2Click(Sender: TObject);beginif od.Execute then edit1.Text:=od.Filenameelse exit;end;procedure TForm1.SpeedButton1Click(Sender: TObject);beginif edit1.Text = '' then showmessage('pilih dulu wav soundnya')else PlaySound(PChar(edit1.Text),0,SND_NODEFAULT Or SND_ASYNC);end;procedure TForm1.SpeedButton3Click(Sender: TObject);begin sndPlaySound(nil, 0); // Stops the soundend;end. |
Done lalu coba play-play file wav untuk ngetes dan donlod appsnya disini gan.
bos, gmn klo file wav-nya lebih dari satu file dan diputarnya berurutan mulai dari satu dulu kemudian 2 dst..
cari di palette win31
ada komponen yang namanya “filelistbox”
agan pake itu aja,dia otomatis nampilin isi dari sebuah direktori :jabat
kalo buat file format.mp3 gimana gan???