unit Unit1;
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, OleCtrls, AXVLC_TLB;
type
TForm1 =
class(TForm)
VLCPlugin11: TVLCPlugin1;
btnPlay: TButton;
btnStop: TButton;
btnPause: TButton;
procedure FormCreate(Sender: TObject);
procedure btnPlayClick(Sender: TObject);
procedure btnStopClick(Sender: TObject);
procedure btnPauseClick(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
type
VLCPlaylistMode = TOleEnum;
const
VLCPlayListInsert = $00000001;
VLCPlayListReplace = $00000002;
VLCPlayListAppend = $00000004;
VLCPlayListGo = $00000008;
VLCPlayListCheckInsert = $00000010;
var
Form1: TForm1;
implementation
{$R *.DFM}
procedure TForm1.FormCreate(Sender: TObject);
begin
VLCPlugin11.addTarget('
BKDMDL.mpg', null, VLCPlayListInsert, 0);
end;
procedure TForm1.btnPlayClick(Sender: TObject);
begin
VLCPlugin11.play;
end;
procedure TForm1.btnStopClick(Sender: TObject);
begin
VLCPlugin11.stop;
{Problem---Problem---Problem}
end;
procedure TForm1.btnPauseClick(Sender: TObject);
begin
VLCPlugin11.pause;
end;
end.