Membuat Video Player Sederhana Dengan BORLAN DELPHI 7

Design form ini untuk membuat video player  layaknya GOM Player, WINAMP dan lain sebagainya, tapi Video Player ini hanya sederhana karena tidak memiliki PlayList & Volume. Setidaknya kita sudah bisa membuatnya dengan menggunakan Delphi 7. Cara membuatnya juga tidak sulit, sangat sederhana dan hanya membutuhkan beberapa komponen yang ada di Menu Delphi 7. Untuk Lebih jelasnya langsung saja ke TKP. 

Langkah pertama, siapkan form Delphi 7, seperti yang gambar di atas, komponen yang di butuhkan untuk membuat Video Player sederhana adalah sebagai berikut :

Komponen	Name	Caption
OleContainer	OleContainer1
DriveCombobox	DriveCombobox1
DirectoryListBox	DirectoryListbox1
FileListBox	FileListBox1
Button	Button1	Keluar
MediaPlayer	MediaPlayer1
Form	Form1	Media Player (Judul Program)

Langkah kedua, masukkan script di bawah ini :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, MPlayer, FileCtrl, ExtCtrls, OleCtnrs;

type
  TForm1 = class(TForm)
    DriveComboBox1: TDriveComboBox;
    DirectoryListBox1: TDirectoryListBox;
    FileListBox1: TFileListBox;
    MediaPlayer1: TMediaPlayer;
    Button1: TButton;
    OleContainer1: TOleContainer;
    procedure FileListBox1Change(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FileListBox1Change(Sender: TObject);
begin
if (FileListBox1.FileName <>'')
then
with MediaPlayer1 do
begin
FileName:=FileListBox1.FileName;
open;
end;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
MediaPlayer1.Display:=OleContainer1;
MediaPlayer1.VisibleButtons:=[btPlay,btPause,btStop,btNext,btPrev,btStep,btBack];
FileListBox1.Mask:='*.avi;*.mpg;*.mpeg';
DirectoryListBox1.FileList:=FileListBox1;
DriveComboBox1.DirList:=DirectoryListBox1;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
Close;
end;

end.

Silahkan Di Compile, jika sudah bisa di Compile maka Media Player Sederhana ini telah siap digunakan. Tapi jika masih ada yang error maka koreksi kembali script yang ada di Form dengan yang ada pada postingan ini. Oke jangan lupa Di Simpan Project tadi, jika tidak di simpan maka sia-sia kerja keras selama ini.