ActiveX/Delphi: Difference between revisions
Jump to navigation
Jump to search
m →Usage |
|||
| Line 16: | Line 16: | ||
*You should now be able to add the ''TVLCPlugin'' from the ActiveX-Tab of your Component toolbox. | *You should now be able to add the ''TVLCPlugin'' from the ActiveX-Tab of your Component toolbox. | ||
==Usage== | ==Usage Development-Time== | ||
The VLC-Player Object ''TVLCPlugin'' can be found in your ActiveX-Components Tabsheet. | 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: | Place one of it in your Form1, place a TButton and use the following code: | ||
Revision as of 16:56, 20 January 2006
| This page describes how to use the ActiveX control with Delphi. | Other "how to" pages |
Getting started
What you need
- Borland Delphi 3 or newer
- a running System with Microsoft Windows
- http://www.videolan.org/ 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.