Стартовый пул
This commit is contained in:
49
PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.dpr
Normal file
49
PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.dpr
Normal file
@@ -0,0 +1,49 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlc;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.Title := 'PasLibVlcDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
54
PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.dproj
Normal file
54
PasLibVlc/Delphi2007/DemoPasLibVlc/DemoPasLibVlc.dproj
Normal file
@@ -0,0 +1,54 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{8da1e076-0f08-4057-b905-f843d99de2ee}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlc.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlc.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoPasLibVlc</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoPasLibVlc</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoPasLibVlc</VersionInfoKeys><VersionInfoKeys Name="ProductName">DemoPasLibVlc</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlc.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPasLibVlc.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source.vcl\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source.vc\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source.v\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
43
PasLibVlc/Delphi2007/DemoPasLibVlc/MainFormUnit.dfm
Normal file
43
PasLibVlc/Delphi2007/DemoPasLibVlc/MainFormUnit.dfm
Normal file
@@ -0,0 +1,43 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'libvlc demo'
|
||||
ClientHeight = 453
|
||||
ClientWidth = 632
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
Menu = MainMenu
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object OpenDialog: TOpenDialog
|
||||
DefaultExt = '*.*'
|
||||
Title = 'Select file to play'
|
||||
Left = 8
|
||||
Top = 12
|
||||
end
|
||||
object MainMenu: TMainMenu
|
||||
Left = 44
|
||||
Top = 12
|
||||
object MenuFile: TMenuItem
|
||||
Caption = 'File'
|
||||
object MenuFileOpen: TMenuItem
|
||||
Caption = 'Open'
|
||||
ShortCut = 16463
|
||||
OnClick = MenuFileOpenClick
|
||||
end
|
||||
object MenuFileQuit: TMenuItem
|
||||
Caption = 'Quit'
|
||||
ShortCut = 16465
|
||||
OnClick = MenuFileQuitClick
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
186
PasLibVlc/Delphi2007/DemoPasLibVlc/MainFormUnit.pas
Normal file
186
PasLibVlc/Delphi2007/DemoPasLibVlc/MainFormUnit.pas
Normal file
@@ -0,0 +1,186 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}Unix,{$ENDIF}
|
||||
{$IFDEF MSWINDOWS}Windows,{$ENDIF}
|
||||
{$IFDEF LCLGTK2}Gtk2, {$IFDEF UNIX}Gdk2x,{$ENDIF}{$ENDIF}
|
||||
{$IFDEF LCLQT}Qt4, QtWidgets, {$ENDIF}
|
||||
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, Menus,
|
||||
PasLibVlcUnit;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
OpenDialog: TOpenDialog;
|
||||
MainMenu: TMainMenu;
|
||||
MenuFile: TMenuItem;
|
||||
MenuFileOpen: TMenuItem;
|
||||
MenuFileQuit: TMenuItem;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure MenuFileOpenClick(Sender: TObject);
|
||||
procedure MenuFileQuitClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
private
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_mi : libvlc_media_player_t_ptr;
|
||||
procedure PlayerInit();
|
||||
procedure PlayerPlay(fileName: WideString);
|
||||
procedure PlayerStop();
|
||||
procedure PlayerDestroy();
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TMainForm.PlayerInit();
|
||||
begin
|
||||
// libvlc_dynamic_dll_init_with_path('C:\Program Files\VideoLAN\VLC');
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
|
||||
Application.Terminate();
|
||||
exit;
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config',
|
||||
'--quiet',
|
||||
'--no-video-title-show',
|
||||
'--no-video-on-top'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
p_mi := libvlc_media_player_new(p_li);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerPlay(fileName: WideString);
|
||||
var
|
||||
p_md : libvlc_media_t_ptr;
|
||||
begin
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
p_md := libvlc_media_new_path(p_li, PAnsiChar(UTF8Encode(fileName)));
|
||||
if (p_md <> NIL) then
|
||||
begin
|
||||
if (p_mi <> NIL) then
|
||||
begin
|
||||
//libvlc_video_set_key_input(p_mi, 1);
|
||||
//libvlc_video_set_mouse_input(p_mi, 1);
|
||||
libvlc_media_player_set_display_window(p_mi, SELF.Handle);
|
||||
libvlc_media_player_set_media(p_mi, p_md);
|
||||
libvlc_media_player_play(p_mi);
|
||||
end;
|
||||
libvlc_media_release(p_md);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerStop();
|
||||
begin
|
||||
if (p_mi <> NIL) then
|
||||
begin
|
||||
if (libvlc_media_player_is_playing(p_mi) = 1) then
|
||||
begin
|
||||
libvlc_media_player_stop(p_mi);
|
||||
while (libvlc_media_player_is_playing(p_mi) = 1) do
|
||||
begin
|
||||
Sleep(50);
|
||||
end;
|
||||
end;
|
||||
libvlc_media_player_release(p_mi);
|
||||
p_mi := NIL;
|
||||
Sleep(50);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerDestroy();
|
||||
begin
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
PlayerStop();
|
||||
libvlc_release(p_li);
|
||||
p_li := NIL;
|
||||
end;
|
||||
libvlc_dynamic_dll_done();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
PlayerDestroy();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
p_li := NIL;
|
||||
p_mi := NIL;
|
||||
PlayerInit();
|
||||
Caption := Caption + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
if (libvlc_dynamic_dll_error = '') then
|
||||
begin
|
||||
Caption := Caption + ', libvlc: ' + libvlc_dynamic_dll_vlc_version_str;
|
||||
if (ParamStr(1) <> '') then
|
||||
begin
|
||||
PlayerPlay(ParamStr(1));
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.MenuFileOpenClick(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog.Execute(SELF.Handle) then
|
||||
begin
|
||||
PlayerPlay(OpenDialog.FileName);
|
||||
OpenDialog.InitialDir := ExtractFilePath(OpenDialog.FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.MenuFileQuitClick(Sender: TObject);
|
||||
begin
|
||||
Close();
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@@ -0,0 +1,49 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlcMediaListPlayer;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.Title := 'DemoPasLibVlcMediaListPlayer' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,53 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{6620e656-9ddf-49af-83a6-380377f8fd73}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlcMediaListPlayer.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlcMediaListPlayer.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoPasLibVlcMediaListPlayer</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoPasLibVlcMediaListPlayer</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoPasLibVlcMediaListPlayer</VersionInfoKeys><VersionInfoKeys Name="ProductName">DemoPasLibVlcMediaListPlayer</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlcMediaListPlayer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPasLibVlcMediaListPlayer.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source.vc\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source.v\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,215 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'MainForm'
|
||||
ClientHeight = 525
|
||||
ClientWidth = 764
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poDesktopCenter
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object BottomPanel: TPanel
|
||||
Left = 0
|
||||
Top = 472
|
||||
Width = 764
|
||||
Height = 53
|
||||
Align = alBottom
|
||||
TabOrder = 0
|
||||
object PlayBtn: TButton
|
||||
Left = 12
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Play'
|
||||
TabOrder = 0
|
||||
OnClick = PlayBtnClick
|
||||
end
|
||||
object PrevBtn: TButton
|
||||
Left = 140
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Prev'
|
||||
TabOrder = 1
|
||||
OnClick = PrevBtnClick
|
||||
end
|
||||
object NextBtn: TButton
|
||||
Left = 196
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Next'
|
||||
TabOrder = 2
|
||||
OnClick = NextBtnClick
|
||||
end
|
||||
object StopBtn: TButton
|
||||
Left = 260
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Stop'
|
||||
TabOrder = 3
|
||||
OnClick = StopBtnClick
|
||||
end
|
||||
object ClearBtn: TButton
|
||||
Left = 420
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Clear'
|
||||
TabOrder = 4
|
||||
OnClick = ClearBtnClick
|
||||
end
|
||||
object PlayModeNormalBtn: TButton
|
||||
Left = 492
|
||||
Top = 16
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Normal'
|
||||
TabOrder = 5
|
||||
OnClick = PlayModeNormalBtnClick
|
||||
end
|
||||
object PlayModeLoopBtn: TButton
|
||||
Left = 580
|
||||
Top = 16
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'PlayLoop'
|
||||
TabOrder = 6
|
||||
OnClick = PlayModeLoopBtnClick
|
||||
end
|
||||
object PlayModeRepeatBtn: TButton
|
||||
Left = 669
|
||||
Top = 16
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Repeat'
|
||||
TabOrder = 7
|
||||
OnClick = PlayModeRepeatBtnClick
|
||||
end
|
||||
object PauseBtn: TButton
|
||||
Left = 76
|
||||
Top = 16
|
||||
Width = 50
|
||||
Height = 25
|
||||
Caption = 'Pause'
|
||||
TabOrder = 8
|
||||
OnClick = PauseBtnClick
|
||||
end
|
||||
end
|
||||
object RightPanel: TPanel
|
||||
Left = 415
|
||||
Top = 0
|
||||
Width = 349
|
||||
Height = 472
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 1
|
||||
object PlayListBox: TListBox
|
||||
AlignWithMargins = True
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 333
|
||||
Height = 145
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alTop
|
||||
ItemHeight = 13
|
||||
TabOrder = 0
|
||||
OnClick = PlayListBoxClick
|
||||
end
|
||||
object EventsMemo: TMemo
|
||||
AlignWithMargins = True
|
||||
Left = 8
|
||||
Top = 161
|
||||
Width = 333
|
||||
Height = 303
|
||||
Margins.Left = 8
|
||||
Margins.Top = 0
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
Align = alClient
|
||||
BevelInner = bvNone
|
||||
BevelOuter = bvNone
|
||||
BorderStyle = bsNone
|
||||
ScrollBars = ssBoth
|
||||
TabOrder = 1
|
||||
WordWrap = False
|
||||
end
|
||||
end
|
||||
object LeftPanel: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 415
|
||||
Height = 472
|
||||
Align = alClient
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 2
|
||||
object Player: TPasLibVlcPlayer
|
||||
AlignWithMargins = True
|
||||
Left = 8
|
||||
Top = 8
|
||||
Width = 407
|
||||
Height = 396
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 0
|
||||
Margins.Bottom = 8
|
||||
Align = alClient
|
||||
VideoOnTop = True
|
||||
UseOverlay = True
|
||||
SnapShotFmt = 'png'
|
||||
OnMediaPlayerEndReached = PlayerMediaPlayerEndReached
|
||||
OnMediaPlayerTimeChanged = PlayerMediaPlayerTimeChanged
|
||||
OnMediaPlayerPositionChanged = PlayerMediaPlayerPositionChanged
|
||||
OnMediaPlayerLengthChanged = PlayerMediaPlayerLengthChanged
|
||||
end
|
||||
object InfoPanel: TPanel
|
||||
Left = 0
|
||||
Top = 412
|
||||
Width = 415
|
||||
Height = 60
|
||||
Align = alBottom
|
||||
BevelOuter = bvNone
|
||||
ParentBackground = False
|
||||
TabOrder = 1
|
||||
object TimePanel: TPanel
|
||||
Left = 0
|
||||
Top = 0
|
||||
Width = 415
|
||||
Height = 17
|
||||
Align = alTop
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
end
|
||||
object TrackBar: TTrackBar
|
||||
Left = 0
|
||||
Top = 17
|
||||
Width = 415
|
||||
Height = 43
|
||||
Align = alClient
|
||||
Max = 100
|
||||
PageSize = 10
|
||||
Frequency = 5
|
||||
TabOrder = 1
|
||||
OnChange = TrackBarChange
|
||||
end
|
||||
end
|
||||
end
|
||||
object PasLibVlcMediaList1: TPasLibVlcMediaList
|
||||
OnItemAdded = PasLibVlcMediaList1ItemAdded
|
||||
OnItemDeleted = PasLibVlcMediaList1ItemDeleted
|
||||
OnNextItemSet = PasLibVlcMediaList1NextItemSet
|
||||
Left = 428
|
||||
Top = 16
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,240 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}Unix,{$ENDIF}
|
||||
{$IFDEF MSWINDOWS}Windows,{$ENDIF}
|
||||
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, ComCtrls,
|
||||
PasLibVlcUnit, PasLibVlcClassUnit, PasLibVlcPlayerUnit;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
Player: TPasLibVlcPlayer;
|
||||
PasLibVlcMediaList1: TPasLibVlcMediaList;
|
||||
PlayListBox: TListBox;
|
||||
BottomPanel: TPanel;
|
||||
PlayBtn: TButton;
|
||||
PrevBtn: TButton;
|
||||
NextBtn: TButton;
|
||||
StopBtn: TButton;
|
||||
ClearBtn: TButton;
|
||||
PlayModeNormalBtn: TButton;
|
||||
PlayModeLoopBtn: TButton;
|
||||
PlayModeRepeatBtn: TButton;
|
||||
RightPanel: TPanel;
|
||||
EventsMemo: TMemo;
|
||||
LeftPanel: TPanel;
|
||||
InfoPanel: TPanel;
|
||||
TimePanel: TPanel;
|
||||
TrackBar: TTrackBar;
|
||||
PauseBtn: TButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure PlayListBoxClick(Sender: TObject);
|
||||
procedure PasLibVlcMediaList1NextItemSet(Sender: TObject; mrl: WideString;
|
||||
item: Pointer; index: Integer);
|
||||
procedure PasLibVlcMediaList1ItemAdded(Sender: TObject; mrl: WideString;
|
||||
item: Pointer; index: Integer);
|
||||
procedure PasLibVlcMediaList1ItemDeleted(Sender: TObject; mrl: WideString;
|
||||
item: Pointer; index: Integer);
|
||||
procedure PlayBtnClick(Sender: TObject);
|
||||
procedure PrevBtnClick(Sender: TObject);
|
||||
procedure NextBtnClick(Sender: TObject);
|
||||
procedure StopBtnClick(Sender: TObject);
|
||||
procedure ClearBtnClick(Sender: TObject);
|
||||
procedure PlayModeNormalBtnClick(Sender: TObject);
|
||||
procedure PlayModeLoopBtnClick(Sender: TObject);
|
||||
procedure PlayModeRepeatBtnClick(Sender: TObject);
|
||||
procedure PlayerMediaPlayerEndReached(Sender: TObject);
|
||||
procedure PlayerMediaPlayerPositionChanged(Sender: TObject;
|
||||
position: Single);
|
||||
procedure PlayerMediaPlayerLengthChanged(Sender: TObject; time: Int64);
|
||||
procedure PlayerMediaPlayerTimeChanged(Sender: TObject; time: Int64);
|
||||
procedure PauseBtnClick(Sender: TObject);
|
||||
procedure TrackBarChange(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TMainForm.PlayModeLoopBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.SetPlayModeLoop();
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayModeNormalBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.SetPlayModeNormal();
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayModeRepeatBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.SetPlayModeRepeat();
|
||||
end;
|
||||
|
||||
procedure TMainForm.ClearBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Clear();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
// set custom path to libvlc
|
||||
// Player.VLC.Path := 'C:\Program Files\VideoLAN\VLC';
|
||||
// connect Player to MediaList
|
||||
PasLibVlcMediaList1.Player := Player;
|
||||
// not work in wersion 1.1.11
|
||||
PasLibVlcMediaList1.Add('http://www.youtube.com/watch?v=Bh_sV058aLU');
|
||||
PasLibVlcMediaList1.Add('http://www.youtube.com/watch?v=GJbo6ynoxEk');
|
||||
PasLibVlcMediaList1.Add('..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'Maximize.mp4');
|
||||
PasLibVlcMediaList1.Add('..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'test.ts');
|
||||
PasLibVlcMediaList1.Add('http://www.miastomuzyki.pl/odbior/rmf_aacp.pls');
|
||||
PasLibVlcMediaList1.Add('http://www.radio-canada.ca/util/endirect/premiere.asx');
|
||||
PasLibVlcMediaList1.Add('https://youtu.be/FS31XSBUhlM');
|
||||
// PasLibVlcMediaList1.Add('http://79.252.173.254:16453/1:0:1:7034:41B:1:C00000:0:0:0:');
|
||||
Caption := Caption + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayListBoxClick(Sender: TObject);
|
||||
var
|
||||
idx: Integer;
|
||||
item: TObject;
|
||||
begin
|
||||
if (PlayListBox.ItemIndex < 0) then exit;
|
||||
if (PlayListBox.ItemIndex >= PlayListBox.Count) then exit;
|
||||
|
||||
// check for item stil exists in play list
|
||||
item := PlayListBox.Items.Objects[PlayListBox.ItemIndex];
|
||||
idx := PasLibVlcMediaList1.IndexOfItem(item);
|
||||
|
||||
// if exists then play it
|
||||
if (idx > -1) then
|
||||
begin
|
||||
PasLibVlcMediaList1.PlayItem(item);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.NextBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Next();
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcMediaList1ItemAdded(Sender: TObject;
|
||||
mrl: WideString; item: Pointer; index: Integer);
|
||||
begin
|
||||
PlayListBox.Items.AddObject(mrl, item);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcMediaList1ItemDeleted(Sender: TObject;
|
||||
mrl: WideString; item: Pointer; index: Integer);
|
||||
begin
|
||||
PlayListBox.Items.Delete(index);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcMediaList1NextItemSet(Sender: TObject;
|
||||
mrl: WideString; item: Pointer; index: Integer);
|
||||
begin
|
||||
if (index < PlayListBox.Count) then
|
||||
begin
|
||||
PlayListBox.ItemIndex := index;
|
||||
end;
|
||||
|
||||
EventsMemo.Lines.Add('Play ' + mrl);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PauseBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Pause();
|
||||
if (PauseBtn.Caption = 'Pause') then PauseBtn.Caption := 'Resume'
|
||||
else PauseBtn.Caption := 'Pause';
|
||||
TrackBar.OnChange := TrackBarChange;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Play();
|
||||
TrackBar.OnChange := NIL;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerMediaPlayerEndReached(Sender: TObject);
|
||||
begin
|
||||
TrackBar.Position := 0;
|
||||
TimePanel.Caption := '';
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerMediaPlayerLengthChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
begin
|
||||
// TrackBar.Max := MaxInt;
|
||||
TrackBar.Max := time;
|
||||
TimePanel.Caption := time2str(TrackBar.Position) + ' / ' + time2str(TrackBar.Max);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerMediaPlayerPositionChanged(Sender: TObject;
|
||||
position: Single);
|
||||
begin
|
||||
// TrackBar.Position := Round(MaxInt * position);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayerMediaPlayerTimeChanged(Sender: TObject; time: Int64);
|
||||
begin
|
||||
TrackBar.Position := time;
|
||||
TimePanel.Caption := time2str(TrackBar.Position) + ' / ' + time2str(TrackBar.Max);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PrevBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Prev();
|
||||
end;
|
||||
|
||||
procedure TMainForm.StopBtnClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcMediaList1.Stop();
|
||||
end;
|
||||
|
||||
procedure TMainForm.TrackBarChange(Sender: TObject);
|
||||
begin
|
||||
if Player.CanSeek() then
|
||||
begin
|
||||
Player.SetVideoPosInMs(TrackBar.Position);
|
||||
PlayerMediaPlayerTimeChanged(SELF, TrackBar.Position);
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
|
||||
@@ -0,0 +1,53 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlcPlayer;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm},
|
||||
FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm},
|
||||
SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm},
|
||||
SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm},
|
||||
VideoAdjustFormUnit in 'VideoAdjustFormUnit.pas' {VideoAdjustForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.Title := 'PasLibVlcPlayerDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';;
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,66 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0cc0787e-8cd7-4c7f-8614-4fc87cef6130}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlcPlayer.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlcPlayer.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoPasLibVlcPlayer</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoPasLibVlcPlayer</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoPasLibVlcPlayer</VersionInfoKeys><VersionInfoKeys Name="ProductName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlcPlayer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPasLibVlcPlayer.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source.vcl\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source.vc\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source.v\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="FullScreenFormUnit.pas">
|
||||
<Form>FullScreenForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SelectOutputDeviceFormUnit.pas">
|
||||
<Form>SelectOutputDeviceForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SetEqualizerPresetFormUnit.pas">
|
||||
<Form>SetEqualizerPresetForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="VideoAdjustFormUnit.pas">
|
||||
<Form>VideoAdjustForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,23 @@
|
||||
object FullScreenForm: TFullScreenForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Align = alClient
|
||||
BorderIcons = []
|
||||
BorderStyle = bsNone
|
||||
ClientHeight = 436
|
||||
ClientWidth = 639
|
||||
Color = clBlack
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
FormStyle = fsStayOnTop
|
||||
KeyPreview = True
|
||||
OldCreateOrder = False
|
||||
Position = poDesigned
|
||||
OnKeyPress = FormKeyPress
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
||||
@@ -0,0 +1,61 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit FullScreenFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs;
|
||||
|
||||
type
|
||||
TFullScreenForm = class(TForm)
|
||||
procedure FormKeyPress(Sender: TObject; var Key: Char);
|
||||
procedure FormShow(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
FullScreenForm: TFullScreenForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char);
|
||||
begin
|
||||
Close;
|
||||
end;
|
||||
|
||||
procedure TFullScreenForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
Application.ProcessMessages;
|
||||
end;
|
||||
|
||||
end.
|
||||
510
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
510
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
@@ -0,0 +1,510 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'PasLibVlcPlayerDemo'
|
||||
ClientHeight = 548
|
||||
ClientWidth = 519
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 455
|
||||
Constraints.MinWidth = 435
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PopupMenu = PopupMenu
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
OnMouseDown = FormMouseDown
|
||||
OnResize = FormResize
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object MrlLab: TLabel
|
||||
Left = 8
|
||||
Top = 4
|
||||
Width = 60
|
||||
Height = 13
|
||||
Caption = 'MRL to play:'
|
||||
FocusControl = MrlEdit
|
||||
end
|
||||
object PR: TPanel
|
||||
Left = 340
|
||||
Top = 0
|
||||
Width = 179
|
||||
Height = 548
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object PlayBtn: TButton
|
||||
Left = 8
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play'
|
||||
TabOrder = 0
|
||||
OnClick = PlayClick
|
||||
end
|
||||
object PauseBtn: TButton
|
||||
Left = 8
|
||||
Top = 41
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Pause'
|
||||
TabOrder = 1
|
||||
OnClick = PauseClick
|
||||
end
|
||||
object GetWidthBtn: TButton
|
||||
Left = 8
|
||||
Top = 99
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get width'
|
||||
TabOrder = 2
|
||||
OnClick = GetWidthClick
|
||||
end
|
||||
object GetHeightBtn: TButton
|
||||
Left = 8
|
||||
Top = 128
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get height'
|
||||
TabOrder = 3
|
||||
OnClick = GetHeightBtnClick
|
||||
end
|
||||
object GetStateBtn: TButton
|
||||
Left = 8
|
||||
Top = 157
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get state'
|
||||
TabOrder = 4
|
||||
OnClick = GetStateClick
|
||||
end
|
||||
object ResumeBtn: TButton
|
||||
Left = 8
|
||||
Top = 70
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Resume'
|
||||
TabOrder = 5
|
||||
OnClick = ResumeClick
|
||||
end
|
||||
object GetPosLenBtn: TButton
|
||||
Left = 8
|
||||
Top = 184
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get pos, len'
|
||||
TabOrder = 6
|
||||
OnClick = GetPosLenClick
|
||||
end
|
||||
object Scale10Btn: TButton
|
||||
Left = 8
|
||||
Top = 215
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Scale -10%'
|
||||
TabOrder = 7
|
||||
OnClick = Scale10Click
|
||||
end
|
||||
object ScaleFitBtn: TButton
|
||||
Left = 8
|
||||
Top = 244
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'ScaleFit'
|
||||
TabOrder = 8
|
||||
OnClick = ScaleFitClick
|
||||
end
|
||||
object SnapShotBtn: TButton
|
||||
Left = 8
|
||||
Top = 273
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'SnapShot'
|
||||
TabOrder = 9
|
||||
OnClick = SnapShotClick
|
||||
end
|
||||
object NextFrameBtn: TButton
|
||||
Left = 8
|
||||
Top = 304
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Next Frame'
|
||||
TabOrder = 10
|
||||
OnClick = NextFrameClick
|
||||
end
|
||||
object GetASpectRatioBtn: TButton
|
||||
Left = 96
|
||||
Top = 10
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Aspect'
|
||||
TabOrder = 11
|
||||
OnClick = GetASpectRatioClick
|
||||
end
|
||||
object SetAsp11Btn: TButton
|
||||
Left = 96
|
||||
Top = 41
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set asp 1:1'
|
||||
TabOrder = 12
|
||||
OnClick = SetAsp11Click
|
||||
end
|
||||
object SetAsp43Btn: TButton
|
||||
Left = 96
|
||||
Top = 70
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set asp 4:3'
|
||||
TabOrder = 13
|
||||
OnClick = SetAsp43Click
|
||||
end
|
||||
object GetVolume: TButton
|
||||
Left = 96
|
||||
Top = 99
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Volume'
|
||||
TabOrder = 14
|
||||
OnClick = GetVolumeClick
|
||||
end
|
||||
object SetVolumeUp10: TButton
|
||||
Left = 96
|
||||
Top = 128
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Volume +10'
|
||||
TabOrder = 15
|
||||
OnClick = SetVolumeUp10Click
|
||||
end
|
||||
object SetVolumeDo10: TButton
|
||||
Left = 96
|
||||
Top = 157
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Volume -10'
|
||||
TabOrder = 16
|
||||
OnClick = SetVolumeDo10Click
|
||||
end
|
||||
object GetPlayRateBtn: TButton
|
||||
Left = 96
|
||||
Top = 186
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Play Rate'
|
||||
TabOrder = 17
|
||||
OnClick = GetPlayRateBtnClick
|
||||
end
|
||||
object SetPlayRate2xBtn: TButton
|
||||
Left = 96
|
||||
Top = 215
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Rate 2x'
|
||||
TabOrder = 18
|
||||
OnClick = SetPlayRate2xBtnClick
|
||||
end
|
||||
object SetPlayRateHalfBtn: TButton
|
||||
Left = 96
|
||||
Top = 244
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play Rate 1/2'
|
||||
TabOrder = 19
|
||||
OnClick = SetPlayRateHalfBtnClick
|
||||
end
|
||||
object FullScreenYesBtn: TButton
|
||||
Left = 96
|
||||
Top = 273
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'FullScreen'
|
||||
TabOrder = 20
|
||||
OnClick = FullScreenYesBtnClick
|
||||
end
|
||||
object DeInterlaceBtn: TButton
|
||||
Left = 8
|
||||
Top = 335
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'DeInterlace'
|
||||
TabOrder = 21
|
||||
OnClick = DeInterlaceBtnClick
|
||||
end
|
||||
object GetAudioChannel: TButton
|
||||
Left = 96
|
||||
Top = 304
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Get Audio Ch'
|
||||
TabOrder = 22
|
||||
OnClick = GetAudioChannelClick
|
||||
end
|
||||
object SetAudioChannelLeft: TButton
|
||||
Left = 96
|
||||
Top = 335
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C L'
|
||||
TabOrder = 23
|
||||
OnClick = SetAudioChannelLeftClick
|
||||
end
|
||||
object SetAudioChannelRight: TButton
|
||||
Left = 96
|
||||
Top = 366
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C R'
|
||||
TabOrder = 24
|
||||
OnClick = SetAudioChannelRightClick
|
||||
end
|
||||
object SetAudioChannelStereo: TButton
|
||||
Left = 96
|
||||
Top = 397
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Audio C S'
|
||||
TabOrder = 26
|
||||
OnClick = SetAudioChannelStereoClick
|
||||
end
|
||||
object GetAudioOutListBtn: TButton
|
||||
Left = 8
|
||||
Top = 366
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioOutList'
|
||||
TabOrder = 25
|
||||
OnClick = GetAudioOutListBtnClick
|
||||
end
|
||||
object GetAudioOutDevEnumBtn: TButton
|
||||
Left = 8
|
||||
Top = 397
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AOutDevEnum'
|
||||
TabOrder = 27
|
||||
OnClick = GetAudioOutDevEnumBtnClick
|
||||
end
|
||||
object SetEqualizerBtn: TButton
|
||||
Left = 96
|
||||
Top = 428
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Set Equalizer'
|
||||
TabOrder = 28
|
||||
OnClick = SetEqualizerBtnClick
|
||||
end
|
||||
object GetEqPreListBtn: TButton
|
||||
Left = 96
|
||||
Top = 459
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'EqalizerPreList'
|
||||
TabOrder = 29
|
||||
OnClick = GetEqPreListBtnClick
|
||||
end
|
||||
object ChAudioOut: TButton
|
||||
Left = 8
|
||||
Top = 428
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Ch Audio Out'
|
||||
TabOrder = 30
|
||||
OnClick = ChAudioOutClick
|
||||
end
|
||||
object GetAudioTrackListBtn: TButton
|
||||
Left = 8
|
||||
Top = 459
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioTrackList'
|
||||
TabOrder = 31
|
||||
OnClick = GetAudioTrackListBtnClick
|
||||
end
|
||||
object GetAudioFilterListBtn: TButton
|
||||
Left = 8
|
||||
Top = 490
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'AudioFilterList'
|
||||
TabOrder = 32
|
||||
OnClick = GetAudioFilterListBtnClick
|
||||
end
|
||||
object GetVideoFilterListBtn: TButton
|
||||
Left = 96
|
||||
Top = 490
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'VideoFilterList'
|
||||
TabOrder = 33
|
||||
OnClick = GetVideoFilterListBtnClick
|
||||
end
|
||||
object VideoAdjustBtn: TButton
|
||||
Left = 8
|
||||
Top = 521
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Video Adjust'
|
||||
TabOrder = 34
|
||||
OnClick = VideoAdjustBtnClick
|
||||
end
|
||||
end
|
||||
object LB: TListBox
|
||||
AlignWithMargins = True
|
||||
Left = 9
|
||||
Top = 309
|
||||
Width = 320
|
||||
Height = 176
|
||||
Margins.Left = 8
|
||||
Margins.Top = 8
|
||||
Margins.Right = 8
|
||||
Margins.Bottom = 8
|
||||
ItemHeight = 13
|
||||
PopupMenu = LbPopupMenu
|
||||
TabOrder = 1
|
||||
end
|
||||
object MrlEdit: TEdit
|
||||
Left = 8
|
||||
Top = 20
|
||||
Width = 320
|
||||
Height = 21
|
||||
TabOrder = 2
|
||||
Text = '..\..\_testFiles\Maximize.mp4'
|
||||
end
|
||||
object PasLibVlcPlayer1: TPasLibVlcPlayer
|
||||
Left = 8
|
||||
Top = 45
|
||||
Height = 202
|
||||
OnClick = PasLibVlcPlayer1Click
|
||||
OnDblClick = PasLibVlcPlayer1DblClick
|
||||
OnMouseDown = PasLibVlcPlayer1MouseDown
|
||||
OnMouseEnter = PasLibVlcPlayer1MouseEnter
|
||||
OnMouseLeave = PasLibVlcPlayer1MouseLeave
|
||||
OnMouseMove = PasLibVlcPlayer1MouseMove
|
||||
OnMouseUp = PasLibVlcPlayer1MouseUp
|
||||
AudioOutput = aoWaveOut
|
||||
SnapShotFmt = 'png'
|
||||
OnMediaPlayerMediaChanged = PasLibVlcPlayer1MediaPlayerMediaChanged
|
||||
OnMediaPlayerNothingSpecial = PasLibVlcPlayer1MediaPlayerNothingSpecial
|
||||
OnMediaPlayerOpening = PasLibVlcPlayer1MediaPlayerOpening
|
||||
OnMediaPlayerBuffering = PasLibVlcPlayer1MediaPlayerBuffering
|
||||
OnMediaPlayerPlaying = PasLibVlcPlayer1MediaPlayerPlaying
|
||||
OnMediaPlayerPaused = PasLibVlcPlayer1MediaPlayerPaused
|
||||
OnMediaPlayerStopped = PasLibVlcPlayer1MediaPlayerStopped
|
||||
OnMediaPlayerForward = PasLibVlcPlayer1MediaPlayerForward
|
||||
OnMediaPlayerBackward = PasLibVlcPlayer1MediaPlayerBackward
|
||||
OnMediaPlayerEndReached = PasLibVlcPlayer1MediaPlayerEndReached
|
||||
OnMediaPlayerEncounteredError = PasLibVlcPlayer1MediaPlayerEncounteredError
|
||||
OnMediaPlayerTimeChanged = PasLibVlcPlayer1MediaPlayerTimeChanged
|
||||
OnMediaPlayerPositionChanged = PasLibVlcPlayer1MediaPlayerPositionChanged
|
||||
OnMediaPlayerSeekableChanged = PasLibVlcPlayer1MediaPlayerSeekableChanged
|
||||
OnMediaPlayerPausableChanged = PasLibVlcPlayer1MediaPlayerPausableChanged
|
||||
OnMediaPlayerTitleChanged = PasLibVlcPlayer1MediaPlayerTitleChanged
|
||||
OnMediaPlayerSnapshotTaken = PasLibVlcPlayer1MediaPlayerSnapshotTaken
|
||||
OnMediaPlayerLengthChanged = PasLibVlcPlayer1MediaPlayerLengthChanged
|
||||
OnMediaPlayerVideoOutChanged = PasLibVlcPlayer1MediaPlayerVideoOutChanged
|
||||
OnMediaPlayerScrambledChanged = PasLibVlcPlayer1MediaPlayerScrambledChanged
|
||||
OnMediaPlayerCorked = PasLibVlcPlayer1MediaPlayerCorked
|
||||
OnMediaPlayerUnCorked = PasLibVlcPlayer1MediaPlayerUnCorked
|
||||
OnMediaPlayerMuted = PasLibVlcPlayer1MediaPlayerMuted
|
||||
OnMediaPlayerUnMuted = PasLibVlcPlayer1MediaPlayerUnMuted
|
||||
OnMediaPlayerAudioVolumeChanged = PasLibVlcPlayer1MediaPlayerAudioVolumeChanged
|
||||
OnMediaPlayerEsAdded = PasLibVlcPlayer1MediaPlayerEsAdded
|
||||
OnMediaPlayerEsDeleted = PasLibVlcPlayer1MediaPlayerEsDeleted
|
||||
OnMediaPlayerEsSelected = PasLibVlcPlayer1MediaPlayerEsSelected
|
||||
OnMediaPlayerAudioDevice = PasLibVlcPlayer1MediaPlayerAudioDevice
|
||||
OnMediaPlayerChapterChanged = PasLibVlcPlayer1MediaPlayerChapterChanged
|
||||
OnRendererDiscoveredItemAdded = PasLibVlcPlayer1RendererDiscoveredItemAdded
|
||||
OnRendererDiscoveredItemDeleted = PasLibVlcPlayer1RendererDiscoveredItemDeleted
|
||||
end
|
||||
object ProgPanel: TPanel
|
||||
Left = 8
|
||||
Top = 252
|
||||
Width = 320
|
||||
Height = 46
|
||||
TabOrder = 4
|
||||
object ProgLabel1: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 4
|
||||
Top = 28
|
||||
Width = 44
|
||||
Height = 13
|
||||
Align = alLeft
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgLabel2: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 272
|
||||
Top = 28
|
||||
Width = 44
|
||||
Height = 13
|
||||
Align = alRight
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgBar: TTrackBar
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 318
|
||||
Height = 24
|
||||
Align = alTop
|
||||
PositionToolTip = ptBottom
|
||||
TabOrder = 0
|
||||
ThumbLength = 15
|
||||
TickStyle = tsNone
|
||||
OnChange = ProgBarChange
|
||||
end
|
||||
end
|
||||
object BtnSelect: TButton
|
||||
Left = 280
|
||||
Top = 21
|
||||
Width = 46
|
||||
Height = 19
|
||||
Caption = 'Select'
|
||||
TabOrder = 5
|
||||
OnClick = BtnSelectClick
|
||||
end
|
||||
object PopupMenu: TPopupMenu
|
||||
Left = 16
|
||||
Top = 56
|
||||
object a1: TMenuItem
|
||||
Caption = 'a'
|
||||
end
|
||||
object b1: TMenuItem
|
||||
Caption = 'b'
|
||||
end
|
||||
object c1: TMenuItem
|
||||
Caption = 'c'
|
||||
end
|
||||
object d1: TMenuItem
|
||||
Caption = 'd'
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
Options = [ofPathMustExist, ofFileMustExist, ofEnableSizing]
|
||||
Left = 288
|
||||
Top = 56
|
||||
end
|
||||
object SaveDialog: TSaveDialog
|
||||
DefaultExt = '*.txt'
|
||||
FileName = 'PasLibVlcDemo.txt'
|
||||
Left = 20
|
||||
Top = 316
|
||||
end
|
||||
object LbPopupMenu: TPopupMenu
|
||||
Left = 56
|
||||
Top = 316
|
||||
object LbPmClear: TMenuItem
|
||||
Caption = 'Clear'
|
||||
OnClick = LbPmClearClick
|
||||
end
|
||||
object LnPmSaveAs: TMenuItem
|
||||
Caption = 'Save as'
|
||||
OnClick = LnPmSaveAsClick
|
||||
end
|
||||
end
|
||||
end
|
||||
1034
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
1034
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
File diff suppressed because it is too large
Load Diff
@@ -0,0 +1,56 @@
|
||||
object SelectOutputDeviceForm: TSelectOutputDeviceForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Select output device'
|
||||
ClientHeight = 242
|
||||
ClientWidth = 395
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object OutputDevicesLabel: TLabel
|
||||
Left = 12
|
||||
Top = 8
|
||||
Width = 77
|
||||
Height = 13
|
||||
Caption = 'Output devices:'
|
||||
FocusControl = OutputDevicesLB
|
||||
end
|
||||
object OutputDevicesLB: TListBox
|
||||
Left = 12
|
||||
Top = 27
|
||||
Width = 285
|
||||
Height = 198
|
||||
Style = lbOwnerDrawFixed
|
||||
ItemHeight = 16
|
||||
TabOrder = 0
|
||||
OnDblClick = OutputDevicesLBDblClick
|
||||
OnDrawItem = OutputDevicesLBDrawItem
|
||||
end
|
||||
object OkBtn: TButton
|
||||
Left = 310
|
||||
Top = 28
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
TabOrder = 1
|
||||
OnClick = OkBtnClick
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 310
|
||||
Top = 59
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,90 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit SelectOutputDeviceFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls;
|
||||
|
||||
type
|
||||
TSelectOutputDeviceForm = class(TForm)
|
||||
OutputDevicesLB: TListBox;
|
||||
OkBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
OutputDevicesLabel: TLabel;
|
||||
procedure OkBtnClick(Sender: TObject);
|
||||
procedure OutputDevicesLBDblClick(Sender: TObject);
|
||||
procedure OutputDevicesLBDrawItem(Control: TWinControl; Index: Integer;
|
||||
Rect: TRect; State: TOwnerDrawState);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
SelectOutputDeviceForm: TSelectOutputDeviceForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TSelectOutputDeviceForm.OkBtnClick(Sender: TObject);
|
||||
begin
|
||||
if (OutputDevicesLB.ItemIndex < 0) then
|
||||
begin
|
||||
ModalResult := mrCancel;
|
||||
end
|
||||
else
|
||||
begin
|
||||
ModalResult := mrOK;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSelectOutputDeviceForm.OutputDevicesLBDblClick(Sender: TObject);
|
||||
begin
|
||||
if (OutputDevicesLB.ItemIndex > -1) then
|
||||
begin
|
||||
ModalResult := mrOK;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TSelectOutputDeviceForm.OutputDevicesLBDrawItem(Control: TWinControl;
|
||||
Index: Integer; Rect: TRect; State: TOwnerDrawState);
|
||||
var
|
||||
str : string;
|
||||
begin
|
||||
with (Control as TListBox).Canvas do
|
||||
begin
|
||||
FillRect(Rect);
|
||||
str := (Control as TListBox).Items[Index];
|
||||
TextOut(Rect.Left + 2, Rect.Top + 1, Copy(str, Pos('|', str) + 1, MaxInt));
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,71 @@
|
||||
object SetEqualizerPresetForm: TSetEqualizerPresetForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Set Equalizer Preset'
|
||||
ClientHeight = 295
|
||||
ClientWidth = 470
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object PresetListLabel: TLabel
|
||||
Left = 16
|
||||
Top = 13
|
||||
Width = 40
|
||||
Height = 13
|
||||
Caption = 'Presets:'
|
||||
FocusControl = PresetListLB
|
||||
end
|
||||
object BandInfoLabel: TLabel
|
||||
Left = 140
|
||||
Top = 13
|
||||
Width = 83
|
||||
Height = 13
|
||||
Caption = 'Preset band info:'
|
||||
FocusControl = BandInfoLB
|
||||
end
|
||||
object PresetListLB: TListBox
|
||||
Left = 16
|
||||
Top = 32
|
||||
Width = 105
|
||||
Height = 245
|
||||
ItemHeight = 13
|
||||
TabOrder = 0
|
||||
OnClick = PresetListLBClick
|
||||
end
|
||||
object OkBtn: TButton
|
||||
Left = 380
|
||||
Top = 13
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'OK'
|
||||
Default = True
|
||||
ModalResult = 1
|
||||
TabOrder = 1
|
||||
end
|
||||
object CancelBtn: TButton
|
||||
Left = 380
|
||||
Top = 44
|
||||
Width = 75
|
||||
Height = 25
|
||||
Cancel = True
|
||||
Caption = 'Cancel'
|
||||
ModalResult = 2
|
||||
TabOrder = 2
|
||||
end
|
||||
object BandInfoLB: TListBox
|
||||
Left = 140
|
||||
Top = 32
|
||||
Width = 221
|
||||
Height = 245
|
||||
ItemHeight = 13
|
||||
TabOrder = 3
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,85 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit SetEqualizerPresetFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, PasLibVlcClassUnit;
|
||||
|
||||
type
|
||||
TSetEqualizerPresetForm = class(TForm)
|
||||
PresetListLB: TListBox;
|
||||
OkBtn: TButton;
|
||||
CancelBtn: TButton;
|
||||
PresetListLabel: TLabel;
|
||||
BandInfoLB: TListBox;
|
||||
BandInfoLabel: TLabel;
|
||||
procedure PresetListLBClick(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
FVLC : TPasLibVlc;
|
||||
end;
|
||||
|
||||
var
|
||||
SetEqualizerPresetForm: TSetEqualizerPresetForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TSetEqualizerPresetForm.PresetListLBClick(Sender: TObject);
|
||||
var
|
||||
equalizer : TPasLibVlcEqualizer;
|
||||
index : Integer;
|
||||
begin
|
||||
BandInfoLB.Clear;
|
||||
if (PresetListLB.ItemIndex > -1) then
|
||||
begin
|
||||
equalizer := TPasLibVlcEqualizer.Create(
|
||||
FVLC,
|
||||
Word(PresetListLB.Items.Objects[PresetListLB.ItemIndex])
|
||||
);
|
||||
BandInfoLB.AddItem(
|
||||
'PreAmp: ' + IntToStr(Round(equalizer.GetPreAmp())),
|
||||
NIL
|
||||
);
|
||||
for index := 0 to equalizer.GetBandCount() - 1 do
|
||||
begin
|
||||
BandInfoLB.AddItem(
|
||||
'Band no: ' + IntToStr(index+1) +
|
||||
', freq.: ' + IntToStr(Round(equalizer.GetBandFrequency(index))) +
|
||||
'Hz, amp.:' + IntToStr(Round(equalizer.GetAmp(index))),
|
||||
NIL
|
||||
);
|
||||
end;
|
||||
equalizer.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
127
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/VideoAdjustFormUnit.dfm
Normal file
127
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/VideoAdjustFormUnit.dfm
Normal file
@@ -0,0 +1,127 @@
|
||||
object VideoAdjustForm: TVideoAdjustForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
BorderStyle = bsDialog
|
||||
Caption = 'Video Adjust'
|
||||
ClientHeight = 509
|
||||
ClientWidth = 337
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poMainFormCenter
|
||||
OnShow = FormShow
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object labVideoAdjustContrast: TLabel
|
||||
Left = 20
|
||||
Top = 52
|
||||
Width = 76
|
||||
Height = 13
|
||||
Caption = 'Adjust Contrast'
|
||||
FocusControl = tbVideoAdjustContrast
|
||||
end
|
||||
object labVideoAdjustBrightness: TLabel
|
||||
Left = 20
|
||||
Top = 140
|
||||
Width = 84
|
||||
Height = 13
|
||||
Caption = 'Adjust Brightness'
|
||||
FocusControl = tbVideoAdjustBrightness
|
||||
end
|
||||
object labVideoAdjustHue: TLabel
|
||||
Left = 20
|
||||
Top = 228
|
||||
Width = 53
|
||||
Height = 13
|
||||
Caption = 'Adjust Hue'
|
||||
FocusControl = tbVideoAdjustHue
|
||||
end
|
||||
object labVideoAdjustSaturation: TLabel
|
||||
Left = 20
|
||||
Top = 316
|
||||
Width = 84
|
||||
Height = 13
|
||||
Caption = 'Adjust Saturation'
|
||||
FocusControl = tbVideoAdjustSaturation
|
||||
end
|
||||
object labVideoAdjustGamma: TLabel
|
||||
Left = 20
|
||||
Top = 408
|
||||
Width = 66
|
||||
Height = 13
|
||||
Caption = 'AdjustGamma'
|
||||
FocusControl = tbVideoAdjustGamma
|
||||
end
|
||||
object chkVideoAdjustEnable: TCheckBox
|
||||
Left = 20
|
||||
Top = 16
|
||||
Width = 113
|
||||
Height = 17
|
||||
Caption = 'Video Adjust Enable'
|
||||
TabOrder = 0
|
||||
OnClick = chkVideoAdjustEnableClick
|
||||
end
|
||||
object tbVideoAdjustContrast: TTrackBar
|
||||
Left = 20
|
||||
Top = 76
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 200
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 1
|
||||
OnChange = tbVideoAdjustContrastChange
|
||||
end
|
||||
object tbVideoAdjustBrightness: TTrackBar
|
||||
Left = 20
|
||||
Top = 164
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 200
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 2
|
||||
OnChange = tbVideoAdjustBrightnessChange
|
||||
end
|
||||
object tbVideoAdjustHue: TTrackBar
|
||||
Left = 20
|
||||
Top = 252
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 360
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
TabOrder = 3
|
||||
OnChange = tbVideoAdjustHueChange
|
||||
end
|
||||
object tbVideoAdjustSaturation: TTrackBar
|
||||
Left = 20
|
||||
Top = 340
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 300
|
||||
PageSize = 0
|
||||
Frequency = 10
|
||||
Position = 100
|
||||
TabOrder = 4
|
||||
OnChange = tbVideoAdjustSaturationChange
|
||||
end
|
||||
object tbVideoAdjustGamma: TTrackBar
|
||||
Left = 20
|
||||
Top = 432
|
||||
Width = 293
|
||||
Height = 45
|
||||
Max = 1000
|
||||
PageSize = 0
|
||||
Frequency = 50
|
||||
Position = 100
|
||||
TabOrder = 5
|
||||
OnChange = tbVideoAdjustGammaChange
|
||||
end
|
||||
end
|
||||
160
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas
Normal file
160
PasLibVlc/Delphi2007/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas
Normal file
@@ -0,0 +1,160 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit VideoAdjustFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ComCtrls;
|
||||
|
||||
type
|
||||
TVideoAdjustForm = class(TForm)
|
||||
chkVideoAdjustEnable: TCheckBox;
|
||||
tbVideoAdjustContrast: TTrackBar;
|
||||
labVideoAdjustContrast: TLabel;
|
||||
tbVideoAdjustBrightness: TTrackBar;
|
||||
labVideoAdjustBrightness: TLabel;
|
||||
tbVideoAdjustHue: TTrackBar;
|
||||
labVideoAdjustHue: TLabel;
|
||||
tbVideoAdjustSaturation: TTrackBar;
|
||||
labVideoAdjustSaturation: TLabel;
|
||||
tbVideoAdjustGamma: TTrackBar;
|
||||
labVideoAdjustGamma: TLabel;
|
||||
procedure chkVideoAdjustEnableClick(Sender: TObject);
|
||||
procedure FormShow(Sender: TObject);
|
||||
procedure tbVideoAdjustContrastChange(Sender: TObject);
|
||||
procedure tbVideoAdjustBrightnessChange(Sender: TObject);
|
||||
procedure tbVideoAdjustHueChange(Sender: TObject);
|
||||
procedure tbVideoAdjustSaturationChange(Sender: TObject);
|
||||
procedure tbVideoAdjustGammaChange(Sender: TObject);
|
||||
private
|
||||
FHandleChanges : Boolean;
|
||||
public
|
||||
|
||||
end;
|
||||
|
||||
var
|
||||
VideoAdjustForm: TVideoAdjustForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
MainFormUnit;
|
||||
|
||||
procedure TVideoAdjustForm.chkVideoAdjustEnableClick(Sender: TObject);
|
||||
begin
|
||||
MainForm.PasLibVlcPlayer1.SetVideoAdjustEnable(chkVideoAdjustEnable.Checked);
|
||||
|
||||
tbVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
|
||||
tbVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
|
||||
labVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.FormShow(Sender: TObject);
|
||||
begin
|
||||
FHandleChanges := FALSE;
|
||||
|
||||
// chkVideoAdjustEnable.Checked := MainForm.PasLibVlcPlayer1.GetVideoAdjustEnable();
|
||||
chkVideoAdjustEnableClick(SELF);
|
||||
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
tbVideoAdjustContrast.Position := Round(100 * GetVideoAdjustContrast());
|
||||
tbVideoAdjustBrightness.Position := Round(100 * GetVideoAdjustBrightness());
|
||||
tbVideoAdjustHue.Position := Round(GetVideoAdjustHue());
|
||||
tbVideoAdjustSaturation.Position := Round(100 * GetVideoAdjustSaturation());
|
||||
tbVideoAdjustGamma.Position := Round(100 * GetVideoAdjustGamma());
|
||||
end;
|
||||
|
||||
FHandleChanges := TRUE;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustBrightnessChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustBrightness(tbVideoAdjustBrightness.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustContrastChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustContrast(tbVideoAdjustContrast.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustGammaChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustGamma(tbVideoAdjustGamma.Position / 100);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustHueChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustHue(tbVideoAdjustHue.Position);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TVideoAdjustForm.tbVideoAdjustSaturationChange(Sender: TObject);
|
||||
begin
|
||||
if FHandleChanges then
|
||||
begin
|
||||
with MainForm.PasLibVlcPlayer1 do
|
||||
begin
|
||||
SetVideoAdjustSaturation(tbVideoAdjustSaturation.Position);
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,42 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
program DemoPasLibVlcPlayerPauseAtStart;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm},
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source\PasLibVlcPlayerUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas';
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,82 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{cb35b21c-f0a4-455d-9f7a-e3399520f553}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlcPlayerPauseAtStart.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlcPlayerPauseAtStart.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">False</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1045</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1250</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">DemoPasLibVlcPlayerPauseAtStart.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPasLibVlcPlayerPauseAtStart.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,40 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'DemoPasLivVlcPlayerPauseAtStart'
|
||||
ClientHeight = 339
|
||||
ClientWidth = 414
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
OnCreate = FormCreate
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
object mrlEdit: TEdit
|
||||
Left = 12
|
||||
Top = 12
|
||||
Width = 391
|
||||
Height = 21
|
||||
TabOrder = 0
|
||||
end
|
||||
object player: TPasLibVlcPlayer
|
||||
Left = 12
|
||||
Top = 44
|
||||
Width = 391
|
||||
SnapShotFmt = 'png'
|
||||
OnMediaPlayerTimeChanged = playerMediaPlayerTimeChanged
|
||||
end
|
||||
object playButton: TButton
|
||||
Left = 164
|
||||
Top = 300
|
||||
Width = 75
|
||||
Height = 25
|
||||
Caption = 'Play'
|
||||
TabOrder = 2
|
||||
OnClick = playButtonClick
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,80 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}Unix,{$ENDIF}
|
||||
{$IFDEF MSWINDOWS}Windows,{$ENDIF}
|
||||
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, StdCtrls, ExtCtrls, PasLibVlcPlayerUnit;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
mrlEdit: TEdit;
|
||||
player: TPasLibVlcPlayer;
|
||||
playButton: TButton;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure playerMediaPlayerTimeChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
procedure playButtonClick(Sender: TObject);
|
||||
private
|
||||
needStop : Boolean;
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
needStop := TRUE;
|
||||
mrlEdit.Text := '..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'test.ts';
|
||||
player.Play(mrlEdit.Text);
|
||||
end;
|
||||
|
||||
procedure TMainForm.playButtonClick(Sender: TObject);
|
||||
begin
|
||||
player.Resume();
|
||||
end;
|
||||
|
||||
procedure TMainForm.playerMediaPlayerTimeChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
begin
|
||||
if (needStop) and (time > 100) then
|
||||
begin
|
||||
needStop := FALSE;
|
||||
player.Pause();
|
||||
end;
|
||||
end;
|
||||
|
||||
end.
|
||||
49
PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.dpr
Normal file
49
PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.dpr
Normal file
@@ -0,0 +1,49 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPlayViaPipe;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
Application.Initialize;
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
Application.MainFormOnTaskbar := True;
|
||||
{$ENDIF}
|
||||
Application.Title := 'PasLibVlcDemo';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
79
PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.dproj
Normal file
79
PasLibVlc/Delphi2007/DemoPlayViaPipe/DemoPlayViaPipe.dproj
Normal file
@@ -0,0 +1,79 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{a6a45d80-2711-48be-a5c7-f881477954ff}</ProjectGuid>
|
||||
<MainSource>DemoPlayViaPipe.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPlayViaPipe.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""> <Delphi.Personality> <Parameters>
|
||||
<Parameters Name="UseLauncher">False</Parameters>
|
||||
<Parameters Name="LoadAllSymbols">True</Parameters>
|
||||
<Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
|
||||
</Parameters>
|
||||
<VersionInfo>
|
||||
<VersionInfo Name="IncludeVerInfo">True</VersionInfo>
|
||||
<VersionInfo Name="AutoIncBuild">False</VersionInfo>
|
||||
<VersionInfo Name="MajorVer">1</VersionInfo>
|
||||
<VersionInfo Name="MinorVer">0</VersionInfo>
|
||||
<VersionInfo Name="Release">0</VersionInfo>
|
||||
<VersionInfo Name="Build">0</VersionInfo>
|
||||
<VersionInfo Name="Debug">False</VersionInfo>
|
||||
<VersionInfo Name="PreRelease">False</VersionInfo>
|
||||
<VersionInfo Name="Special">False</VersionInfo>
|
||||
<VersionInfo Name="Private">False</VersionInfo>
|
||||
<VersionInfo Name="DLL">False</VersionInfo>
|
||||
<VersionInfo Name="Locale">1045</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1250</VersionInfo>
|
||||
</VersionInfo>
|
||||
<VersionInfoKeys>
|
||||
<VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductName"></VersionInfoKeys>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"></VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">DemoPlayViaPipe.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality> </BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoPlayViaPipe.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source.vcl\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
</ItemGroup>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
</Project>
|
||||
20
PasLibVlc/Delphi2007/DemoPlayViaPipe/MainFormUnit.dfm
Normal file
20
PasLibVlc/Delphi2007/DemoPlayViaPipe/MainFormUnit.dfm
Normal file
@@ -0,0 +1,20 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'DemoPlayFromStream'
|
||||
ClientHeight = 310
|
||||
ClientWidth = 474
|
||||
Color = clBtnFace
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -11
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
Position = poScreenCenter
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
PixelsPerInch = 96
|
||||
TextHeight = 13
|
||||
end
|
||||
313
PasLibVlc/Delphi2007/DemoPlayViaPipe/MainFormUnit.pas
Normal file
313
PasLibVlc/Delphi2007/DemoPlayViaPipe/MainFormUnit.pas
Normal file
@@ -0,0 +1,313 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, PasLibVlcUnit;
|
||||
|
||||
const
|
||||
PIPE_BUFF_SIZE = 1024;
|
||||
|
||||
type
|
||||
TPipeServer = class(TThread)
|
||||
private
|
||||
FOverlapped : Boolean;
|
||||
FStream : TStream;
|
||||
FPipeName : string;
|
||||
hEvent : THandle;
|
||||
hPipe : THandle;
|
||||
oOverlap : TOverlapped;
|
||||
fPendingIO : BOOL;
|
||||
dwState : DWORD;
|
||||
cbToWrite : DWORD;
|
||||
cbWritten : DWORD;
|
||||
fSuccess : BOOL;
|
||||
dwWait : DWORD;
|
||||
chBuff : packed array[0..PIPE_BUFF_SIZE-1] of byte;
|
||||
procedure Execute_non_overlapped();
|
||||
procedure Execute_overlapped();
|
||||
protected
|
||||
procedure Execute(); override;
|
||||
public
|
||||
constructor Create(AStream : TStream; pipeName : string; AOverlapped : Boolean = TRUE);
|
||||
destructor Destroy; override;
|
||||
end;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
procedure FormDestroy(Sender: TObject);
|
||||
procedure FormActivate(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
private
|
||||
pname : string;
|
||||
stream : TFileStream;
|
||||
server : TPipeServer;
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_mi : libvlc_media_player_t_ptr;
|
||||
public
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
constructor TPipeServer.Create(AStream : TStream; pipeName : string; AOverlapped : Boolean = TRUE);
|
||||
var
|
||||
dwPipeMode : DWORD;
|
||||
begin
|
||||
inherited Create(TRUE);
|
||||
FStream := AStream;
|
||||
FPipeName := pipeName;
|
||||
|
||||
FOverlapped := AOverlapped;
|
||||
|
||||
dwPipeMode := PIPE_ACCESS_OUTBOUND;
|
||||
|
||||
if FOverlapped then
|
||||
begin
|
||||
FillChar(oOverlap, sizeof(oOverlap), 0);
|
||||
hEvent := CreateEvent(NIL, TRUE, TRUE, NIL);
|
||||
oOverlap.hEvent := hEvent;
|
||||
dwPipeMode := dwPipeMode or FILE_FLAG_OVERLAPPED;
|
||||
end;
|
||||
|
||||
hPipe := CreateNamedPipe(
|
||||
PChar(FPipeName),
|
||||
dwPipeMode,
|
||||
PIPE_TYPE_MESSAGE or
|
||||
PIPE_WAIT,
|
||||
1,
|
||||
PIPE_BUFF_SIZE,
|
||||
PIPE_BUFF_SIZE,
|
||||
50,
|
||||
NIL);
|
||||
end;
|
||||
|
||||
destructor TPipeServer.Destroy;
|
||||
begin
|
||||
CloseHandle(hPipe);
|
||||
if (FOverlapped) then
|
||||
begin
|
||||
CloseHandle(hEvent);
|
||||
end;
|
||||
|
||||
inherited Destroy;
|
||||
end;
|
||||
|
||||
procedure TPipeServer.Execute_non_overlapped;
|
||||
var
|
||||
bConn : Bool;
|
||||
begin
|
||||
bConn := FALSE;
|
||||
|
||||
while not Terminated do
|
||||
begin
|
||||
bConn := ConnectNamedPipe(hPipe, NIL);
|
||||
if bConn then break;
|
||||
if (GetLastError() = ERROR_PIPE_CONNECTED) then
|
||||
begin
|
||||
bConn := TRUE;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
|
||||
if bConn then
|
||||
begin
|
||||
while not Terminated do
|
||||
begin
|
||||
cbToWrite := FStream.Read(chBuff, PIPE_BUFF_SIZE);
|
||||
if (cbToWrite < 1) then break;
|
||||
fSuccess := WriteFile(
|
||||
hPipe,
|
||||
chBuff,
|
||||
cbToWrite,
|
||||
cbWritten,
|
||||
NIL);
|
||||
if (not fSuccess) then break;
|
||||
if (cbToWrite <> cbWritten) then break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPipeServer.Execute_overlapped;
|
||||
begin
|
||||
if (ConnectNamedPipe(hPipe, @oOverlap)) then exit;
|
||||
|
||||
cbToWrite := 0;
|
||||
fPendingIO := FALSE;
|
||||
|
||||
case GetLastError() of
|
||||
ERROR_IO_PENDING : fPendingIO := TRUE;
|
||||
ERROR_PIPE_CONNECTED : if (not SetEvent(oOverlap.hEvent)) then exit;
|
||||
end;
|
||||
|
||||
if (fPendingIO) then dwState := 0 else dwState := 1;
|
||||
|
||||
while not Terminated do
|
||||
begin
|
||||
dwWait := WaitForSingleObject(hEvent, 50);
|
||||
if (dwWait = WAIT_TIMEOUT) then continue;
|
||||
if (dwWait <> WAIT_OBJECT_0) then break;
|
||||
|
||||
if (fPendingIO) then
|
||||
begin
|
||||
fSuccess := GetOverlappedResult(hPipe, oOverlap, cbWritten, FALSE);
|
||||
|
||||
if not fSuccess then break;
|
||||
|
||||
if (dwState = 1) then
|
||||
begin
|
||||
if (cbWritten <> cbToWrite) then break;
|
||||
end;
|
||||
|
||||
if (dwState = 0) then
|
||||
begin
|
||||
dwState := 1;
|
||||
end;
|
||||
end;
|
||||
|
||||
if (dwState = 1) then
|
||||
begin
|
||||
cbToWrite := FStream.Read(chBuff, PIPE_BUFF_SIZE);
|
||||
|
||||
if (cbToWrite < 1) then break;
|
||||
|
||||
fSuccess := WriteFile(
|
||||
hPipe,
|
||||
chBuff,
|
||||
cbToWrite,
|
||||
cbWritten,
|
||||
@oOverlap);
|
||||
|
||||
if (fSuccess and (cbWritten = cbToWrite)) then
|
||||
begin
|
||||
fPendingIO := FALSE;
|
||||
continue;
|
||||
end;
|
||||
|
||||
if ((not fSuccess) and (GetLastError() = ERROR_IO_PENDING)) then
|
||||
begin
|
||||
fPendingIO := TRUE;
|
||||
continue;
|
||||
end;
|
||||
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TPipeServer.Execute();
|
||||
begin
|
||||
if (FOverlapped) then Execute_overlapped() else Execute_non_overlapped();
|
||||
end;
|
||||
|
||||
// =============================================================================
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
var
|
||||
p_md : libvlc_media_t_ptr;
|
||||
begin
|
||||
pname := '\\.\pipe\vlcpipe' + IntToStr(Round(Now() * SecsPerDay));
|
||||
|
||||
stream := TFileStream.Create('..\..\_testFiles\test.ts', fmOpenRead);
|
||||
server := TPipeServer.Create(stream, pname, TRUE);
|
||||
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
|
||||
exit;
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config',
|
||||
'--quiet',
|
||||
'--no-video-title-show',
|
||||
'--no-video-on-top'
|
||||
// '--vout=vdummy',
|
||||
// '--aout=adummy'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
p_mi := NIL;
|
||||
|
||||
p_md := libvlc_media_new_location(p_li, PAnsiChar('stream://\' + pname));
|
||||
|
||||
if (p_md <> NIL) then
|
||||
begin
|
||||
p_mi := libvlc_media_player_new_from_media(p_md);
|
||||
if (p_mi <> NIL) then
|
||||
begin
|
||||
libvlc_media_player_set_display_window(p_mi, SELF.Handle);
|
||||
end;
|
||||
libvlc_media_player_play(p_mi);
|
||||
libvlc_media_release(p_md);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormActivate(Sender: TObject);
|
||||
begin
|
||||
OnActivate := NIL;
|
||||
|
||||
Sleep(50);
|
||||
|
||||
server.Resume;
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
server.Terminate;
|
||||
server.WaitFor;
|
||||
server.Free;
|
||||
|
||||
if (p_mi <> NIL) then
|
||||
begin
|
||||
libvlc_media_player_stop(p_mi);
|
||||
libvlc_media_player_release(p_mi);
|
||||
p_mi := NIL;
|
||||
end;
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
libvlc_release(p_li);
|
||||
p_li := NIL;
|
||||
end;
|
||||
|
||||
stream.Free;
|
||||
end;
|
||||
|
||||
end.
|
||||
103
PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.dpr
Normal file
103
PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.dpr
Normal file
@@ -0,0 +1,103 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoStreamScreen;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
{$R *.res}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas';
|
||||
|
||||
const
|
||||
media_name : PAnsiChar = 'Screen streaming test';
|
||||
media_input : PAnsiChar = 'screen://';
|
||||
media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=56,fps=4,scale=1,acodec=mp4a,ab=24,channels=1,samplerate=44100}:http{mux=ts,dst=:8090/}';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,acodec=mpga,ab=128,channels=2,samplerate=44100}:rtp{mux=ts,dst=127.0.0.1:8090/}';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=1,acodec=mpga,ab=128,channels=2,samplerate=44100}:http{mux=ts,dst=:8090/}';
|
||||
// media_sout : PAnsiChar = '#rtp{access=udp,mux=ts,dst=127.0.0.1,port=8090}'; // ,group="Video",name=Jumper Movie"
|
||||
// media_sout : PAnsiChar = '#standard{access=http,mux=ogg,dst=127.0.0.1:8090}';
|
||||
|
||||
var
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
try
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
raise Exception.Create(libvlc_dynamic_dll_error);
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config',
|
||||
'--quiet',
|
||||
'--no-video-title-show',
|
||||
'--no-video-on-top'
|
||||
// '--vout=vdummy',
|
||||
// '--aout=adummy'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'screen-top=0',
|
||||
'screen-left=0',
|
||||
'screen-width=640',
|
||||
'screen-height=480',
|
||||
'screen-fps=10'
|
||||
]) do
|
||||
begin
|
||||
libvlc_vlm_add_broadcast(p_li, media_name, media_input, media_sout, ARGC, ARGS, 1, 0);
|
||||
Free;
|
||||
end;
|
||||
|
||||
// libvlc_vlm_add_broadcast(p_li, media_name, media_input, media_sout, 0, NIL, 1, 0);
|
||||
libvlc_vlm_play_media(p_li, media_name);
|
||||
|
||||
Sleep(60 * 1000);
|
||||
|
||||
libvlc_vlm_stop_media(p_li, media_name);
|
||||
libvlc_vlm_release(p_li);
|
||||
|
||||
libvlc_dynamic_dll_done();
|
||||
|
||||
except
|
||||
on E:Exception do
|
||||
Writeln(E.Classname, ': ', E.Message);
|
||||
end;
|
||||
end.
|
||||
46
PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.dproj
Normal file
46
PasLibVlc/Delphi2007/DemoStreamScreen/DemoStreamScreen.dproj
Normal file
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{a9bac63e-9ae8-4c22-9046-c6803b648aa9}</ProjectGuid>
|
||||
<MainSource>DemoStreamScreen.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoStreamScreen.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoStreamScreen</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoStreamScreen</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoStreamScreen</VersionInfoKeys><VersionInfoKeys Name="ProductName">DemoStreamScreen</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoStreamScreen.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoStreamScreen.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
94
PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.dpr
Normal file
94
PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.dpr
Normal file
@@ -0,0 +1,94 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoStreamVideo;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
{$R *.res}
|
||||
|
||||
uses
|
||||
SysUtils,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas';
|
||||
|
||||
var
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
|
||||
// https://www.videolan.org/doc/streaming-howto/en/ch04.html
|
||||
|
||||
// multiple port streaming
|
||||
// #transcode{vcodec=mp4v,acodec=mpga,vb=800,ab=128,deinterlace}:duplicate{dst=display,dst=rtp{mux=ts,dst=239.255.12.42,sdp=sap://,name="TestStream"},dst=rtp{mux=ts,dst=192.168.1.2,port=50006}}
|
||||
const
|
||||
media_name : PAnsiChar = 'Video streaming test';
|
||||
media_input : PAnsiChar = '..\..\_testFiles\Maximize.mp4';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=1,acodec=mpga,ab=128,channels=2,samplerate=44100}:http{mux=ts,dst=:8090/maximize.mp4}';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=1,acodec=mpga,ab=128,channels=2,samplerate=44100}:http{mux=ts,dst=:8090/maximize.mp4,sfilter=marq{marquee="MARQUEE",x=10,y=10}}';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=1,acodec=mpga,ab=128,channels=2,samplerate=44100}:http{mux=ts,dst=:8090/maximize.mp4,sfilter=logo{file="..\..\logo1.png",position=10}}';
|
||||
media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=1,acodec=mpga,ab=128,channels=2,samplerate=44100,sfilter={marq{marquee="MARQUEE",x=10,y=10}:logo{file="..\..\logo1.png",position=10}}}:http{mux=ts,dst=:8090/}';
|
||||
// media_sout : PAnsiChar = '#transcode{vcodec=h264,vb=800,scale=2,acodec=mp3,ab=128,channels=2,samplerate=44100,sfilter={marq{marquee="MARQUEE",x=10,y=10}:logo{file="..\..\logo1.png",position=10}}}:rtp{mux=ts,dst=127.0.0.1,port=8090}';
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
try
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
raise Exception.Create(libvlc_dynamic_dll_error);
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config',
|
||||
'--quiet',
|
||||
'--no-video-title-show',
|
||||
'--no-video-on-top'
|
||||
// '--vout=vdummy',
|
||||
// '--aout=adummy'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
libvlc_vlm_add_broadcast(p_li, media_name, media_input, media_sout, 0, NIL, 1, 1);
|
||||
libvlc_vlm_play_media(p_li, media_name);
|
||||
|
||||
Sleep(60 * 1000);
|
||||
|
||||
libvlc_vlm_stop_media(p_li, media_name);
|
||||
libvlc_vlm_release(p_li);
|
||||
|
||||
libvlc_dynamic_dll_done();
|
||||
|
||||
except
|
||||
on E:Exception do
|
||||
Writeln(E.Classname, ': ', E.Message);
|
||||
end;
|
||||
end.
|
||||
46
PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.dproj
Normal file
46
PasLibVlc/Delphi2007/DemoStreamVideo/DemoStreamVideo.dproj
Normal file
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0307b428-f503-4958-a037-9e680109b9ec}</ProjectGuid>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoStreamVideo.exe</DCC_DependencyCheckOutputName>
|
||||
<MainSource>DemoStreamVideo.dpr</MainSource>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoStreamVideo</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoStreamVideo</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoStreamVideo</VersionInfoKeys><VersionInfoKeys Name="ProductName">DemoStreamVideo</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoStreamVideo.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoStreamVideo.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
248
PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.dpr
Normal file
248
PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.dpr
Normal file
@@ -0,0 +1,248 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoUseLog;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
{$R *.res}
|
||||
|
||||
uses
|
||||
Windows, SysUtils, SyncObjs,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas';
|
||||
|
||||
const
|
||||
DEMO_FILE = '..\..\_testFiles\Maximize.mp4';
|
||||
|
||||
var
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_md : libvlc_media_t_ptr;
|
||||
p_mi : libvlc_media_player_t_ptr;
|
||||
|
||||
f: TextFile;
|
||||
|
||||
procedure libvlc_log_cb(
|
||||
data : Pointer;
|
||||
level : libvlc_log_level_t;
|
||||
const ctx : libvlc_log_t_ptr;
|
||||
const fmt : PAnsiChar;
|
||||
args : TVaPtrListPtr); cdecl;
|
||||
var
|
||||
fmt_chr : AnsiChar;
|
||||
fmt_idx : Integer;
|
||||
|
||||
out_str : AnsiString;
|
||||
tmp_str : AnsiString;
|
||||
fmt_str : AnsiString;
|
||||
fmt_spc : AnsiString;
|
||||
tmp_chr : PAnsiChar;
|
||||
begin
|
||||
out_str := '';
|
||||
fmt_str := fmt;
|
||||
|
||||
if (level = LIBVLC_LOG_DEBUG) then exit;
|
||||
|
||||
WriteLn(f, 'fmt: ', fmt); Flush(f);
|
||||
|
||||
while (fmt_str <> '') do
|
||||
begin
|
||||
fmt_idx := Pos('%', fmt_str);
|
||||
if (fmt_idx < 1) then break;
|
||||
|
||||
out_str := out_str + Copy(fmt_str, 1, fmt_idx-1);
|
||||
Delete(fmt_str, 1, fmt_idx);
|
||||
|
||||
fmt_spc := '';
|
||||
while (fmt_str <> '') and (fmt_str[1] in ['0'..'9', '.', 'z', 'l', ' ', '+', '-', '#']) do
|
||||
begin
|
||||
fmt_spc := fmt_spc + fmt_str[1];
|
||||
Delete(fmt_str, 1, 1);
|
||||
end;
|
||||
if (fmt_str = '') then break;
|
||||
|
||||
fmt_chr := fmt_str[1];
|
||||
Delete(fmt_str, 1, 1);
|
||||
|
||||
case fmt_chr of
|
||||
'%' : begin
|
||||
out_str := out_str + '%';
|
||||
continue;
|
||||
end;
|
||||
's' : begin
|
||||
tmp_chr := PAnsiChar(args^);
|
||||
tmp_str := '';
|
||||
|
||||
if (fmt_spc = '4.4') then
|
||||
begin
|
||||
if (tmp_chr^ <> #00) then
|
||||
begin
|
||||
tmp_str := tmp_str + tmp_chr^; Inc(tmp_chr);
|
||||
end;
|
||||
if (tmp_chr^ <> #00) then
|
||||
begin
|
||||
tmp_str := tmp_str + tmp_chr^; Inc(tmp_chr);
|
||||
end;
|
||||
if (tmp_chr^ <> #00) then
|
||||
begin
|
||||
tmp_str := tmp_str + tmp_chr^; Inc(tmp_chr);
|
||||
end;
|
||||
if (tmp_chr^ <> #00) then
|
||||
begin
|
||||
tmp_str := tmp_str + tmp_chr^; // Inc(tmp_chr);
|
||||
end;
|
||||
while (Length(tmp_str) < 4) do
|
||||
begin
|
||||
tmp_str := ' ' + tmp_str;
|
||||
end;
|
||||
end
|
||||
else
|
||||
begin
|
||||
while (tmp_chr <> NIL) and (tmp_chr^ <> #00) do
|
||||
begin
|
||||
tmp_str := tmp_str + tmp_chr^;
|
||||
Inc(tmp_chr);
|
||||
end;
|
||||
end;
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
'd' : begin
|
||||
if (fmt_spc = 'll') then
|
||||
begin
|
||||
tmp_str := IntToStr(Integer(args^));
|
||||
end
|
||||
else
|
||||
if (fmt_spc = 'l') then
|
||||
begin
|
||||
tmp_str := IntToStr(Integer(args^));
|
||||
end
|
||||
else
|
||||
if (fmt_spc = 'z') then
|
||||
begin
|
||||
tmp_str := IntToStr(SmallInt(args^));
|
||||
end
|
||||
else
|
||||
begin
|
||||
tmp_str := IntToStr(Integer(args^));
|
||||
end;
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
'i' : begin
|
||||
tmp_str := IntToStr(Integer(args^));
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
'u' : begin
|
||||
if (fmt_spc = 'll') then
|
||||
begin
|
||||
tmp_str := IntToStr(Cardinal(args^));
|
||||
end
|
||||
else
|
||||
if (fmt_spc = 'z') then
|
||||
begin
|
||||
tmp_str := IntToStr(Word(args^));
|
||||
end
|
||||
else
|
||||
begin
|
||||
tmp_str := IntToStr(Cardinal(args^));
|
||||
end;
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
'x', 'X' : begin
|
||||
tmp_str := IntToHex(Cardinal(args^), 8);
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
'f' : begin
|
||||
tmp_str := Format('%' + fmt_spc + fmt_chr, [Single(args^)]);
|
||||
out_str := out_str + tmp_str;
|
||||
end;
|
||||
end;
|
||||
|
||||
Inc(args);
|
||||
end;
|
||||
out_str := out_str + fmt_str;
|
||||
|
||||
WriteLn(f, 'out: ', out_str); Flush(f);
|
||||
WriteLn(out_str);
|
||||
|
||||
end;
|
||||
|
||||
begin
|
||||
{$IFDEF DELPHI2007_UP}
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
{$ENDIF}
|
||||
|
||||
AssignFile(f, 'dump.txt');
|
||||
ReWrite(f);
|
||||
|
||||
try
|
||||
|
||||
SetConsoleOutputCP(65001);
|
||||
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
raise Exception.Create(libvlc_dynamic_dll_error);
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config',
|
||||
'--quiet',
|
||||
'--no-video-title-show'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
libvlc_log_set(p_li, libvlc_log_cb, NIL);
|
||||
|
||||
p_md := libvlc_media_new_path(p_li, PAnsiChar(UTF8Encode(DEMO_FILE)));
|
||||
libvlc_media_parse(p_md);
|
||||
|
||||
p_mi := libvlc_media_player_new_from_media(p_md);
|
||||
|
||||
libvlc_media_player_play(p_mi);
|
||||
|
||||
while (libvlc_media_player_get_state(p_mi) <> libvlc_Ended) do
|
||||
begin
|
||||
Sleep(50);
|
||||
end;
|
||||
|
||||
libvlc_media_release(p_md);
|
||||
libvlc_media_player_release(p_mi);
|
||||
libvlc_release(p_li);
|
||||
|
||||
except
|
||||
on E:Exception do
|
||||
Writeln(E.Classname, ': ', E.Message);
|
||||
end;
|
||||
|
||||
Flush(f);
|
||||
Close(f);
|
||||
|
||||
ReadLn;
|
||||
end.
|
||||
37
PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.dproj
Normal file
37
PasLibVlc/Delphi2007/DemoUseLog/DemoUseLog.dproj
Normal file
@@ -0,0 +1,37 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{4754135a-5f6e-46a6-8c5f-8d5622e9c43f}</ProjectGuid>
|
||||
<MainSource>DemoUseLog.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoUseLog.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoUseLog.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoUseLog.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
76
PasLibVlc/Delphi2007/DemoUseLog/dump.txt
Normal file
76
PasLibVlc/Delphi2007/DemoUseLog/dump.txt
Normal file
@@ -0,0 +1,76 @@
|
||||
fmt: unknown box type %4.4s (incompletely loaded)
|
||||
out: unknown box type mpod (incompletely loaded)
|
||||
fmt: elst box found
|
||||
out: elst box found
|
||||
fmt: STTS table of %u entries
|
||||
out: STTS table of 1 entries
|
||||
fmt: elst box found
|
||||
out: elst box found
|
||||
fmt: STTS table of %u entries
|
||||
out: STTS table of 1 entries
|
||||
fmt: decoded zero sample
|
||||
out: decoded zero sample
|
||||
fmt: DirectWrite initialization failed. Falling back to GDI/Uniscribe
|
||||
out: DirectWrite initialization failed. Falling back to GDI/Uniscribe
|
||||
fmt: DirectWrite initialization failed. Falling back to GDI/Uniscribe
|
||||
out: DirectWrite initialization failed. Falling back to GDI/Uniscribe
|
||||
fmt: plane %d not aligned: disabling direct rendering
|
||||
out: plane 0 not aligned: disabling direct rendering
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (88868): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (186741): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-351381): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (72601): up-sampling
|
||||
fmt: timing screwed (drift: %lld us): stopping resampling
|
||||
out: timing screwed (drift: 149154 us): stopping resampling
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (178542): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (211953): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-337853): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (76615): up-sampling
|
||||
fmt: timing screwed (drift: %lld us): stopping resampling
|
||||
out: timing screwed (drift: 157122 us): stopping resampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (182533): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-342705): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (76615): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (182511): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-325191): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (72601): up-sampling
|
||||
fmt: timing screwed (drift: %lld us): stopping resampling
|
||||
out: timing screwed (drift: 149109 us): stopping resampling
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (149498): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (182519): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-331630): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (84210): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (182473): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-339726): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (76601): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (182451): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-356165): playing silence
|
||||
fmt: playback too late (%lld): up-sampling
|
||||
out: playback too late (84211): up-sampling
|
||||
fmt: playback way too late (%lld): flushing buffers
|
||||
out: playback way too late (190038): flushing buffers
|
||||
fmt: playback way too early (%lld): playing silence
|
||||
out: playback way too early (-341018): playing silence
|
||||
218
PasLibVlc/Delphi2007/DemoVideoCallBacks/DemoVideoCallBacks.dpr
Normal file
218
PasLibVlc/Delphi2007/DemoVideoCallBacks/DemoVideoCallBacks.dpr
Normal file
@@ -0,0 +1,218 @@
|
||||
(*
|
||||
* This program is free software; you can redistribute it and/or modify
|
||||
* it under the terms of the GNU General Public License as published by
|
||||
* the Free Software Foundation; either version 2 of the License, or
|
||||
* (at your option) any later version.
|
||||
*
|
||||
* This program is distributed in the hope that it will be useful,
|
||||
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
||||
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
||||
* GNU General Public License for more details.
|
||||
*
|
||||
* You should have received a copy of the GNU General Public License
|
||||
* along with this program; if not, write to the Free Software
|
||||
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
||||
*
|
||||
* Any non-GPL usage of this software or parts of this software is strictly
|
||||
* forbidden.
|
||||
*
|
||||
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
|
||||
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoVideoCallBacks;
|
||||
|
||||
{$APPTYPE CONSOLE}
|
||||
|
||||
{$R *.res}
|
||||
|
||||
uses
|
||||
Windows, SysUtils, Graphics, SyncObjs,
|
||||
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas';
|
||||
|
||||
const
|
||||
// DEMO_FILE = '..\..\_testFiles\Maximize.mp4';
|
||||
// DEMO_FILE = '..\..\_testFiles\test.ts';
|
||||
DEMO_FILE = '..\..\_testFiles\1941.mp4';
|
||||
|
||||
var
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_md : libvlc_media_t_ptr;
|
||||
p_mi : libvlc_media_player_t_ptr;
|
||||
|
||||
vctx : TVideoCbCtx;
|
||||
bmpi : TBitmap;
|
||||
bmpc : LongWord;
|
||||
|
||||
function libvlc_video_lock_cb(ptr : Pointer; planes : PVCBPlanes) : Pointer; cdecl;
|
||||
var
|
||||
pIdx : Integer;
|
||||
begin
|
||||
with PVideoCbCtx(ptr)^ do
|
||||
begin
|
||||
lock.Enter;
|
||||
for pIdx := 0 to VOUT_MAX_PLANES-1 do
|
||||
begin
|
||||
planes^[pIdx] := buff_a32[pIdx];
|
||||
end;
|
||||
Result := buff_ptr[0];
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure libvlc_video_unlock_cb(ptr : Pointer; picture : Pointer; planes : PVCBPlanes); cdecl;
|
||||
begin
|
||||
with PVideoCbCtx(ptr)^ do
|
||||
begin
|
||||
lock.Release;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure libvlc_video_display_cb(ptr : Pointer; picture : Pointer); cdecl;
|
||||
var
|
||||
y : Integer;
|
||||
from_ptr : PByte;
|
||||
pIdx : Integer;
|
||||
fileNumb : ShortString;
|
||||
fileName : ShortString;
|
||||
begin
|
||||
with PVideoCbCtx(ptr)^ do
|
||||
begin
|
||||
lock.Enter;
|
||||
|
||||
for pIdx := 0 to VOUT_MAX_PLANES-1 do
|
||||
begin
|
||||
|
||||
if (pIdx > 0) then continue;
|
||||
|
||||
from_ptr := buff_a32[pIdx];
|
||||
|
||||
for y := 0 to video_h - 1 do
|
||||
begin
|
||||
Move(from_ptr^, bmpi.ScanLine[y]^, pitch_w);
|
||||
Inc(from_ptr, pitch_w_a32);
|
||||
end;
|
||||
|
||||
Inc(bmpc);
|
||||
Str(bmpc, fileNumb);
|
||||
|
||||
fileName := Copy('000000', 1, 6 - Length(fileNumb)) + fileNumb + '_p' + IntToStr(pIdx) + '.bmp';
|
||||
WriteLn(fileName);
|
||||
|
||||
bmpi.SaveToFile(fileName);
|
||||
end;
|
||||
|
||||
lock.Leave;
|
||||
end;
|
||||
end;
|
||||
|
||||
function libvlc_video_format_cb(var ptr : Pointer; chroma : PAnsiChar; var width : LongWord; var height : LongWord; pitches : PVCBPitches; lines : PVCBLines) : LongWord; cdecl;
|
||||
begin
|
||||
|
||||
chroma^ := AnsiChar('B'); Inc(chroma);
|
||||
chroma^ := AnsiChar('G'); Inc(chroma);
|
||||
chroma^ := AnsiChar('R'); Inc(chroma);
|
||||
chroma^ := AnsiChar('A');
|
||||
|
||||
with PVideoCbCtx(ptr)^ do
|
||||
begin
|
||||
lock.Enter;
|
||||
|
||||
libvlc_video_cb_vctx_set_buffers(PVideoCbCtx(ptr), width, height, 4, pitches, lines);
|
||||
|
||||
bmpi.SetSize(video_w, video_h);
|
||||
|
||||
lock.Release;
|
||||
end;
|
||||
|
||||
Result := 1;
|
||||
end;
|
||||
|
||||
procedure libvlc_video_cleanup_cb(ptr : Pointer); cdecl;
|
||||
begin
|
||||
with PVideoCbCtx(ptr)^ do
|
||||
begin
|
||||
lock.Enter;
|
||||
|
||||
libvlc_video_cb_vctx_clr_buffers(PVideoCbCtx(ptr));
|
||||
|
||||
bmpi.SetSize(0, 0);
|
||||
|
||||
lock.Release;
|
||||
end;
|
||||
end;
|
||||
|
||||
begin
|
||||
|
||||
try
|
||||
|
||||
FillChar(vctx, sizeof(vctx), 0);
|
||||
|
||||
with vctx do
|
||||
begin
|
||||
lock := TCriticalSection.Create;
|
||||
end;
|
||||
|
||||
libvlc_video_cb_vctx_set_buffers(@vctx, 320, 240, 4);
|
||||
|
||||
bmpi := Graphics.TBitmap.Create;
|
||||
bmpi.PixelFormat := pf32bit;
|
||||
bmpi.SetSize(vctx.video_w, vctx.video_h);
|
||||
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
raise Exception.Create(libvlc_dynamic_dll_error);
|
||||
end;
|
||||
|
||||
with TArgcArgs.Create([
|
||||
libvlc_dynamic_dll_path,
|
||||
'--intf=dummy',
|
||||
'--ignore-config'
|
||||
// '--quiet',
|
||||
// '--no-video-title-show',
|
||||
// '--no-video-on-top'
|
||||
// '--vout=vdummy',
|
||||
// '--aout=adummy'
|
||||
]) do
|
||||
begin
|
||||
p_li := libvlc_new(ARGC, ARGS);
|
||||
Free;
|
||||
end;
|
||||
|
||||
p_md := libvlc_media_new_path(p_li, PAnsiChar(UTF8Encode(DEMO_FILE)));
|
||||
libvlc_media_parse(p_md);
|
||||
|
||||
p_mi := libvlc_media_player_new_from_media(p_md);
|
||||
|
||||
libvlc_video_set_callbacks(p_mi, libvlc_video_lock_cb, libvlc_video_unlock_cb, libvlc_video_display_cb, @vctx);
|
||||
|
||||
// use this for set video size to your needs
|
||||
// libvlc_video_set_format(p_mi, 'RV32', vctx.video_w, vctx.video_h, vctx.pitch_w);
|
||||
|
||||
// use this for handle change video size etc.
|
||||
libvlc_video_set_format_callbacks(p_mi, libvlc_video_format_cb, libvlc_video_cleanup_cb);
|
||||
|
||||
libvlc_media_player_play(p_mi);
|
||||
|
||||
while (libvlc_media_player_get_state(p_mi) <> libvlc_Ended) do
|
||||
begin
|
||||
Sleep(50);
|
||||
end;
|
||||
|
||||
libvlc_media_release(p_md);
|
||||
libvlc_media_player_release(p_mi);
|
||||
libvlc_release(p_li);
|
||||
|
||||
WriteLn('Press ENTER to quit...');
|
||||
|
||||
except
|
||||
on E:Exception do
|
||||
Writeln(E.Classname, ': ', E.Message);
|
||||
end;
|
||||
|
||||
ReadLn;
|
||||
end.
|
||||
@@ -0,0 +1,46 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{8e4b0d1e-8d26-4f61-9c95-0fc089fee7dd}</ProjectGuid>
|
||||
<MainSource>DemoVideoCallBacks.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoVideoCallBacks.exe</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">DemoVideoCallBacks</VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName">DemoVideoCallBacks</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">DemoVideoCallBacks</VersionInfoKeys><VersionInfoKeys Name="ProductName">DemoVideoCallBacks</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">DemoVideoCallBacks.dpr</Source></Source></Delphi.Personality><ModelSupport>False</ModelSupport></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="DemoVideoCallBacks.dpr">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
124
PasLibVlc/Delphi2007/PasLibVlc.groupproj
Normal file
124
PasLibVlc/Delphi2007/PasLibVlc.groupproj
Normal file
@@ -0,0 +1,124 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{45654adb-d240-4043-a769-10b6e8189706}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup />
|
||||
<ItemGroup>
|
||||
<Projects Include="DemoPasLibVlcMediaListPlayer\DemoPasLibVlcMediaListPlayer.dproj" />
|
||||
<Projects Include="DemoPasLibVlcPlayerPauseAtStart\DemoPasLibVlcPlayerPauseAtStart.dproj" />
|
||||
<Projects Include="DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dproj" />
|
||||
<Projects Include="DemoPasLibVlc\DemoPasLibVlc.dproj" />
|
||||
<Projects Include="DemoPlayViaPipe\DemoPlayViaPipe.dproj" />
|
||||
<Projects Include="DemoStreamScreen\DemoStreamScreen.dproj" />
|
||||
<Projects Include="DemoStreamVideo\DemoStreamVideo.dproj" />
|
||||
<Projects Include="DemoUseLog\DemoUseLog.dproj" />
|
||||
<Projects Include="DemoVideoCallBacks\DemoVideoCallBacks.dproj" />
|
||||
<Projects Include="PasLibVlcPlayer.dproj" />
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality</Borland.Personality>
|
||||
<Borland.ProjectType />
|
||||
<BorlandProject>
|
||||
<BorlandProject xmlns=""><Default.Personality></Default.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PasLibVlcPlayer">
|
||||
<MSBuild Projects="PasLibVlcPlayer.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="PasLibVlcPlayer:Clean">
|
||||
<MSBuild Projects="PasLibVlcPlayer.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="PasLibVlcPlayer:Make">
|
||||
<MSBuild Projects="PasLibVlcPlayer.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlc">
|
||||
<MSBuild Projects="DemoPasLibVlc\DemoPasLibVlc.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlc:Clean">
|
||||
<MSBuild Projects="DemoPasLibVlc\DemoPasLibVlc.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlc:Make">
|
||||
<MSBuild Projects="DemoPasLibVlc\DemoPasLibVlc.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayer">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayer:Clean">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayer:Make">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayerPauseAtStart">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayerPauseAtStart\DemoPasLibVlcPlayerPauseAtStart.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayerPauseAtStart:Clean">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayerPauseAtStart\DemoPasLibVlcPlayerPauseAtStart.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcPlayerPauseAtStart:Make">
|
||||
<MSBuild Projects="DemoPasLibVlcPlayerPauseAtStart\DemoPasLibVlcPlayerPauseAtStart.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcMediaListPlayer">
|
||||
<MSBuild Projects="DemoPasLibVlcMediaListPlayer\DemoPasLibVlcMediaListPlayer.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcMediaListPlayer:Clean">
|
||||
<MSBuild Projects="DemoPasLibVlcMediaListPlayer\DemoPasLibVlcMediaListPlayer.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoPasLibVlcMediaListPlayer:Make">
|
||||
<MSBuild Projects="DemoPasLibVlcMediaListPlayer\DemoPasLibVlcMediaListPlayer.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoPlayViaPipe">
|
||||
<MSBuild Projects="DemoPlayViaPipe\DemoPlayViaPipe.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoPlayViaPipe:Clean">
|
||||
<MSBuild Projects="DemoPlayViaPipe\DemoPlayViaPipe.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoPlayViaPipe:Make">
|
||||
<MSBuild Projects="DemoPlayViaPipe\DemoPlayViaPipe.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamVideo">
|
||||
<MSBuild Projects="DemoStreamVideo\DemoStreamVideo.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamVideo:Clean">
|
||||
<MSBuild Projects="DemoStreamVideo\DemoStreamVideo.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamVideo:Make">
|
||||
<MSBuild Projects="DemoStreamVideo\DemoStreamVideo.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamScreen">
|
||||
<MSBuild Projects="DemoStreamScreen\DemoStreamScreen.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamScreen:Clean">
|
||||
<MSBuild Projects="DemoStreamScreen\DemoStreamScreen.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoStreamScreen:Make">
|
||||
<MSBuild Projects="DemoStreamScreen\DemoStreamScreen.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoVideoCallBacks">
|
||||
<MSBuild Projects="DemoVideoCallBacks\DemoVideoCallBacks.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoVideoCallBacks:Clean">
|
||||
<MSBuild Projects="DemoVideoCallBacks\DemoVideoCallBacks.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoVideoCallBacks:Make">
|
||||
<MSBuild Projects="DemoVideoCallBacks\DemoVideoCallBacks.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="DemoUseLog">
|
||||
<MSBuild Projects="DemoUseLog\DemoUseLog.dproj" Targets="" />
|
||||
</Target>
|
||||
<Target Name="DemoUseLog:Clean">
|
||||
<MSBuild Projects="DemoUseLog\DemoUseLog.dproj" Targets="Clean" />
|
||||
</Target>
|
||||
<Target Name="DemoUseLog:Make">
|
||||
<MSBuild Projects="DemoUseLog\DemoUseLog.dproj" Targets="Make" />
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PasLibVlcPlayer;DemoPasLibVlc;DemoPasLibVlcPlayer;DemoPasLibVlcPlayerPauseAtStart;DemoPasLibVlcMediaListPlayer;DemoPlayViaPipe;DemoStreamVideo;DemoStreamScreen;DemoVideoCallBacks;DemoUseLog" />
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PasLibVlcPlayer:Clean;DemoPasLibVlc:Clean;DemoPasLibVlcPlayer:Clean;DemoPasLibVlcPlayerPauseAtStart:Clean;DemoPasLibVlcMediaListPlayer:Clean;DemoPlayViaPipe:Clean;DemoStreamVideo:Clean;DemoStreamScreen:Clean;DemoVideoCallBacks:Clean;DemoUseLog:Clean" />
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PasLibVlcPlayer:Make;DemoPasLibVlc:Make;DemoPasLibVlcPlayer:Make;DemoPasLibVlcPlayerPauseAtStart:Make;DemoPasLibVlcMediaListPlayer:Make;DemoPlayViaPipe:Make;DemoStreamVideo:Make;DemoStreamScreen:Make;DemoVideoCallBacks:Make;DemoUseLog:Make" />
|
||||
</Target>
|
||||
<Import Condition="Exists('$(MSBuildBinPath)\Borland.Group.Targets')" Project="$(MSBuildBinPath)\Borland.Group.Targets" />
|
||||
</Project>
|
||||
38
PasLibVlc/Delphi2007/PasLibVlcPlayer.dpk
Normal file
38
PasLibVlc/Delphi2007/PasLibVlcPlayer.dpk
Normal file
@@ -0,0 +1,38 @@
|
||||
package PasLibVlcPlayer;
|
||||
|
||||
{$R *.res}
|
||||
{$ALIGN 8}
|
||||
{$ASSERTIONS ON}
|
||||
{$BOOLEVAL OFF}
|
||||
{$DEBUGINFO OFF}
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS OFF}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO OFF}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DESCRIPTION 'PasLibVlcPlayer design time package'}
|
||||
{$IMPLICITBUILD OFF}
|
||||
{$DEFINE RELEASE}
|
||||
|
||||
requires
|
||||
vcl,
|
||||
rtl;
|
||||
|
||||
contains
|
||||
PasLibVlcUnit in '..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas';
|
||||
|
||||
end.
|
||||
51
PasLibVlc/Delphi2007/PasLibVlcPlayer.dproj
Normal file
51
PasLibVlc/Delphi2007/PasLibVlcPlayer.dproj
Normal file
@@ -0,0 +1,51 @@
|
||||
<?xml version="1.0" encoding="utf-8"?>
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{52609e8a-2ed7-44c7-81a5-f5d0b797dcdc}</ProjectGuid>
|
||||
<MainSource>PasLibVlcPlayer.dpk</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
|
||||
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>C:\Documents and Settings\All Users\Dokumenty\RAD Studio\5.0\Bpl\PasLibVlcPlayer.bpl</DCC_DependencyCheckOutputName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
<DCC_UnitSearchPath>.\..\source\</DCC_UnitSearchPath>
|
||||
<DCC_ResourcePath>.\..\source\</DCC_ResourcePath>
|
||||
<DCC_ObjPath>.\..\source\</DCC_ObjPath>
|
||||
<DCC_IncludePath>.\..\source\</DCC_IncludePath>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>False</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><Package_Options><Package_Options Name="PackageDescription">PasLibVlcPlayer design time package</Package_Options><Package_Options Name="ImplicitBuild">False</Package_Options><Package_Options Name="DesigntimeOnly">False</Package_Options><Package_Options Name="RuntimeOnly">False</Package_Options></Package_Options><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">True</VersionInfo><VersionInfo Name="MajorVer">3</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">6</VersionInfo><VersionInfo Name="Build">202</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1045</VersionInfo><VersionInfo Name="CodePage">1250</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="FileDescription">PasLibVclPlayer</VersionInfoKeys><VersionInfoKeys Name="FileVersion">3.0.6.202</VersionInfoKeys><VersionInfoKeys Name="InternalName">PasLibVclPlayer</VersionInfoKeys><VersionInfoKeys Name="LegalCopyright">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks">Robert Jędrzejczyk</VersionInfoKeys><VersionInfoKeys Name="OriginalFilename">PasLibVclPlayer</VersionInfoKeys><VersionInfoKeys Name="ProductName">PasLibVclPlayer</VersionInfoKeys><VersionInfoKeys Name="ProductVersion">3.0.6</VersionInfoKeys><VersionInfoKeys Name="Comments">robert@prog.olsztyn.pl</VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages><Source><Source Name="MainSource">PasLibVlcPlayer.dpk</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="PasLibVlcPlayer.dpk">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="..\source.vcl\PasLibVlcPlayerUnit.pas" />
|
||||
<DCCReference Include="..\source\PasLibVlcClassUnit.pas" />
|
||||
<DCCReference Include="..\source\PasLibVlcUnit.pas" />
|
||||
<DCCReference Include="C:\Documents and Settings\robert\rtl40.dcp" />
|
||||
<DCCReference Include="C:\Documents and Settings\robert\vcl40.dcp" />
|
||||
<DCCReference Include="rtl.dcp" />
|
||||
<DCCReference Include="vcl.dcp" />
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
Reference in New Issue
Block a user