CARA MEMBUAT APLIKASI PEMUTAR VIDEO MENGGUNAKAN DELPHI7

Pada dasarnya aplikasi delphi digunakan untuk membuat berbagai macam aplikasi,,, setelah mencari di internet ternyata ada aplikasi untuk memutar lagu dan penambahan dari mata kuliah yaitu memutar video,, lumayan lah buat belajar langsung aja deh:

1. aplikasi mp3 ini hanya mengunakan 1 from atur propeti berikut
name : Fmp3
caption : MP3
2. masukan komponen System pilih MediaPlayer lalu atur propeti berikut
name : mp3
visibelButton : btNext, vtPrev, btRecord, dan btEject : False.
3. masukan komponen dialogs pilih OpenDialog atur properti berikut
name : dlgOpen_mp3
filter : Video file(*.avi;*.mpg;*.mpeg;*.wmv)|*.avi;*.mpg;*.mpeg;*.wmv
Audio file(*.mp3;*.mp2;*.wav;*.wma)|*.mp3;*.mp2;*.wav;*.wma
Video dan Audio file|*.mp3;*.mp2;*.wav;*.wma;*.avi;*.mpg;*.mpeg;*.wmv
All file|*.*
4. masukan komponen sistem pilih Timer lalu atur properti berikut
name : tmr1_mp3
interval : 1000
enable : True
5. masukan komponen win32 pilih XPmanifest lalu atur properti berikut
name : xpmnfst1_mp3
6. masukan komponen win32 pilih ProgressBar lalu atur properti berikut
name : pb1_mp3
7. masukan komponen Additional pilih BitBtn lalu atur properti berikut
name : btn1
caption : Mainkan
glyph : (sesuai keinginan)
8. masukan komponen Standar pilih Panel
name : Panel1
caption : VGA
height : 640
widht : 480
9. masukan komponen Standar pilih scrollbar
nama : scrollbar1

kurang lebih seprti ini tampilanya
8.masukan var sebelum implementasi
var
Fmp3: TFmp3;
Mp3Path: string;
paused: Boolean;
9. masukan function getwavevolume
function getwavevolume:byte;
var
Volume: DWord;
MyWaveOutCaps: TWaveOutCaps;
vol:real;
s:string;
begin
if            WaveOutGetDevCaps(WAVE_MAPPER,@MyWaveOutCaps,sizeof(MyWaveOutCaps))=MMSYSERR_  NOERROR then
begin
WaveOutGetVolume(WAVE_MAPPER, @Volume);
vol:=(Volume div 65537 div 257);
s:=floattostr(int(vol));
getwavevolume:=strtoint(s);
end;
end;
10. Masukan function setwavevolume
function setwavevolume(volume:DWord):Dword;
var
vol:integer;
MyWaveOutCaps: TWaveOutCaps;
begin
vol:=(volume)*65537*257;
if WaveOutGetDevCaps(WAVE_MAPPER,@MyWaveOutCaps,sizeof(MyWaveOutCaps))=MMSYSERR_NOERROR then
begin
WaveOutSetVolume(WAVE_MAPPER, MakeLong(vol, vol));
end;
end;
11.Doubel klik pada scrollbar1 lalu masukan sourcecode berikut
procedure TFmp3.ScrollBar1Change(Sender: TObject);
var   f:real; i:integer;
begin
setwavevolume(scrollbar1.Position);
f:=int(scrollbar1.Position/scrollbar1.Max*100);
scrollbar1.Position:=i;
scrollbar1.Hint:=inttostr(i);
12. Double klik pada from lalu masukan sourcode berikut
procedure TFmp3.FormCreate(Sender: TObject);
begin
paused:=false;
mp3.Enabled:=False;
i:=getwavevolume;
scrollbar1.Position:=i;
end;
13. Double klik pada MediaPlayer lalu masukan sourcode berikut
procedure TFmp3.mp3Click(Sender: TObject; Button: TMPBtnType;
var DoDefault: Boolean);
begin
if Button = btStop then
begin
mp3.Position:=0;
pb1_mp3.Position:=0;
end
else if Button = btStep then
begin
if ((mp3.Position+5000)<=mp3.Length) then
mp3.Position:=mp3.Position+5000
else
begin
mp3.Position:=0;
pb1_mp3.Position:=0;
end;
mp3.Play;
end
else if Button = btBack then
begin
if ((mp3.Position-5000)>0) then
mp3.Position:=mp3.Position-5000
else
mp3.Position:=0;
mp3.Play;
end;
end;
14. Double klik Timer lalu masukan sourcode berikut
procedure TFmp3.tmr1_mp3Timer(Sender: TObject);
begin
if mp3.Enabled then
begin
pb1_mp3.Position:=mp3.Position;
if pb1_mp3.Position=mp3.Length then
begin
mp3.Stop;
pb1_mp3.Position:=0;
mp3.Close;
mp3.Enabled:=true;
mp3.FileName:=Mp3Path;
mp3.Open;
mp3.Position:=0;
pb1_mp3.Max:=mp3.Length;
pb1_mp3.Min:=0;
end;
end;
end;
15. Double klik pada Button lalu masukan sourcode berikut
procedure TFmp3.btn1Click(Sender: TObject);
begin
mp3.Display := Panel1;
mp3.DisplayRect :=
Rect (0,0, Panel1.Width-0, Panel1.Height-0);
if dlgOpen_mp3.Execute then
begin
Mp3Path:=dlgOpen_mp3.FileName;
with mp3 do
begin
Enabled:=true;
FileName:=Mp3Path;
Open;
Position:=0;
Play;
end;
pb1_mp3.Max:=mp3.Length;
pb1_mp3.Min:=0;
end;
Memo1.Clear;
Memo1.Lines.Text:=extractfilename(dlgOpen_mp3.FileName);
end;
16.Doubel klik pada panel lalu masukan soucecode berikut
procedure TFmp3.Panel1Click(Sender: TObject);
begin
if mp3.Enabled then
mp3.Pause;
end;