VideoLAN Wiki - User contributions [en]

Talk:ExternalAPI

2009-05-03T18:38:34Z

PaulTOTH: Delphi port

Comments

== Exception ==

A "libvcl_exception * libvlc_exception_create(void)" function should be great.
Actualy, the API let use an opaque exception structure but you need to know the structure size anyway !

== Vout ==

toggle_fullscreen() is useless from an embedder point of view: if I am writing an application, I need to set the movie fullscreen or not. Which makes me think that the same reasoning should apply to audio_mute: we should rather have set_mute/get_mute: the status of mute is of interest for an application developer.

[[Zorglub]] Yes. I was thinking about actually putting both options for simplicity.

[[OlivierAubert]] Both options can be a little redundant, but it does not cost much anyway.

== Playlist ==

[[Zorglub]] I don't really know how to handle playlist retrieval as VLC playlist is not a simple list ...

[[OlivierAubert]] Yes, but it is a needed functionality anyway. We can defined a flattened view of the playlist, which will not exactly map to the playlist but be a reasonable view.

== VLM ==

[[Dionoea]] Something like libvlc_vlm_cmd( libvlc_instance *, char *cmd, libvlc_exception ) could be usefull. This would let the enduser do whatever he wants with vlm easily.

== autogeneration? ==

I have been cutting and pasting out of this page into my code, and a number of the function names and arguments are slightly wrong. I have corrected a few. Is there a way to autogenerate *just* these API calls out of the sources? [[User:Davidlallen|Davidlallen]] 22:57, 20 August 2007 (CEST)

It is possible to have a look to the doxygen [http://www.videolan.org/developers/vlc/doc/doxygen/html/group__libvlc.html autogenerated documentation] to have up-to-date names extracted from the source code. Copy as text the first part (summary docs), paste into a file, then apply a <code>grep -v '^ '</code> on this file and you will have a quite good listing of its API. [[User:Thannoy/stripped_Libvlc_API| Here]] is a fast (not perfect) generation. --[[User:Thannoy|Thannoy]] 11:29, 1 March 2008 (CET)

== Delphi port ==
VLC API as changed a lot seens I've made the Delphi port...but there's no up to date documentation of the new API so I will not update my code...in fact, I've tried with last release (0.9.9) with both this Wiki and doxygen, but libvlc_new() just hang the application after some debug messages.

<pre>
program VLC99;

{$APPTYPE CONSOLE}

uses
Windows;

function getLibPath: string;
var
Handle: HKEY;
RegType: Integer;
DataSize: Integer;
begin
Result := '';
if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, 'Software\VideoLAN\VLC', 0, KEY_ALL_ACCESS, Handle) = ERROR_SUCCESS) then
begin
if RegQueryValueEx(Handle, 'InstallDir', nil, @RegType, nil, @DataSize) = ERROR_SUCCESS then
begin
SetLength(Result, Datasize);
RegQueryValueEx(Handle, 'InstallDir', nil, @RegType, PByte(@Result[1]), @DataSize);
Result[DataSize]:='\';
end;
RegCloseKey(Handle);
end;
end;

type
libvlc_exception = record
raised : Integer;
code : Integer;
Msg : PChar;
end;

