Using libvlc with Delphi - Revision history

DoesItReallyMatter: See also: ActiveX/Delphi

2019-03-19T09:06:46Z

2019-03-04T09:46:00Z

markup/remove markup/syntaxhighlight

2013-08-14T14:15:49Z

← Older revision		Revision as of 14:15, 14 August 2013
Line 1:		Line 1:
			{{example code\|for=LibVLC}}
	This is a sample code to play media files using [[libVLC]] with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).		This is a sample code to play media files using [[libVLC]] with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).

Line 226:		Line 227:
	[[Category:LibVLC]]		[[Category:LibVLC]]
	[[Category:Coding]]		[[Category:Coding]]
	~~[[Category:Delphi]]~~

2012-01-27T22:40:59Z

← Older revision		Revision as of 22:40, 27 January 2012
Line 1:		Line 1:
	This is a sample code to play media files using ~~libvlc~~ with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).		This is a sample code to play media files using [[libVLC]] with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).

	== Form design ==		== Form design ==

2012-01-27T22:40:34Z

← Older revision		Revision as of 22:40, 27 January 2012
Line 224:		Line 224:
	</pre>		</pre>

			[[Category:LibVLC]]
	[[Category:Coding]] [[Category:Delphi]]		[[Category:Coding]]
			[[Category:Delphi]]

2012-01-09T06:48:42Z

← Older revision		Revision as of 06:48, 9 January 2012
Line 137:		Line 137:
	=== Create form ===		=== Create form ===

	Load library on form create. If you use a incompartible libvlc version (older or newer than this demo), some functions may not be correct (obsolete or agruments changed). In this case, program will display a list of functions failed to load, and you ~~can correct~~ these according to your libvlc version.		Load library on form create. If you use a incompartible libvlc version (older or newer than this demo), some functions may not be correct (obsolete or agruments changed). In this case, program will display a list of functions failed to load, and you must rewrite these function prototype according to your libvlc version.
	<pre>// -----------------------------------------------------------------------------		<pre>// -----------------------------------------------------------------------------
	procedure TForm1.FormCreate(Sender: TObject);		procedure TForm1.FormCreate(Sender: TObject);
Line 160:		Line 160:

	</pre>		</pre>

	=== Close form ===		=== Close form ===

2012-01-09T06:47:10Z

@@ Line 135: / Line 135: @@
 </pre>
-=== Create form ===
+=== Create form  ===
 Load library on form create. If you use a incompartible libvlc version (older or newer than this demo), some functions may not be correct (obsolete or agruments changed). In this case, program will display a list of functions failed to load, and you can correct these according to your libvlc version.
 <pre>// -----------------------------------------------------------------------------
 procedure TForm1.FormCreate(Sender: TObject);
@@ Line 143: / Line 143: @@
 begin
    // load vlc library
-   vlclib := LoadVLCLibrary(GetVLCLibPath());
+   vlclib&nbsp;:= LoadVLCLibrary(GetVLCLibPath());
    if vlclib = 0 then begin
      Showmessage('Load vlc library failed');
@@ Line 149: / Line 149: @@
    end;
    // sL will contains list of functions fail to load
-   sL := TStringList.Create;
+   sL&nbsp;:= TStringList.Create;
    if not LoadVLCFunctions(vlclib, sL) then begin
-     Showmessage('Some functions failed to load : ' + #13#10 + sL.Text);
+     Showmessage('Some functions failed to load&nbsp;: ' + #13#10 + sL.Text);
      FreeLibrary(vlclib);
      sL.Free;
@@ Line 160: / Line 160: @@
 </pre>
 [[Category:Coding]] [[Category:Delphi]]

2012-01-09T06:43:51Z

@@ Line 87: / Line 87: @@
    end;
 end;
 </pre>
 [[Category:Coding]] [[Category:Delphi]]

2012-01-09T06:36:54Z

Full source code

@@ Line 6: / Line 6: @@
 == Full source code  ==
 <pre>unit Unit1;
 interface
@@ Line 56: / Line 58: @@
    vlcMedia: plibvlc_media_t;
    vlcMediaPlayer: plibvlc_media_player_t;
-// -----------------------------------------------------------------------------
+Normally, the library libvlc.dll is in "C:\Program files\Videolan\VLC\". This function read registry to get the correct VLC installation path, stored in key HKEY_LOCAL_MACHINE\Software\VideoLAN\VLC.
 // Read registry to get VLC installation path
 // -----------------------------------------------------------------------------
@@ Line 82: / Line 87: @@
    end;
 end;
 </pre>
-[[Category:Libvlc]][[Category:Coding]][[Category:Delphi]]
+[[Category:Coding]] [[Category:Delphi]]

2012-01-09T06:21:53Z

← Older revision		Revision as of 06:21, 9 January 2012
Line 193:		Line 193:
	// -----------------------------------------------------------------------------		// -----------------------------------------------------------------------------
	end.		end.
			</pre>
	</pre>		[[Category:Libvlc]][[Category:Coding]][[Category:Delphi]]

← Older revision		Revision as of 09:06, 19 March 2019
Line 1:		Line 1:
			{{See also\|ActiveX/Delphi}}
	{{example code\|for=LibVLC}}		{{example code\|for=LibVLC}}
	This is a sample code to play media files using [[libVLC]] with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).		This is a sample code to play media files using [[libVLC]] with Delphi (test with Delphi XE2 VCL form, VLC 1.1.11).