Buat Pemutar Video Delphi 7

Hai teman...
Ini posting ke lima gue dan mungkin ini yang terakhir buat hari ini besok moga ajah sempet buat tutotial lagi kayak gini. Cara buat Media Video Player atau pemutar video menggunakan delphi 7. Sebenernya 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. Namun
pada tutorial kali ini gue ngga bakal njelasin ketiga-tiganya sekaligus melainkan hanya satu yaitu cara membuat pemutar video menggunakan ActiveX Windows Media player, karena windows media player adalah software bawaan windows jelas kita tak usah report untuk menginstall flashplayer atau gomplayer. tadi gue sebenernya memiliki rencana untuk membuat video tadi namun karen males ngedit videonya jadi gue batalin saja. hahaha

Mulai, Pertama Buka delphi 7 kalian, lalu klik Component -> Import ActiveX Control...

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

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

Baik, Langsung saja, ini kodenya :

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Menus, OleCtrls, WMPLib_TLB, ComCtrls, XPMan;

type
  TForm1 = class(TForm)
    WindowsMediaPlayer1: TWindowsMediaPlayer;
    MainMenu1: TMainMenu;
    File1: TMenuItem;
    Exit1: TMenuItem;
    Open1: 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);
end;

procedure TForm1.Open1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
WindowsMediaPlayer1.URL:=OpenDialog1.FileName;
end;

end.

Gue buat hanya satu form saja, bagi yang ingin ngembangin atau nambahin silakan. bagi yang pingin bertanya atau request posting bisa komentar dibawah. bagi yang mau copas alias kopy paste diblog sediri atau media lain ngga usah ijin sama gue silakan saja, asal nyantumin link posting ini. Gue udah ngklasin. Bagi yang mau source code projectnya bisa download di http://adf.ly/1QsQUa