var
path : string;
lib : THandle;
core : THandle;
init : function(argc: Integer; args: PPChar; var excpt: libvlc_exception): Pointer; cdecl;
args : array[0..1] of PChar;
plugins : string;
excpt : libvlc_exception;
vlc : Pointer;
begin
path := getLibPath;
// load core dll first
core := LoadLibrary(PChar(path + 'libvlccore.dll'));
if core = 0 then
WriteLn('can''t load libvlccore');
lib := LoadLibrary(PChar(path + 'libvlc.dll'));
if lib = 0 then
WriteLn('can''t load libvlc');
@init := GetProcAddress(lib, 'libvlc_new');
if @init = nil then
WriteLn('can''t find libvlc_new()')
else
begin
FillChar(excpt, SizeOf(excpt), 0);
plugins := '--plugin-path=' + path + 'plugins';
args[0] := PChar(plugins);
args[1] := nil;
vlc := init(1, @args[0], excpt);
WriteLn('never executed !'); // :(
end;
WriteLn('done');
ReadLn;
end.
</pre>
just display this and never return to the calling delphi application :
<pre>
[00000001] main libvlc debug: VLC media player - version 0.9.9 Grishenko - (c) 1
996-2009 the VideoLAN team
[00000001] main libvlc debug: libvlc was configured with ../configure '--host=i
586-mingw32msvc' '--build=i386-linux' '--enable-mkv' '--enable-release' '--witho
ut-contrib' '--enable-nls' '--enable-shared-libvlc' '--enable-update-check' '--e
nable-lua' '--enable-faad' '--enable-flac' '--enable-theora' '--enable-twolame'
'--enable-quicktime' '--enable-real' '--enable-realrtsp' '--enable-ffmpeg' '--wi
th-ffmpeg-mp3lame' '--with-ffmpeg-faac' '--with-ffmpeg-config-path=/usr/win32/bi
n' '--with-ffmpeg-zlib' '--enable-live555' '--with-live555-tree=/usr/win32/live.
com' '--en
[00000001] main libvlc debug: translation test: code is "C"
</pre>

--[[User:PaulTOTH|PaulTOTH]] 20:38, 3 May 2009 (CEST)

Talk:ExternalAPI

2007-05-08T11:16:31Z

PaulTOTH: /* Vout */

Talk:ActiveX/Delphi

2006-12-06T10:49:34Z

PaulTOTH: /* To author: */ ExternalAPI

== Thanks to the article's author ==

I would like to extend my deepest thanks to the author of this article for simplifying the process of integrating VLC into the Delphi mainstream.

I find the tips in this article most helpful, and love the VideoLAN system immensley.

Simon

== To author: ==

Thank you for your time and effort. Would it be too much to ask you to give us guidelines how to stream files using Delphi and ActiveX component?
: ''(unsigned by [[Derran]])''

== VLC and Delphi ==

Delphi can also use the [[ExternalAPI]] like in [http://tothpaul.free.fr/sources.php?dprgrp.vld VideoLAN for Delphi] :D

{ val:TValue }
val.AsInteger := IntToStr(Panel1.Width);
VLCLib.VLC_VariableSet('conf::width',val);
val.AsInteger := inttostr(Panel1.Height);
VLCLib.VLC_VariableSet('conf::height',val);

== Controlling the size and client panel ==

The ActiveX runs like a champ, but it wants to create its own window to display. I need it to show on a panel (or anything else to set size and position) within an application. I was able to set the size by:
val := inttostr(Panel1.Width);
VLCPlugin1.setVariable('conf::width',val);
val := inttostr(Panel1.Height);
VLCPlugin1.setVariable('conf::height',val);

But this results in no display:
val := inttostr(Panel1.Handle);
VLCPlugin1.setVariable('drawable',val);

You can hear the sound when you continue with:
VLCPlugin1.addTarget(OpenDialog.FileName, null, $1, 0);
VLCPlugin1.play;

The 'drawable' variable is evidently not right, but it doesn't kick a compile error.
What is the correct variable? Or is there a whole different way I should be doing this?
Thanks.

ActiveX/Delphi

2006-09-14T09:23:37Z

PaulTOTH: /* Alternative way to bring VLC to your Delphi Application */

{{howto| use the [[ActiveX]] control with Delphi}}

==Getting started==
===What you need===
* Borland Delphi 3 or newer
* a running System with Microsoft Windows
* [http://www.videolan.org/ VideoLan] 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.VLCPlugin.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.

==Alternative way to bring VLC to your Delphi Application==
Much easier way to bring VLC to your Delphi Application is to paste a TWebbrowser Object in your Form, is generate Code for the HTML and m3u file and let the Webbrowser load the HTML-file. For detailed information have a look at [[ActiveX/HTML]].

You can also use the [[ExternalAPI]] like in [[http://tothpaul.free.fr/sources.php?dprgrp.vld VideoLAN for Delphi]].

==See also==
[[ActiveX/HTML]]