ActiveX/Delphi

How to use VLC within your own Delphi Application: Components --> Import ActiveX --> VideoLan Client Create a new Package and select "Install".

The VLC-Player Object can be found in your ActiveX-Components Tabsheet. Place one of it in your Form1, place a TButton and use the following code:

unit Unit1;

interface

uses

 Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
 Dialogs, StdCtrls, OleCtrls, AXVLC_TLB;

type

 TForm1 = class(TForm)
   Button1: TButton;
   vlc: TVLCPlugin;
   procedure Button1Click(Sender: TObject);
 private
   { Private-Deklarationen }
 public
   { Public-Deklarationen }
 end;

type VLCPlaylistMode = TOleEnum; const VLCPlayListInsert = $00000001; VLCPlayListReplace = $00000002; VLCPlayListAppend = $00000004; VLCPlayListGo = $00000008; VLCPlayListCheckInsert = $00000010;

var

 Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(Sender: TObject); begin vlc.addTarget('C:\video.mpg', null, VLCPlayListInsert, 0); // you can use any MRL with parameters instead of 'c:\video.mpg' here vlc.play;

end;

end.