hello,
wp, if you want to debug lazvlc for your problem :
1 - get the files
vlc.pp and
libvlc.pp from the folder
lazarus_1_6_xxx\fpc\3xxxx\source\packages\libvlc\src and put them in the folder
azarus_1_6_xxxx\components\vlc2 - open the package
lazvlc and add the two files to the files of the package.
3 - compile the package
4 - Open the vlc demo project
5 - Open the file vlc.pp
===========================================
The problem of VLC path is in the file libvlc.pp here :
{$ifdef unix}
libname = 'libvlc.so.5';
{$else}
{$ifdef windows}
DefaultlibPath = 'C:\Program files\Videolan\VLC\';
corelibname = 'libvlccore.dll';
libname = 'libvlc.dll';
{$endif}
{$endif}
not good with windows 64 bits Lazarus 32 bits VLC 32 bits.
And your error message is here in the file
vlc.pp :
function TVLCLibrary.GetInstance: plibvlc_instance_t;
var
args: Array of AnsiString;
cargs : array of PAnsiChar;
argc,
I : integer;
begin
If (FInstance=Nil) then
begin
LibraryArgs.add('--no-video-title-show');
SetLength(cArgs,LibraryArgs.Count+2);
SetLength(Args,LibraryArgs.Count+1);
cargs[0] := PChar(FLibraryPath);
For I:=0 to LibraryArgs.Count-1 do
begin
Args[i]:=LibraryArgs[i];
CArgs[i+1]:=PChar(Args[i]);
end;
argc:=Length(CArgs);
cargs[argc-1] := NIL;
FInstance := libvlc_new(argc-1, PPcchar(cargs));
if (FInstance=Nil) then
Raise EVLC.Create('Could not create instance of libvlc');
end;
Result:=FInstance;
end;
put a breakpoint at the line
Finstance := ... et check the
cargs. May be the problem is before this in the load of the library.
Friendly, J.P
Recent
