اینم لینک کد و سمپل برای استفاده از VLC Media Player در دلفی
http://wiki.videolan.org/ActiveX/Delphi
مشخصات اکتیوایکس
http://wiki.videolan.org/ActiveX
سمپل و کد:
What you need
Borland Delphi 3 or newer
a running System with Microsoft Windows
The VideoLan Client (VLC) including the ActiveX Plugin installed
Import the ActiveX-Component
Start your Borland Delphi
< Delphi2005: Select Components --> Import ActiveX --> VideoLan VLC ActiveX Plugin
>= Delphi 2006: Select Components --> Import component --> Import ActiveX Control --> VideoLan VLC ActiveX Plugin
Otherwise try creating a new package using the created AXVLC_TLB.pas
Confirm successfull installation
You should now be able to add the TVLCPlugin from the ActiveX-Tab of your Component toolbox.
Usage Development-Time
The VLC-Player Object TVLCPlugin 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, Variants, Forms, Classes, Controls, StdCtrls, OleCtrls,
AXVLC_TLB;
type
TForm1 = class(TForm)
VLCPlugin1: TVLCPlugin;
Button1: TButton;
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
VLCPlugin1.addTarget('C:\video.mpg', null, VLCPlayListInsert, 0);
// you can use any MRL with parameters instead of 'c:\video.mpg' here
VLCPlugin1.play;
end;
end.
Usage Runtime
If you're planning to use the VLC-Player in your application but don't know when and where, use this code to create the component on-demand.
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, OleCtrls,
AXVLC_TLB, StdCtrls, Registry, Dialogs;
type
TForm1 = class(TForm)
Button1: TButton;
Button2: TButton;
procedure Button2Click(Sender: TObject);
procedure Button1Click(Sender: TObject);
private
{ Private-Deklarationen }
public
{ Public-Deklarationen }
end;
var
Form1: TForm1;
VLCPlugin1: TVLCPlugin;
blVLCPluginFound: boolean;
type
VLCPlaylistMode = TOleEnum;
const
VLCPlayListInsert = $00000001;
VLCPlayListReplace = $00000002;
VLCPlayListAppend = $00000004;
VLCPlayListGo = $00000008;
VLCPlayListCheckInsert = $00000010;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
Reg: TRegistry;
begin
blVLCPluginFound := false;
// Is VLC ActiveX Plugin installed on this PC?
Reg := TRegistry.Create;
try
Reg.RootKey := HKEY_LOCAL_MACHINE;
if Reg.OpenKeyReadOnly('\Software\Classes\VideoLAN.VL CPlugin.1\') then begin
blVLCPluginFound := true;
end;
finally
FreeAndNil(Reg);
end;
if blVLCPluginFound then begin
VLCPlugin1 := TVLCPlugin.Create(Self);
VLCPlugin1.Parent := Self; // Means: Place the VLC-Player into Form1
VLCPlugin1.Width := 400;
VLCPlugin1.Height := 300;
VLCPlugin1.Top := 50;
VLCPlugin1.Left := 50;
VLCPlugin1.Show;
VLCPlugin1.addTarget('C:\video.mpg', null, VLCPlayListInsert, 0);
// you can use any MRL with parameters instead of 'c:\video.mpg' here
VLCPlugin1.play;
end else begin
ShowMessage('I am really sorry, but VLC (or its ActiveX Plugin) is currently not installed on this PC!');
end;
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
if blVLCPluginFound then begin
VLCPlugin1.stop;
FreeAndNil(VLCPlugin1);
end;
end;
end.
پاسخ با نقل قول
نوشته شده توسط seyed_27
