Buat Pemutar Video Dengan Delphi 7

Hai...
Kali ini saya akan membagikan turorial Cara Membuat Media Video Player ( Pemutar Video ) menggunakan delphi 7. Sebenarnya ada banyak cara untuk membuat pemutar video seperti ini, namun yang saya tahu baru tiga yaitu pemutar video berbentuk Flash Player ActiveX, GomX ActiveX, atau Windows Media Player ActiveX. Jelas saya tidak akan menjelaskan ketiganya sekaligus, yang akan saya posting sekarang adalah cara membuat pemutar video menggunakan ActiveX Windows Media player. Dikarena windows media player adalah software bawaan windows, jadi tidak perlu repot-repot untuk menginstall flashplayer atau gomplayer.

CARA MEMBUAT PEMUTAR VIDEO DENGAN WINDOWS MEDIA PLAYER ACTIVEX DI DELPHI :

1. Pertama jalankan delphi, lalu pada menu klik Component -> Import ActiveX Control...


2. Selanjutnya akan muncul gambar seperti dibawah, lalu pilih windows media player (Version 1.0).
Klik Install, Selanjutnya tinggal klik Yes atau OK sampai selesai.


Proses pengistallan ActiveX Windows Media Player hanya sebentar yaitu kurang dari 1 menit. Jika sudah selesai pasti ditabmenu ActiveX akan ada icon seperti pada gambar dibawah ini :


Iconnya terkadang tidak selalu sama, yang terpenting kalo cursor menyorot salah satu icon pada tab menu ActiveX yang aneh pastikan muncul tulisan WindowsMediaPlayer (WMPLib_TLB).

3. Tambahkan komponen WindowsMediaPlayer (WMPLib_TLB) kedalam form project.

4. Agar telihat seperti screenshoot diatas, tambahakan komponen MainMenu yang berada ditab "Standard" dan komponen OpenDialog yang terletak ditab "Dialogs".

5. Ganti seluruh kode dengan souce kode dibawah ini:

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StrUtils, Menus, OleCtrls, WMPLib_TLB, XPMAN, ShellApi;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Open1: TMenuItem;
    Exit1: TMenuItem;
    N1: TMenuItem;
    Help1: TMenuItem;
    OpenDialog1: TOpenDialog;
    procedure Exit1Click(Sender: TObject);
    procedure Help1Click(Sender: TObject);
    procedure Open1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Exit1Click(Sender: TObject);
begin
Application.Terminate;
end;

procedure TForm1.Help1Click(Sender: TObject);
begin
Application.MessageBox('Windows Media Player ActiveX Delphi 7 Created By @adiharistwn', 'About', 64);
ShellExecute(0, 'open', PChar('http://adiharistwn.blogspot.com/2015/11/cara-membuat-pemutar-video-delphi-7.html'), nil, nil, SW_SHOWNORMAL);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then begin
WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
Form1.Caption:=LeftStr(ExtractFileName(OpenDialog1.FileName),
Length(ExtractFileName(OpenDialog1.FileName))-Length(ExtractFileExt(OpenDialog1.FileName)));
end; OpenDialog1.FileName:='';
end;

end.

Selanjutnya bisa dipelajari sendiri, diubah, dikembangkan dan ditambahkan lagi. Jika terjadi error bisa anda lihat full souce code projectnya dan bagi yang ingin bertanya atau request posting bisa komentar dibawah.