Difference between revisions of "ActiveX/Delphi"
m (comment out first line, so we can make this live) |
|||
| Line 1: | Line 1: | ||
| − | To be edited a lot... | + | <!-- To be edited a lot... --> |
| − | |||
How to use VLC within your own Delphi Application: | How to use VLC within your own Delphi Application: | ||
Components --> Import ActiveX --> VideoLan Client | Components --> Import ActiveX --> VideoLan Client | ||
Revision as of 03:43, 19 January 2006
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.
