membuat aplikasi media player dari delphi cukup mudah…
karena di dalam delphi sendiri sudah tersedia komponen untuk membuat media player. jadi kita tidak perlu mencari tambahan komponen atau menginstall komponen yang lain..yuuup..
Dalam pembuatan media player yang saya buat ini, saya menggunakan komponen panel sebagai penampil videonya. Komponen yang saya gunakan adalah:
TMediaPlayer yang berasal dari kumpulan komponen system, digunakan sebagai tombol play, stop,pause,dll
TFileListBox yang berasal dari kupulan komponen Win3.1, digunakan sebagai playlistnya
TDriveListBox berasal dari kumpulan komponen Win3.1, digunakan sebagai panel folder
TDriveComboBox berasal dari kumpulan komponen Win3.1, digunakan sebagai panel drive
Tpanel yang berasal dari kumpulan komponen standart, digunakan sebagai penampil video
Berikut ini tampilan aplikasi media player yang saya buat
Berikut script aplikasi yang saya buat
Unit Unit1;
interface
uses
winProcs, wintypes, StdCtrls, ExtCtrls, FileCtrl, Controls,
classes, MPlayer, Messages, SysUtils, Graphics, Forms,
Dialogs, jpeg, Buttons, XPMan;
type
TForm1 = class(TForm)
MediaPlayer1: TMediaPlayer;
FileListBox1: TFileListBox;
DirectoryListBox1: TDirectoryListBox;
DriveComboBox1: TDriveComboBox;
Panel1: TPanel;
Image1: TImage;
Image2: TImage;
BitBtn1: TBitBtn;
XPManifest1: TXPManifest;
procedure FileListBox1Click(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
procedure WMNCHitTest(var msg : TWMNCHitTest);message
WM_NCHitTest;
// procedure FileListBox1Change(Sender: TObject);
// procedure CheckBox1Click(Sender: TObject);
private
{ Private declarations }
fitra : boolean;
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.FileListBox1Click(Sender: TObject);
begin
IF ( filelistbox1.FileName <> ”)then
with Mediaplayer1 do
begin fileName := FileListBox1.FileName;
Open;
if fitra then
displayrect:= rect (0,0, panel1.Width, panel1.height )
else
displayrect:=rect (0,0,0,0);
end;
end;
procedure TForm1.WMNCHitTest(var msg : TWMNCHitTest);
begin
inherited;
if (msg.Result = htClient) then
if Msg.YPos < Top + 650 then
msg.Result := htCaption;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
fitra:=true;
mediaplayer1.Display := panel1;
mediaplayer1.VisibleButtons :=
[btplay, btpause, btstop, btnext, btprev, btstep, btback];
filelistbox1.Mask:= ‘*.mpg’;
directorylistbox1.FileList:= filelistbox1;
drivecombobox1.DirList:= directorylistbox1;
end;
procedure TForm1.BitBtn1Click(Sender: TObject);
begin
if messagedlg(‘Are you sure to exit program?’,mtconfirmation,[mbYes,mbNo],0)=mrYes then
Application.Terminate;
end;
end.
|
Tambahan…
Jika anda ingin membuat media palyer yang berformat avi tinggal diganti script berikut
Sumber
No comments:
Post a Comment