Стартовый пул
This commit is contained in:
43
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.dpr
Normal file
43
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.dpr
Normal file
@@ -0,0 +1,43 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlc;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
ReportMemoryLeaksOnShutdown := True;
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.Title := 'PasLibVlcDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
516
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.dproj
Normal file
516
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.dproj
Normal file
@@ -0,0 +1,516 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{8da1e076-0f08-4057-b905-f843d99de2ee}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlc.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlc.exe</DCC_DependencyCheckOutputName>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win64</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
|
||||
<Cfg_1_Win64>true</Cfg_1_Win64>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<SanitizedProjectName>DemoPasLibVlc</SanitizedProjectName>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlc;FileVersion=1.0.0.0;InternalName=DemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlc;ProductName=DemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<DCC_UnitSearchPath>.\..\..\source;.\..\..\source.vcl;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlc;FileVersion=1.0.0.54;InternalName=DemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlc;ProductName=DemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<VerInfo_Build>54</VerInfo_Build>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_Build>48</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlc;FileVersion=1.0.0.48;InternalName=DemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlc;ProductName=DemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Build>3</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlc;FileVersion=1.0.0.3;InternalName=DemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlc;ProductName=DemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">DemoPasLibVlc.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="Win32\Release\DemoPasLibVlc.exe" Configuration="Release" Class="ProjectOutput"/>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList"/>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements"/>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeX86File">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\x86</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements"/>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList"/>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
BIN
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.otares
Normal file
BIN
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc.otares
Normal file
Binary file not shown.
BIN
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc_Icon.ico
Normal file
BIN
PasLibVlc/DelphiXE7/DemoPasLibVlc/DemoPasLibVlc_Icon.ico
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
43
PasLibVlc/DelphiXE7/DemoPasLibVlc/MainFormUnit.dfm
Normal file
43
PasLibVlc/DelphiXE7/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
|
||||
OnCreate = FormCreate
|
||||
OnDestroy = FormDestroy
|
||||
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
|
||||
191
PasLibVlc/DelphiXE7/DemoPasLibVlc/MainFormUnit.pas
Normal file
191
PasLibVlc/DelphiXE7/DemoPasLibVlc/MainFormUnit.pas
Normal file
@@ -0,0 +1,191 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$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, System.UITypes,
|
||||
PasLibVlcUnit;
|
||||
|
||||
const
|
||||
MAX_ARGS = 255;
|
||||
|
||||
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 FormDestroy(Sender: TObject);
|
||||
private
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_mi : libvlc_media_player_t_ptr;
|
||||
procedure PlayerInit();
|
||||
procedure PlayerStop();
|
||||
procedure PlayerPlay(fileName: WideString);
|
||||
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 (x86)\VideoLAN\VLC');
|
||||
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'
|
||||
]) 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.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);
|
||||
Sleep(50);
|
||||
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.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.PlayerDestroy();
|
||||
begin
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
PlayerStop();
|
||||
libvlc_release(p_li);
|
||||
p_li := NIL;
|
||||
end;
|
||||
libvlc_dynamic_dll_done();
|
||||
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.FormDestroy(Sender: TObject);
|
||||
begin
|
||||
PlayerDestroy();
|
||||
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,48 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program DemoPasLibVlcPlayer;
|
||||
|
||||
uses
|
||||
Forms,
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm},
|
||||
FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm},
|
||||
SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm},
|
||||
SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
ReportMemoryLeaksOnShutdown := TRUE;
|
||||
Application.Initialize;
|
||||
Application.MainFormOnTaskbar := True;
|
||||
Application.Title := 'PasLibVlcPlayerDemo' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm);
|
||||
Application.CreateForm(TSelectOutputDeviceForm, SelectOutputDeviceForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,507 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{0cc0787e-8cd7-4c7f-8614-4fc87cef6130}</ProjectGuid>
|
||||
<MainSource>DemoPasLibVlcPlayer.dpr</MainSource>
|
||||
<Configuration Condition=" '$(Configuration)' == '' ">Debug</Configuration>
|
||||
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
|
||||
<DCC_DependencyCheckOutputName>DemoPasLibVlcPlayer.exe</DCC_DependencyCheckOutputName>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win64</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
|
||||
<Cfg_1_Win64>true</Cfg_1_Win64>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<Icon_MainIcon>DemoPasLibVlcPlayer_Icon.ico</Icon_MainIcon>
|
||||
<Manifest_File>None</Manifest_File>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_UnitSearchPath>.\..\..\source;.\..\..\source.vcl;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlcPlayer;FileVersion=1.0.0.0;InternalName=DemoPasLibVlcPlayer;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlcPlayer;ProductName=DemoPasLibVlcPlayer;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<SanitizedProjectName>DemoPasLibVlcPlayer</SanitizedProjectName>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlcPlayer;FileVersion=1.0.0.59;InternalName=DemoPasLibVlcPlayer;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlcPlayer;ProductName=DemoPasLibVlcPlayer;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<VerInfo_Build>59</VerInfo_Build>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_Build>43</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=DemoPasLibVlcPlayer;FileVersion=1.0.0.43;InternalName=DemoPasLibVlcPlayer;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=DemoPasLibVlcPlayer;ProductName=DemoPasLibVlcPlayer;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<Version>7.0</Version>
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
</PropertyGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
|
||||
<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"/>
|
||||
<VersionInfoKeys Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
<Source>
|
||||
<Source Name="MainSource">DemoPasLibVlcPlayer.dpr</Source>
|
||||
</Source>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="Win32\Release\DemoPasLibVlcPlayer.exe" Configuration="Release" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="Win64\Release\DemoPasLibVlcPlayer.exe" Configuration="Release" Class="ProjectOutput"/>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList"/>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements"/>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeX86File">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\x86</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements"/>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList"/>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="FullScreenFormUnit.pas">
|
||||
<Form>FullScreenForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SetEqualizerPresetFormUnit.pas">
|
||||
<Form>SetEqualizerPresetForm</Form>
|
||||
</DCCReference>
|
||||
<DCCReference Include="SelectOutputDeviceFormUnit.pas">
|
||||
<Form>SelectOutputDeviceForm</Form>
|
||||
<FormType>dfm</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
Binary file not shown.
Binary file not shown.
|
After Width: | Height: | Size: 2.2 KiB |
@@ -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,63 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$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.
|
||||
647
PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
647
PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/MainFormUnit.dfm
Normal file
@@ -0,0 +1,647 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'PasLibVlcPlayerDemo'
|
||||
ClientHeight = 801
|
||||
ClientWidth = 838
|
||||
Color = clBtnFace
|
||||
Constraints.MinHeight = 735
|
||||
Constraints.MinWidth = 703
|
||||
Font.Charset = DEFAULT_CHARSET
|
||||
Font.Color = clWindowText
|
||||
Font.Height = -17
|
||||
Font.Name = 'Tahoma'
|
||||
Font.Style = []
|
||||
OldCreateOrder = False
|
||||
PopupMenu = PopupMenu
|
||||
Position = poScreenCenter
|
||||
OnClose = FormClose
|
||||
OnCreate = FormCreate
|
||||
OnMouseDown = FormMouseDown
|
||||
OnResize = FormResize
|
||||
PixelsPerInch = 144
|
||||
TextHeight = 21
|
||||
object MrlLab: TLabel
|
||||
Left = 13
|
||||
Top = 6
|
||||
Width = 93
|
||||
Height = 21
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'MRL to play:'
|
||||
FocusControl = MrlEdit
|
||||
end
|
||||
object PR: TPanel
|
||||
Left = 549
|
||||
Top = 0
|
||||
Width = 289
|
||||
Height = 801
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Align = alRight
|
||||
BevelOuter = bvNone
|
||||
TabOrder = 0
|
||||
object PlayBtn: TButton
|
||||
Left = 13
|
||||
Top = 16
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Play'
|
||||
TabOrder = 0
|
||||
OnClick = PlayClick
|
||||
end
|
||||
object PauseBtn: TButton
|
||||
Left = 13
|
||||
Top = 66
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Pause'
|
||||
TabOrder = 1
|
||||
OnClick = PauseClick
|
||||
end
|
||||
object GetWidthBtn: TButton
|
||||
Left = 13
|
||||
Top = 160
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get width'
|
||||
TabOrder = 2
|
||||
OnClick = GetWidthClick
|
||||
end
|
||||
object GetHeightBtn: TButton
|
||||
Left = 13
|
||||
Top = 207
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get height'
|
||||
TabOrder = 3
|
||||
OnClick = GetHeightBtnClick
|
||||
end
|
||||
object GetStateBtn: TButton
|
||||
Left = 13
|
||||
Top = 254
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get state'
|
||||
TabOrder = 4
|
||||
OnClick = GetStateClick
|
||||
end
|
||||
object ResumeBtn: TButton
|
||||
Left = 13
|
||||
Top = 113
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Resume'
|
||||
TabOrder = 5
|
||||
OnClick = ResumeClick
|
||||
end
|
||||
object GetPosLenBtn: TButton
|
||||
Left = 13
|
||||
Top = 297
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get pos, len'
|
||||
TabOrder = 6
|
||||
OnClick = GetPosLenClick
|
||||
end
|
||||
object Scale10Btn: TButton
|
||||
Left = 13
|
||||
Top = 347
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Scale -10%'
|
||||
TabOrder = 7
|
||||
OnClick = Scale10Click
|
||||
end
|
||||
object ScaleFitBtn: TButton
|
||||
Left = 13
|
||||
Top = 394
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'ScaleFit'
|
||||
TabOrder = 8
|
||||
OnClick = ScaleFitClick
|
||||
end
|
||||
object SnapShotBtn: TButton
|
||||
Left = 13
|
||||
Top = 441
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'SnapShot'
|
||||
TabOrder = 9
|
||||
OnClick = SnapShotClick
|
||||
end
|
||||
object NextFrameBtn: TButton
|
||||
Left = 13
|
||||
Top = 491
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Next Frame'
|
||||
TabOrder = 10
|
||||
OnClick = NextFrameClick
|
||||
end
|
||||
object GetASpectRatioBtn: TButton
|
||||
Left = 155
|
||||
Top = 16
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get Aspect'
|
||||
TabOrder = 11
|
||||
OnClick = GetASpectRatioClick
|
||||
end
|
||||
object SetAsp11Btn: TButton
|
||||
Left = 155
|
||||
Top = 66
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set asp 1:1'
|
||||
TabOrder = 12
|
||||
OnClick = SetAsp11Click
|
||||
end
|
||||
object SetAsp43Btn: TButton
|
||||
Left = 155
|
||||
Top = 113
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set asp 4:3'
|
||||
TabOrder = 13
|
||||
OnClick = SetAsp43Click
|
||||
end
|
||||
object GetVolume: TButton
|
||||
Left = 155
|
||||
Top = 160
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get Volume'
|
||||
TabOrder = 14
|
||||
OnClick = GetVolumeClick
|
||||
end
|
||||
object SetVolumeUp10: TButton
|
||||
Left = 155
|
||||
Top = 207
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Volume +10'
|
||||
TabOrder = 15
|
||||
OnClick = SetVolumeUp10Click
|
||||
end
|
||||
object SetVolumeDo10: TButton
|
||||
Left = 155
|
||||
Top = 254
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Volume -10'
|
||||
TabOrder = 16
|
||||
OnClick = SetVolumeDo10Click
|
||||
end
|
||||
object GetPlayRateBtn: TButton
|
||||
Left = 155
|
||||
Top = 300
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get Play Rate'
|
||||
TabOrder = 17
|
||||
OnClick = GetPlayRateBtnClick
|
||||
end
|
||||
object SetPlayRate2xBtn: TButton
|
||||
Left = 155
|
||||
Top = 347
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Play Rate 2x'
|
||||
TabOrder = 18
|
||||
OnClick = SetPlayRate2xBtnClick
|
||||
end
|
||||
object SetPlayRateHalfBtn: TButton
|
||||
Left = 155
|
||||
Top = 394
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Play Rate 1/2'
|
||||
TabOrder = 19
|
||||
OnClick = SetPlayRateHalfBtnClick
|
||||
end
|
||||
object FullScreenYesBtn: TButton
|
||||
Left = 155
|
||||
Top = 441
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'FullScreen'
|
||||
TabOrder = 20
|
||||
OnClick = FullScreenYesBtnClick
|
||||
end
|
||||
object DeInterlaceBtn: TButton
|
||||
Left = 13
|
||||
Top = 541
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'DeInterlace'
|
||||
TabOrder = 21
|
||||
OnClick = DeInterlaceBtnClick
|
||||
end
|
||||
object GetAudioChannel: TButton
|
||||
Left = 155
|
||||
Top = 491
|
||||
Width = 121
|
||||
Height = 40
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Get Audio Ch'
|
||||
TabOrder = 22
|
||||
OnClick = GetAudioChannelClick
|
||||
end
|
||||
object SetAudioChannelLeft: TButton
|
||||
Left = 155
|
||||
Top = 541
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set Audio C L'
|
||||
TabOrder = 23
|
||||
OnClick = SetAudioChannelLeftClick
|
||||
end
|
||||
object SetAudioChannelRight: TButton
|
||||
Left = 155
|
||||
Top = 591
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set Audio C R'
|
||||
TabOrder = 24
|
||||
OnClick = SetAudioChannelRightClick
|
||||
end
|
||||
object SetAudioChannelStereo: TButton
|
||||
Left = 155
|
||||
Top = 641
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set Audio C S'
|
||||
TabOrder = 26
|
||||
OnClick = SetAudioChannelStereoClick
|
||||
end
|
||||
object GetAudioOutListBtn: TButton
|
||||
Left = 13
|
||||
Top = 591
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'AudioOutList'
|
||||
TabOrder = 25
|
||||
OnClick = GetAudioOutListBtnClick
|
||||
end
|
||||
object GetAudioOutDevEnumBtn: TButton
|
||||
Left = 13
|
||||
Top = 641
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'AOutDevEnum'
|
||||
TabOrder = 27
|
||||
OnClick = GetAudioOutDevEnumBtnClick
|
||||
end
|
||||
object GetEqPreListBtn: TButton
|
||||
Left = 155
|
||||
Top = 741
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'EqalizerPreList'
|
||||
TabOrder = 28
|
||||
OnClick = GetEqPreListBtnClick
|
||||
end
|
||||
object SetEqualizerBtn: TButton
|
||||
Left = 155
|
||||
Top = 691
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Set Equalizer'
|
||||
TabOrder = 29
|
||||
OnClick = SetEqualizerBtnClick
|
||||
end
|
||||
object ChAudioOut: TButton
|
||||
Left = 13
|
||||
Top = 691
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'Ch Audio Out'
|
||||
TabOrder = 30
|
||||
OnClick = ChAudioOutClick
|
||||
end
|
||||
object GetAudioTrackList: TButton
|
||||
Left = 13
|
||||
Top = 741
|
||||
Width = 121
|
||||
Height = 41
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Caption = 'AudioTrackList'
|
||||
TabOrder = 31
|
||||
OnClick = GetAudioTrackListClick
|
||||
end
|
||||
end
|
||||
object LB: TListBox
|
||||
AlignWithMargins = True
|
||||
Left = 15
|
||||
Top = 499
|
||||
Width = 516
|
||||
Height = 284
|
||||
Margins.Left = 13
|
||||
Margins.Top = 13
|
||||
Margins.Right = 13
|
||||
Margins.Bottom = 13
|
||||
ItemHeight = 21
|
||||
PopupMenu = LbPopupMenu
|
||||
TabOrder = 1
|
||||
end
|
||||
object MrlEdit: TEdit
|
||||
Left = 13
|
||||
Top = 32
|
||||
Width = 517
|
||||
Height = 29
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
TabOrder = 2
|
||||
end
|
||||
object PasLibVlcPlayer1: TPasLibVlcPlayer
|
||||
Left = 13
|
||||
Top = 73
|
||||
Width = 517
|
||||
Height = 326
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
OnClick = PasLibVlcPlayer1Click
|
||||
OnDblClick = PasLibVlcPlayer1DblClick
|
||||
OnMouseActivate = PasLibVlcPlayer1MouseActivate
|
||||
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 = 13
|
||||
Top = 407
|
||||
Width = 517
|
||||
Height = 74
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
TabOrder = 4
|
||||
object ProgLabel1: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 6
|
||||
Top = 44
|
||||
Width = 66
|
||||
Height = 21
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Align = alLeft
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgLabel2: TLabel
|
||||
AlignWithMargins = True
|
||||
Left = 445
|
||||
Top = 44
|
||||
Width = 66
|
||||
Height = 21
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Align = alRight
|
||||
Caption = '00:00:00'
|
||||
end
|
||||
object ProgBar: TTrackBar
|
||||
Left = 1
|
||||
Top = 1
|
||||
Width = 515
|
||||
Height = 38
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
Align = alTop
|
||||
PositionToolTip = ptBottom
|
||||
TabOrder = 0
|
||||
ThumbLength = 15
|
||||
TickStyle = tsNone
|
||||
OnChange = ProgBarChange
|
||||
end
|
||||
end
|
||||
object BtnSelect: TButton
|
||||
Left = 452
|
||||
Top = 34
|
||||
Width = 75
|
||||
Height = 31
|
||||
Margins.Left = 5
|
||||
Margins.Top = 5
|
||||
Margins.Right = 5
|
||||
Margins.Bottom = 5
|
||||
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 = 60
|
||||
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
|
||||
987
PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
987
PasLibVlc/DelphiXE7/DemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
@@ -0,0 +1,987 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
{$IFDEF UNIX}Unix,{$ENDIF}
|
||||
{$IFDEF MSWINDOWS}Windows,{$ENDIF}
|
||||
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
|
||||
Dialogs, ExtCtrls, StdCtrls, Menus, ComCtrls,
|
||||
{$IFDEF DELPHI_XE2_UP}
|
||||
System.UITypes,
|
||||
{$ENDIF}
|
||||
PasLibVlcUnit, PasLibVlcClassUnit, PasLibVlcPlayerUnit;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
PR: TPanel;
|
||||
PlayBtn: TButton;
|
||||
PauseBtn: TButton;
|
||||
GetWidthBtn: TButton;
|
||||
GetHeightBtn: TButton;
|
||||
GetStateBtn: TButton;
|
||||
ResumeBtn: TButton;
|
||||
GetPosLenBtn: TButton;
|
||||
Scale10Btn: TButton;
|
||||
ScaleFitBtn: TButton;
|
||||
SnapShotBtn: TButton;
|
||||
NextFrameBtn: TButton;
|
||||
GetASpectRatioBtn: TButton;
|
||||
SetAsp11Btn: TButton;
|
||||
SetAsp43Btn: TButton;
|
||||
LB: TListBox;
|
||||
MrlEdit: TEdit;
|
||||
MrlLab: TLabel;
|
||||
GetVolume: TButton;
|
||||
SetVolumeUp10: TButton;
|
||||
SetVolumeDo10: TButton;
|
||||
PopupMenu: TPopupMenu;
|
||||
a1: TMenuItem;
|
||||
b1: TMenuItem;
|
||||
c1: TMenuItem;
|
||||
d1: TMenuItem;
|
||||
GetPlayRateBtn: TButton;
|
||||
SetPlayRate2xBtn: TButton;
|
||||
SetPlayRateHalfBtn: TButton;
|
||||
PasLibVlcPlayer1: TPasLibVlcPlayer;
|
||||
FullScreenYesBtn: TButton;
|
||||
DeInterlaceBtn: TButton;
|
||||
ProgPanel: TPanel;
|
||||
ProgBar: TTrackBar;
|
||||
ProgLabel1: TLabel;
|
||||
ProgLabel2: TLabel;
|
||||
OpenDialog: TOpenDialog;
|
||||
GetAudioChannel: TButton;
|
||||
SetAudioChannelLeft: TButton;
|
||||
SetAudioChannelRight: TButton;
|
||||
SetAudioChannelStereo: TButton;
|
||||
SaveDialog: TSaveDialog;
|
||||
LbPopupMenu: TPopupMenu;
|
||||
LbPmClear: TMenuItem;
|
||||
LnPmSaveAs: TMenuItem;
|
||||
GetAudioOutDevEnumBtn: TButton;
|
||||
GetEqPreListBtn: TButton;
|
||||
SetEqualizerBtn: TButton;
|
||||
ChAudioOut: TButton;
|
||||
GetAudioTrackList: TButton;
|
||||
BtnSelect: TButton;
|
||||
procedure PlayClick(Sender: TObject);
|
||||
procedure PauseClick(Sender: TObject);
|
||||
procedure GetWidthClick(Sender: TObject);
|
||||
procedure GetHeightBtnClick(Sender: TObject);
|
||||
procedure GetStateClick(Sender: TObject);
|
||||
procedure ResumeClick(Sender: TObject);
|
||||
procedure GetPosLenClick(Sender: TObject);
|
||||
procedure Scale10Click(Sender: TObject);
|
||||
procedure ScaleFitClick(Sender: TObject);
|
||||
procedure SnapShotClick(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerBackward(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerBuffering(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerEncounteredError(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerEndReached(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerForward(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerNothingSpecial(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerOpening(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerPaused(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerPlaying(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerStopped(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerLengthChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
procedure PasLibVlcPlayer1MediaPlayerPausableChanged(Sender: TObject;
|
||||
val: Boolean);
|
||||
procedure PasLibVlcPlayer1MediaPlayerPositionChanged(Sender: TObject;
|
||||
position: Single);
|
||||
procedure PasLibVlcPlayer1MediaPlayerSeekableChanged(Sender: TObject;
|
||||
val: Boolean);
|
||||
procedure PasLibVlcPlayer1MediaPlayerTitleChanged(Sender: TObject;
|
||||
title: Integer);
|
||||
procedure PasLibVlcPlayer1MediaPlayerTimeChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
procedure PasLibVlcPlayer1MediaPlayerSnapshotTaken(Sender: TObject;
|
||||
fileName: string);
|
||||
procedure NextFrameClick(Sender: TObject);
|
||||
procedure GetASpectRatioClick(Sender: TObject);
|
||||
procedure SetAsp11Click(Sender: TObject);
|
||||
procedure SetAsp43Click(Sender: TObject);
|
||||
procedure FormResize(Sender: TObject);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure GetVolumeClick(Sender: TObject);
|
||||
procedure SetVolumeUp10Click(Sender: TObject);
|
||||
procedure SetVolumeDo10Click(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1ContextPopup(Sender: TObject; MousePos: TPoint;
|
||||
var Handled: Boolean);
|
||||
procedure PasLibVlcPlayer1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure GetPlayRateBtnClick(Sender: TObject);
|
||||
procedure SetPlayRate2xBtnClick(Sender: TObject);
|
||||
procedure SetPlayRateHalfBtnClick(Sender: TObject);
|
||||
procedure TransPanel1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure PasLibVlcPlayer1MouseEnter(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MouseMove(Sender: TObject; Shift: TShiftState; X,
|
||||
Y: Integer);
|
||||
procedure PasLibVlcPlayer1MouseLeave(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MouseUp(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
procedure PasLibVlcPlayer1Click(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1DblClick(Sender: TObject);
|
||||
procedure FullScreenYesBtnClick(Sender: TObject);
|
||||
procedure DeInterlaceBtnClick(Sender: TObject);
|
||||
procedure ProgBarChange(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerMediaChanged(Sender: TObject;
|
||||
mrl: string);
|
||||
procedure GetAudioChannelClick(Sender: TObject);
|
||||
procedure SetAudioChannelLeftClick(Sender: TObject);
|
||||
procedure SetAudioChannelRightClick(Sender: TObject);
|
||||
procedure SetAudioChannelStereoClick(Sender: TObject);
|
||||
procedure GetAudioOutListBtnClick(Sender: TObject);
|
||||
procedure LbPmClearClick(Sender: TObject);
|
||||
procedure LnPmSaveAsClick(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerVideoOutChanged(Sender: TObject;
|
||||
video_out: Integer);
|
||||
procedure PasLibVlcPlayer1MediaPlayerScrambledChanged(Sender: TObject;
|
||||
scrambled: Integer);
|
||||
procedure GetAudioOutDevEnumBtnClick(Sender: TObject);
|
||||
procedure GetEqPreListBtnClick(Sender: TObject);
|
||||
procedure SetEqualizerBtnClick(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerCorked(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerUnCorked(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerUnMuted(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerMuted(Sender: TObject);
|
||||
procedure ChAudioOutClick(Sender: TObject);
|
||||
procedure GetAudioTrackListClick(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerAudioVolumeChanged(Sender: TObject;
|
||||
volume: Single);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure BtnSelectClick(Sender: TObject);
|
||||
procedure PasLibVlcPlayer1MediaPlayerAudioDevice(Sender: TObject; audio_device: string);
|
||||
procedure PasLibVlcPlayer1MediaPlayerChapterChanged(Sender: TObject; chapter: Integer);
|
||||
procedure PasLibVlcPlayer1MediaPlayerEsAdded(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
procedure PasLibVlcPlayer1MediaPlayerEsDeleted(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
procedure PasLibVlcPlayer1MediaPlayerEsSelected(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
procedure PasLibVlcPlayer1RendererDiscoveredItemAdded(Sender: TObject; item: libvlc_renderer_item_t_ptr);
|
||||
procedure PasLibVlcPlayer1RendererDiscoveredItemDeleted(Sender: TObject; item: libvlc_renderer_item_t_ptr);
|
||||
procedure PasLibVlcPlayer1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer; var MouseActivate: TMouseActivate);
|
||||
private
|
||||
lastAudioVolume : string;
|
||||
start : DWORD;
|
||||
procedure DoResize();
|
||||
procedure LbAdd(Item: string; AObject: TObject = NIL);
|
||||
public
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.dfm}
|
||||
|
||||
uses
|
||||
FullScreenFormUnit,
|
||||
SetEqualizerPresetFormUnit,
|
||||
SelectOutputDeviceFormUnit;
|
||||
|
||||
////////////////////////////////////////////////////////////////////////////////
|
||||
|
||||
procedure TMainForm.LbAdd(Item: string; AObject: TObject = NIL);
|
||||
var
|
||||
current : DWORD;
|
||||
delta : DWORD;
|
||||
begin
|
||||
if (LB.Items.Count = 0) then
|
||||
begin
|
||||
start := GetTickCount();
|
||||
end;
|
||||
current := GetTickCount();
|
||||
if (start <= current) then
|
||||
begin
|
||||
delta := current - start
|
||||
end
|
||||
else
|
||||
begin
|
||||
delta := $FFFFFFFF - start + current;
|
||||
end;
|
||||
LB.AddItem(IntToStr(delta) + ' ms ' + Item, AObject);
|
||||
LB.ItemIndex := LB.Items.Count-1;
|
||||
end;
|
||||
|
||||
procedure TMainForm.LbPmClearClick(Sender: TObject);
|
||||
begin
|
||||
LB.Clear;
|
||||
end;
|
||||
|
||||
procedure TMainForm.LnPmSaveAsClick(Sender: TObject);
|
||||
begin
|
||||
if (SaveDialog.Execute) then
|
||||
LB.Items.SaveToFile(SaveDialog.FileName);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PlayClick(Sender: TObject);
|
||||
var
|
||||
appl_path : string;
|
||||
logo_path : string;
|
||||
logo_file_1 : string;
|
||||
logo_file_2 : string;
|
||||
begin
|
||||
PasLibVlcPlayer1.Play(MrlEdit.Text);
|
||||
|
||||
ProgBar.OnChange := NIL;
|
||||
|
||||
appl_path := ExtractFilePath(Application.ExeName);
|
||||
if ((appl_path <> '') and (appl_path[Length(appl_path)] <> PathDelim)) then
|
||||
begin
|
||||
appl_path := appl_path + PathDelim;
|
||||
end;
|
||||
|
||||
logo_path := appl_path + '..'+PathDelim+'..'+PathDelim+'..'+PathDelim+'..'+PathDelim;
|
||||
|
||||
logo_file_1 := logo_path + 'logo1.png';
|
||||
logo_file_2 := logo_path + 'logo2.png';
|
||||
|
||||
if (FileExists(logo_file_1) and FileExists(logo_file_2)) then
|
||||
begin
|
||||
PasLibVlcPlayer1.LogoShowFiles([logo_file_1, logo_file_2]);
|
||||
end;
|
||||
PasLibVlcPlayer1.MarqueeShowText('marquee test %H:%M:%S');
|
||||
end;
|
||||
|
||||
procedure TMainForm.ProgBarChange(Sender: TObject);
|
||||
begin
|
||||
if PasLibVlcPlayer1.CanSeek() then
|
||||
begin
|
||||
ProgLabel1.Caption := time2str(ProgBar.Position);
|
||||
PasLibVlcPlayer1.SetVideoPosInMs(ProgBar.Position);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1Click(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MouseClick');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1ContextPopup(Sender: TObject;
|
||||
MousePos: TPoint; var Handled: Boolean);
|
||||
begin
|
||||
LBAdd('ContextPopUp');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1DblClick(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MouseDblClick');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerAudioDevice(Sender: TObject; audio_device: string);
|
||||
begin
|
||||
LBAdd('MediaPlayerAudioDevice: ' + audio_device);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerAudioVolumeChanged(
|
||||
Sender: TObject; volume: Single);
|
||||
var
|
||||
newAudioVolume : string;
|
||||
begin
|
||||
newAudioVolume := FloatToStr(volume);
|
||||
if (lastAudioVolume <> newAudioVolume) then
|
||||
begin
|
||||
lastAudioVolume := newAudioVolume;
|
||||
LBAdd('MediaPlayerAudioVolume: ' + lastAudioVolume);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerBackward(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerBackward');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerBuffering(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerBuffering');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerChapterChanged(Sender: TObject; chapter: Integer);
|
||||
begin
|
||||
LBAdd('MediaPlayerChapterChanged: ' + IntToStr(chapter));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerCorked(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerCorked');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerEncounteredError(
|
||||
Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerEncounteredError');
|
||||
LBAdd({$IFDEF DELPHI_XE2_UP}UTF8ToWideString{$ELSE}UTF8Decode{$ENDIF}(libvlc_errmsg()));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerEndReached(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerEndReached');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerEsAdded(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
begin
|
||||
case i_type of
|
||||
libvlc_track_audio : LBAdd('MediaPlayerEsAdded (audio), id = ' + IntToStr(i_id));
|
||||
libvlc_track_video : LBAdd('MediaPlayerEsAdded (video), id = ' + IntToStr(i_id));
|
||||
libvlc_track_text : LBAdd('MediaPlayerEsAdded (text), id = ' + IntToStr(i_id));
|
||||
else
|
||||
LBAdd('MediaPlayerEsAdded (unknown), id = ' + IntToStr(i_id));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerEsDeleted(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
begin
|
||||
case i_type of
|
||||
libvlc_track_audio : LBAdd('PlayerEsDeleted (audio), id = ' + IntToStr(i_id));
|
||||
libvlc_track_video : LBAdd('PlayerEsDeleted (video), id = ' + IntToStr(i_id));
|
||||
libvlc_track_text : LBAdd('PlayerEsDeleted (text), id = ' + IntToStr(i_id));
|
||||
else
|
||||
LBAdd('MediaPlayerEsDeleted (unknown), id = ' + IntToStr(i_id));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerEsSelected(Sender: TObject; i_type: libvlc_track_type_t; i_id: Integer);
|
||||
begin
|
||||
case i_type of
|
||||
libvlc_track_audio : LBAdd('PlayerEsSelected (audio), id = ' + IntToStr(i_id));
|
||||
libvlc_track_video : LBAdd('PlayerEsSelected (video), id = ' + IntToStr(i_id));
|
||||
libvlc_track_text : LBAdd('PlayerEsSelected (text), id = ' + IntToStr(i_id));
|
||||
else
|
||||
LBAdd('MediaPlayerEsSelected (unknown), id = ' + IntToStr(i_id));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerForward(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerForward');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerLengthChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
var
|
||||
oldOnChange : TNotifyEvent;
|
||||
begin
|
||||
LBAdd('MediaPlayerLengthChanged: ' + time2str(time));
|
||||
ProgLabel2.Caption := time2str(time);
|
||||
oldOnChange := ProgBar.OnChange;
|
||||
ProgBar.OnChange := NIL;
|
||||
ProgBar.Max := time;
|
||||
ProgBar.OnChange := oldOnChange;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerMediaChanged(Sender: TObject;
|
||||
mrl: string);
|
||||
begin
|
||||
LBAdd('MediaPlayerMediaChanged: ' + mrl);
|
||||
Caption := mrl;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerMuted(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerMuted');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerNothingSpecial(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerNothingSpecial');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerOpening(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerOpening');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerPausableChanged(Sender: TObject;
|
||||
val: Boolean);
|
||||
begin
|
||||
LBAdd('MediaPlayerPausableChanged: ' + IntToStr(Ord(val)));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerPaused(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerPaused');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerPlaying(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerPlaying');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerPositionChanged(Sender: TObject;
|
||||
position: Single);
|
||||
begin
|
||||
LBAdd('MediaPlayerPositionChanged: ' + FloatToStr(position));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerScrambledChanged(Sender: TObject;
|
||||
scrambled: Integer);
|
||||
begin
|
||||
LBAdd('MediaPlayerScrambledChanged: ' + IntToStr(scrambled));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerSeekableChanged(Sender: TObject;
|
||||
val: Boolean);
|
||||
begin
|
||||
LBAdd('MediaPlayerSeekableChanged: ' + IntToStr(Ord(val)));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerSnapshotTaken(Sender: TObject;
|
||||
fileName: string);
|
||||
begin
|
||||
LBAdd('MediaPlayerSnapshotTaken: ' + fileName);
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerStopped(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerStopped');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerTimeChanged(Sender: TObject;
|
||||
time: Int64);
|
||||
var
|
||||
oldOnChange : TNotifyEvent;
|
||||
begin
|
||||
LBAdd('MediaPlayerTimeChanged: ' + time2str(time));
|
||||
ProgLabel1.Caption := time2str(time);
|
||||
oldOnChange := ProgBar.OnChange;
|
||||
ProgBar.OnChange := NIL;
|
||||
ProgBar.Position := time;
|
||||
ProgBar.OnChange := oldOnChange;
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerTitleChanged(Sender: TObject;
|
||||
title: Integer);
|
||||
begin
|
||||
LBAdd('MediaPlayerTitleChanged: ' + IntToStr(title));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerUnCorked(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerUnCorked');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerUnMuted(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MediaPlayerUnMuted');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MediaPlayerVideoOutChanged(Sender: TObject;
|
||||
video_out: Integer);
|
||||
begin
|
||||
LBAdd('MediaPlayerVideoOutChanged: ' + IntToStr(video_out));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseActivate(Sender: TObject; Button: TMouseButton; Shift: TShiftState; X, Y, HitTest: Integer; var MouseActivate: TMouseActivate);
|
||||
begin
|
||||
LBAdd('MouseActivate(' + IntToStr(X) + ', ' + IntToStr(Y) + ')');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseDown(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
LBAdd('MouseDown(' + IntToStr(X) + ', ' + IntToStr(Y) + ')');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseEnter(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MouseEnter');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseLeave(Sender: TObject);
|
||||
begin
|
||||
LBAdd('MouseLeave');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseMove(Sender: TObject;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
LBAdd('MouseMove ' + IntToStr(x) + ', ' + IntToStr(y));
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1MouseUp(Sender: TObject;
|
||||
Button: TMouseButton; Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
LBAdd('MouseUp(' + IntToStr(X) + ', ' + IntToStr(Y) + ')');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1RendererDiscoveredItemAdded(Sender: TObject; item: libvlc_renderer_item_t_ptr);
|
||||
begin
|
||||
LBAdd('RendererDiscoveredItemAdded');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PasLibVlcPlayer1RendererDiscoveredItemDeleted(Sender: TObject; item: libvlc_renderer_item_t_ptr);
|
||||
begin
|
||||
LBAdd('RendererDiscoveredItemDeleted');
|
||||
end;
|
||||
|
||||
procedure TMainForm.PauseClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.Pause();
|
||||
ProgBar.OnChange := ProgBarChange;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetWidthClick(Sender: TObject);
|
||||
begin
|
||||
MessageDlg(
|
||||
'Video width = ' + IntToStr(PasLibVlcPlayer1.GetVideoWidth()),
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.NextFrameClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.NextFrame();
|
||||
LBAdd('Position:'+IntToStr(PasLibVlcPlayer1.GetVideoPosInMs()));
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
PasLibVlcPlayer1.Stop();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
// you can set custom path to libvlc.dll before call use PasLibVlcPlayer component
|
||||
// PasLibVlcPlayer1.VLC.Path := 'C:\Program Files (x86)\VideoLAN\VLC';
|
||||
// MrlEdit.Text := '..'+PathDelim+'..'+PathDelim+'..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'test.ts';
|
||||
MrlEdit.Text :=
|
||||
'..'+PathDelim+'..'+PathDelim+'..'+PathDelim+'..'+PathDelim+
|
||||
'_testFiles'+PathDelim+'Maximize.mp4';
|
||||
DoResize();
|
||||
Caption := Caption + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormMouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
LBAdd('FormMouseDown');
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormResize(Sender: TObject);
|
||||
begin
|
||||
DoResize();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FullScreenYesBtnClick(Sender: TObject);
|
||||
var
|
||||
aFullScreenForm : TFullScreenForm;
|
||||
oldL, oldT, oldW, oldH : Integer;
|
||||
oldA : TAlign;
|
||||
begin
|
||||
MessageDlg('Press any key, to leave full screen mode', mtInformation, [mbOK], 0);
|
||||
|
||||
oldL := PasLibVlcPlayer1.Left;
|
||||
oldT := PasLibVlcPlayer1.Top;
|
||||
oldW := PasLibVlcPlayer1.Width;
|
||||
oldH := PasLibVlcPlayer1.Height;
|
||||
oldA := PasLibVlcPlayer1.Align;
|
||||
|
||||
if (oldA <> alNone) then PasLibVlcPlayer1.Align := alNone;
|
||||
|
||||
aFullScreenForm := TFullScreenForm.Create(SELF);
|
||||
aFullScreenForm.SetBounds(Monitor.Left, Monitor.Top, Monitor.Width, Monitor.Height);
|
||||
|
||||
// PasLibVlcPlayer1.ParentWindow := aFullScreenForm.Handle;
|
||||
{$IFDEF FPC}
|
||||
LCLIntf.SetParent(PasLibVlcPlayer1.Handle, aFullScreenForm.Handle);
|
||||
{$ELSE}
|
||||
{$IFDEF MSWINDOWS}
|
||||
Windows.SetParent(PasLibVlcPlayer1.Handle, aFullScreenForm.Handle);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
PasLibVlcPlayer1.SetBounds(0, 0, aFullScreenForm.Width, aFullScreenForm.Height);
|
||||
|
||||
aFullScreenForm.ShowModal;
|
||||
|
||||
PasLibVlcPlayer1.SetBounds(oldL, oldT, oldW, oldH);
|
||||
{$IFDEF FPC}
|
||||
LCLIntf.SetParent(PasLibVlcPlayer1.Handle, SELF.Handle);
|
||||
{$ELSE}
|
||||
{$IFDEF MSWINDOWS}
|
||||
Windows.SetParent(PasLibVlcPlayer1.Handle, SELF.Handle);
|
||||
{$ENDIF}
|
||||
{$ENDIF}
|
||||
|
||||
aFullScreenForm.Free;
|
||||
|
||||
if (oldA <> alNone) then PasLibVlcPlayer1.Align := oldA;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetAspectRatioClick(Sender: TObject);
|
||||
var
|
||||
info : string;
|
||||
sar_num, sar_den : LongWord;
|
||||
begin
|
||||
info := 'Aspect ratio = ' + PasLibVlcPlayer1.GetVideoAspectRatio();
|
||||
if (PasLibVlcPlayer1.GetVideoSampleAspectRatio(sar_num, sar_den)) then
|
||||
begin
|
||||
info := info + ', SampleAspectRatio = ' + IntToStr(sar_num) + ':' + IntToStr(sar_den);
|
||||
end;
|
||||
MessageDlg(
|
||||
info,
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetAudioChannelClick(Sender: TObject);
|
||||
var
|
||||
chname: string;
|
||||
begin
|
||||
chname := 'Unknown';
|
||||
case PasLibVlcPlayer1.GetAudioChannel() of
|
||||
libvlc_AudioChannel_Error : chname := 'Error';
|
||||
libvlc_AudioChannel_NotAvail : chname := 'Not availiable';
|
||||
libvlc_AudioChannel_Stereo : chname := 'Stereo';
|
||||
libvlc_AudioChannel_RStereo : chname := 'RStereo';
|
||||
libvlc_AudioChannel_Left : chname := 'Left';
|
||||
libvlc_AudioChannel_Right : chname := 'Right';
|
||||
libvlc_AudioChannel_Dolbys : chname := 'Dolbys';
|
||||
end;
|
||||
MessageDlg(chname, mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetAudioOutDevEnumBtnClick(Sender: TObject);
|
||||
var
|
||||
ls1 : TStringList;
|
||||
id1 : Integer;
|
||||
begin
|
||||
LBAdd('GetAudioOutputDeviceEnum');
|
||||
ls1 := PasLibVlcPlayer1.GetAudioOutputDeviceEnum();
|
||||
for id1 := 0 to ls1.Count - 1 do
|
||||
begin
|
||||
LBAdd(' ' + ls1.Strings[id1]);
|
||||
end;
|
||||
ls1.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetAudioOutListBtnClick(Sender: TObject);
|
||||
var
|
||||
ls1 : TStringList;
|
||||
ls2 : TStringList;
|
||||
id1 : Integer;
|
||||
id2 : Integer;
|
||||
begin
|
||||
LBAdd('GetAudioOutputList');
|
||||
ls1 := PasLibVlcPlayer1.GetAudioOutputList();
|
||||
for id1 := 0 to ls1.Count - 1 do
|
||||
begin
|
||||
LBAdd(' ' + ls1.Strings[id1]);
|
||||
ls2 := PasLibVlcPlayer1.GetAudioOutputDeviceList(ls1.Strings[id1]);
|
||||
if (ls2.Count < 1) then
|
||||
begin
|
||||
LBAdd(' no devices found');
|
||||
end;
|
||||
for id2 := 0 to ls2.Count - 1 do
|
||||
begin
|
||||
LBAdd(' device: ' + ls2.Strings[id2]);
|
||||
end;
|
||||
ls2.Free;
|
||||
end;
|
||||
ls1.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetAudioTrackListClick(Sender: TObject);
|
||||
var
|
||||
ls1 : TStringList;
|
||||
id1 : Integer;
|
||||
begin
|
||||
LBAdd('GetAudioTrackList');
|
||||
ls1 := PasLibVlcPlayer1.GetAudioTrackList();
|
||||
if (ls1.Count < 1) then
|
||||
begin
|
||||
LBAdd(' no audio tracks found');
|
||||
end;
|
||||
for id1 := 0 to ls1.Count - 1 do
|
||||
begin
|
||||
LBAdd(' audio track, ID: ' + IntToStr(Int64(ls1.Objects[id1])) + ' - ' + ls1.Strings[id1]);
|
||||
end;
|
||||
ls1.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetEqPreListBtnClick(Sender: TObject);
|
||||
var
|
||||
ls1 : TStringList;
|
||||
id1 : Integer;
|
||||
ebc : Word;
|
||||
begin
|
||||
LBAdd('GetEqualizerPresetList');
|
||||
ls1 := PasLibVlcPlayer1.EqualizerGetPresetList();
|
||||
for id1 := 0 to ls1.Count - 1 do
|
||||
begin
|
||||
LBAdd(' ' + IntToStr(Word(ls1.Objects[id1])) + ' - ' + ls1.Strings[id1]);
|
||||
end;
|
||||
ls1.Free;
|
||||
|
||||
ebc := PasLibVlcPlayer1.EqualizerGetBandCount();
|
||||
|
||||
LBAdd('GetEqualizerBandCount = ' + IntToStr(ebc));
|
||||
|
||||
LBAdd('GetEqualizerBandFrequency');
|
||||
for id1 := 0 to ebc - 1 do
|
||||
begin
|
||||
LBAdd(' ' + IntToStr(id1) + ' - ' + IntToStr(Round(PasLibVlcPlayer1.EqualizerGetBandFrequency(id1))));
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetHeightBtnClick(Sender: TObject);
|
||||
begin
|
||||
MessageDlg(
|
||||
'Video height = ' + IntToStr(PasLibVlcPlayer1.GetVideoHeight()),
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetPlayRateBtnClick(Sender: TObject);
|
||||
begin
|
||||
MessageDlg(
|
||||
'Play rate = ' + IntToStr(PasLibVlcPlayer1.GetPlayRate()),
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetPosLenClick(Sender: TObject);
|
||||
begin
|
||||
MessageDlg(
|
||||
'Len = ' + IntToStr(PasLibVlcPlayer1.GetVideoLenInMs()) + ' ms, '+
|
||||
'Pos = ' + IntToStr(PasLibVlcPlayer1.GetVideoPosInMs()),
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetStateClick(Sender: TObject);
|
||||
var
|
||||
stateName: string;
|
||||
begin
|
||||
case PasLibVlcPlayer1.GetState() of
|
||||
plvPlayer_NothingSpecial: stateName := 'Idle';
|
||||
plvPlayer_Opening: stateName := 'Opening';
|
||||
plvPlayer_Buffering: stateName := 'Buffering';
|
||||
plvPlayer_Playing: stateName := 'Playing';
|
||||
plvPlayer_Paused: stateName := 'Paused';
|
||||
plvPlayer_Stopped: stateName := 'Stopped';
|
||||
plvPlayer_Ended: stateName := 'Ended';
|
||||
plvPlayer_Error: stateName := 'Error';
|
||||
else stateName := 'Unknown';
|
||||
end;
|
||||
MessageDlg('State = ' + stateName, mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.GetVolumeClick(Sender: TObject);
|
||||
begin
|
||||
MessageDlg(
|
||||
'Volume level = ' + IntToStr(PasLibVlcPlayer1.GetAudioVolume()),
|
||||
mtInformation, [mbOK], 0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.ResumeClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.Resume();
|
||||
ProgBar.OnChange := NIL;
|
||||
end;
|
||||
|
||||
procedure TMainForm.Scale10Click(Sender: TObject);
|
||||
var
|
||||
sc: Single;
|
||||
begin
|
||||
sc := PasLibVlcPlayer1.GetVideoScaleInPercent;
|
||||
if (sc < 1) then sc := 100;
|
||||
sc := sc - 10;
|
||||
if PasLibVlcPlayer1.IsPlay() then
|
||||
PasLibVlcPlayer1.SetVideoScaleInPercent(sc);
|
||||
end;
|
||||
|
||||
procedure TMainForm.ScaleFitClick(Sender: TObject);
|
||||
begin
|
||||
if PasLibVlcPlayer1.IsPlay() then
|
||||
PasLibVlcPlayer1.SetVideoScaleInPercent(0);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetAsp11Click(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetVideoAspectRatio('1:1');
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetAsp43Click(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetVideoAspectRatio('4:3');
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetAudioChannelLeftClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetAudioChannel(libvlc_AudioChannel_Left);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetAudioChannelRightClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetAudioChannel(libvlc_AudioChannel_Right);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetAudioChannelStereoClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetAudioChannel(libvlc_AudioChannel_Stereo);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetEqualizerBtnClick(Sender: TObject);
|
||||
var
|
||||
eqf : TSetEqualizerPresetForm;
|
||||
prl : TStringList;
|
||||
begin
|
||||
prl := PasLibVlcPlayer1.EqualizerGetPresetList();
|
||||
eqf := TSetEqualizerPresetForm.Create(SELF);
|
||||
eqf.FVLC := PasLibVlcPlayer1.VLC;
|
||||
eqf.PresetListLB.Items.AddStrings(prl);
|
||||
if eqf.ShowModal = mrOK then
|
||||
begin
|
||||
if (eqf.PresetListLB.ItemIndex > -1) then
|
||||
begin
|
||||
PasLibVlcPlayer1.EqualizerSetPreset(
|
||||
Word(prl.Objects[eqf.PresetListLB.ItemIndex])
|
||||
);
|
||||
end;
|
||||
end;
|
||||
eqf.Free;
|
||||
prl.Free;
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetPlayRate2xBtnClick(Sender: TObject);
|
||||
var
|
||||
newPlayRate: Integer;
|
||||
begin
|
||||
newPlayRate := PasLibVlcPlayer1.GetPlayRate() * 2;
|
||||
if (newPlayRate > 400) then exit;
|
||||
PasLibVlcPlayer1.SetPlayRate(newPlayRate);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetPlayRateHalfBtnClick(Sender: TObject);
|
||||
var
|
||||
newPlayRate: Integer;
|
||||
begin
|
||||
newPlayRate := PasLibVlcPlayer1.GetPlayRate() div 2;
|
||||
if (newPlayRate < 25) then exit;
|
||||
PasLibVlcPlayer1.SetPlayRate(newPlayRate);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetVolumeDo10Click(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()-10);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SetVolumeUp10Click(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SetAudioVolume(PasLibVlcPlayer1.GetAudioVolume()+10);
|
||||
end;
|
||||
|
||||
procedure TMainForm.SnapShotClick(Sender: TObject);
|
||||
begin
|
||||
PasLibVlcPlayer1.SnapShot(ChangeFileExt(Application.ExeName, '.png'));
|
||||
end;
|
||||
|
||||
procedure TMainForm.TransPanel1MouseDown(Sender: TObject; Button: TMouseButton;
|
||||
Shift: TShiftState; X, Y: Integer);
|
||||
begin
|
||||
LBAdd('Trans MouseDown(' + IntToStr(X) + ', ' + IntToStr(Y) + ')');
|
||||
end;
|
||||
|
||||
procedure TMainForm.BtnSelectClick(Sender: TObject);
|
||||
begin
|
||||
if (OpenDialog.Execute) then
|
||||
MrlEdit.Text := OpenDialog.FileName;
|
||||
end;
|
||||
|
||||
procedure TMainForm.ChAudioOutClick(Sender: TObject);
|
||||
var
|
||||
adLst : TStringList;
|
||||
chAdForm : TSelectOutputDeviceForm;
|
||||
newAudioDevice : string;
|
||||
selIdx : Integer;
|
||||
begin
|
||||
chAdForm := TSelectOutputDeviceForm.Create(SELF);
|
||||
try
|
||||
chAdForm.OutputDevicesLB.Clear;
|
||||
adLst := PasLibVlcPlayer1.GetAudioOutputDeviceEnum(TRUE);
|
||||
chAdForm.OutputDevicesLB.Items.AddStrings(adLst);
|
||||
chAdForm.OutputDevicesLB.ItemIndex := -1;
|
||||
for selIdx := 0 to chAdForm.OutputDevicesLB.Items.Count - 1 do
|
||||
begin
|
||||
newAudioDevice := chAdForm.OutputDevicesLB.Items.Strings[selIdx];
|
||||
if PasLibVlcPlayer1.LastAudioOutputDeviceId = Copy(newAudioDevice, 1, Pos('|', newAudioDevice) - 1) then
|
||||
begin
|
||||
chAdForm.OutputDevicesLB.ItemIndex := selIdx;
|
||||
break;
|
||||
end;
|
||||
end;
|
||||
if (chAdForm.ShowModal = mrOK) then
|
||||
begin
|
||||
newAudioDevice := chAdForm.OutputDevicesLB.Items.Strings[chAdForm.OutputDevicesLB.ItemIndex];
|
||||
newAudioDevice := Copy(newAudioDevice, 1, Pos('|', newAudioDevice) - 1);
|
||||
LBAdd('Change Audio Device: ' + newAudioDevice);
|
||||
PasLibVlcPlayer1.SetAudioOutputDevice(newAudioDevice);
|
||||
end;
|
||||
adLst.Free;
|
||||
finally
|
||||
chAdForm.Free;
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.DeInterlaceBtnClick(Sender: TObject);
|
||||
begin
|
||||
if (PasLibVlcPlayer1.DeInterlaceFilter = deOFF) then
|
||||
begin
|
||||
PasLibVlcPlayer1.DeinterlaceMode := dmX;
|
||||
PasLibVlcPlayer1.DeInterlaceFilter := deON;
|
||||
LBAdd('DeInterlaceFilter = ON, ' + PasLibVlcPlayer1.DeinterlaceModeName);
|
||||
end
|
||||
else
|
||||
begin
|
||||
PasLibVlcPlayer1.DeInterlaceFilter := deOFF;
|
||||
LBAdd('DeInterlaceFilter = OFF');
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.DoResize();
|
||||
begin
|
||||
MrlEdit.Width := PR.Left - 16;
|
||||
LB.Width := MrlEdit.Width;
|
||||
LB.Top := ClientHeight - 8 - LB.Height;
|
||||
ProgPanel.Top := LB.Top - 8 - ProgPanel.Height;
|
||||
ProgPanel.Width := LB.Width;
|
||||
|
||||
PasLibVlcPlayer1.Width := LB.Width;
|
||||
PasLibVlcPlayer1.Height := Lb.Top - MrlEdit.Top - MrlEdit.Height - 16 - ProgPanel.Height - 8;
|
||||
|
||||
BtnSelect.SetBounds(
|
||||
MrlEdit.Left + MrlEdit.Width - BtnSelect.Width - 1,
|
||||
MrlEdit.Top + 1,
|
||||
BtnSelect.Width,
|
||||
MrlEdit.Height - 2
|
||||
);
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,55 @@
|
||||
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
|
||||
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,92 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$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,87 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$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.
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<%appSandboxKeys%>
|
||||
</dict>
|
||||
</plist>
|
||||
@@ -0,0 +1,5 @@
|
||||
FmxDemoPasLibVlc.app\../\FmxDemoPasLibVlc.entitlements
|
||||
FmxDemoPasLibVlc.app\Contents\MacOS\libcgunwind.1.0.dylib
|
||||
FmxDemoPasLibVlc.app\Contents\Resources\FmxDemoPasLibVlc.icns
|
||||
FmxDemoPasLibVlc.app\Contents\Info.plist
|
||||
FmxDemoPasLibVlc.app\Contents\MacOS\FmxDemoPasLibVlc
|
||||
106
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.deployproj
Normal file
106
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.deployproj
Normal file
@@ -0,0 +1,106 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Condition="Exists('$(BDS)\bin\CodeGear.Deployment.targets')" Project="$(BDS)\bin\CodeGear.Deployment.targets"/>
|
||||
<ProjectExtensions>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<ItemGroup Condition="'$(Platform)'=='Android'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='iOSDevice'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='Win32'">
|
||||
<DeployFile Include="Win32\Debug\FmxDemoPasLibVlc.exe" Condition="'$(Config)'=='Debug'">
|
||||
<RemoteDir>FmxDemoPasLibVlc\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc.exe</RemoteName>
|
||||
<Operation>0</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
<Required>True</Required>
|
||||
</DeployFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup Condition="'$(Platform)'=='OSX32'">
|
||||
<DeployFile Include="OSX32\Debug\FmxDemoPasLibVlc.info.plist" Condition="'$(Config)'=='Debug'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\</RemoteDir>
|
||||
<RemoteName>Info.plist</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlc.entitlements" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\../\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc.entitlements</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>libcgunwind.1.0.dylib</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Debug'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\Resources\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc.icns</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\Resources\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc.icns</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlc.info.plist" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\</RemoteDir>
|
||||
<RemoteName>Info.plist</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Debug\FmxDemoPasLibVlc" Condition="'$(Config)'=='Debug'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
<Required>True</Required>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Debug\FmxDemoPasLibVlc.entitlements" Condition="'$(Config)'=='Debug'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\../\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc.entitlements</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlc" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlc</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
<Required>True</Required>
|
||||
</DeployFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup Condition="'$(Platform)'=='iOSSimulator'">
|
||||
<DeployFile Include="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlc.app\</RemoteDir>
|
||||
<RemoteName>libcgunwind.1.0.dylib</RemoteName>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
|
||||
</Project>
|
||||
43
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dpr
Normal file
43
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dpr
Normal file
@@ -0,0 +1,43 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program FmxDemoPasLibVlc;
|
||||
|
||||
uses
|
||||
System.StartUpCopy,
|
||||
FMX.Forms,
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
ReportMemoryLeaksOnShutdown := True;
|
||||
Application.Initialize;
|
||||
Application.Title := 'FmxDemoPasLibVlc' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
715
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dproj
Normal file
715
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/FmxDemoPasLibVlc.dproj
Normal file
@@ -0,0 +1,715 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{AB9924EC-EC87-4D85-9DEF-ECD75BD9D055}</ProjectGuid>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<FrameworkType>FMX</FrameworkType>
|
||||
<MainSource>FmxDemoPasLibVlc.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win64</Platform>
|
||||
<TargetedPlatforms>31</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
|
||||
<Base_iOSSimulator>true</Base_iOSSimulator>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
|
||||
<Base_OSX32>true</Base_OSX32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Cfg_1)'=='true') or '$(Cfg_1_Android)'!=''">
|
||||
<Cfg_1_Android>true</Cfg_1_Android>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Cfg_1)'=='true') or '$(Cfg_1_iOSSimulator)'!=''">
|
||||
<Cfg_1_iOSSimulator>true</Cfg_1_iOSSimulator>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Cfg_1)'=='true') or '$(Cfg_1_OSX32)'!=''">
|
||||
<Cfg_1_OSX32>true</Cfg_1_OSX32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Cfg_2)'=='true') or '$(Cfg_2_Android)'!=''">
|
||||
<Cfg_2_Android>true</Cfg_2_Android>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Cfg_2)'=='true') or '$(Cfg_2_iOSSimulator)'!=''">
|
||||
<Cfg_2_iOSSimulator>true</Cfg_2_iOSSimulator>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX32)'!=''">
|
||||
<Cfg_2_OSX32>true</Cfg_2_OSX32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\;.\..\..\source.fmx\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION>
|
||||
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION>
|
||||
<SanitizedProjectName>FmxDemoPasLibVlc</SanitizedProjectName>
|
||||
<AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE>
|
||||
<AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE>
|
||||
<AUP_READ_CALENDAR>true</AUP_READ_CALENDAR>
|
||||
<AUP_WRITE_CALENDAR>true</AUP_WRITE_CALENDAR>
|
||||
<AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE>
|
||||
<AUP_CAMERA>true</AUP_CAMERA>
|
||||
<AUP_CALL_PHONE>true</AUP_CALL_PHONE>
|
||||
<AUP_INTERNET>true</AUP_INTERNET>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
<Android_SplashTileMode>disabled</Android_SplashTileMode>
|
||||
<Android_SplashGravity>center</Android_SplashGravity>
|
||||
<Android_SplashImage960>$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png</Android_SplashImage960>
|
||||
<Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<Android_SplashImage470>$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png</Android_SplashImage470>
|
||||
<Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
|
||||
<Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
|
||||
<Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
|
||||
<Android_SplashImage426>$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png</Android_SplashImage426>
|
||||
<Android_SplashImage640>$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png</Android_SplashImage640>
|
||||
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;fmx.dex.jar;google-analytics-v2.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar;google-play-services.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
|
||||
<iPad_SpotLight50>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
|
||||
<iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
|
||||
<iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
|
||||
<iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<iPad_Launch1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
|
||||
<iPad_Launch1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
|
||||
<iPhone_Spotlight29>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
|
||||
<iPad_AppIcon144>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
|
||||
<iPhone_Launch750>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png</iPhone_Launch750>
|
||||
<iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
|
||||
<iPhone_Launch640x1136>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
|
||||
<iPhone_Launch1242>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png</iPhone_Launch1242>
|
||||
<iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
|
||||
<iPhone_AppIcon57>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
|
||||
<iPhone_Launch320>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
|
||||
<iPhone_Launch640>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
|
||||
<iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
|
||||
<iPhone_AppIcon87>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png</iPhone_AppIcon87>
|
||||
<iPad_SpotLight100>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
|
||||
<iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
|
||||
<iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
|
||||
<iPhone_AppIcon180>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png</iPhone_AppIcon180>
|
||||
<iPad_Launch2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
|
||||
<iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
|
||||
<iPad_Setting58>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
|
||||
<iPad_Launch768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
|
||||
<iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
|
||||
<iPad_Setting29>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
|
||||
<iPhone_AppIcon114>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
|
||||
<iPhone_Launch2208>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png</iPhone_Launch2208>
|
||||
<iPad_AppIcon72>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<iPhone_Spotlight58>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
|
||||
<VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
|
||||
<VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSCameraUsageDescription=The reason for accessing the camera;CFBundleShortVersionString=1.0.0</VerInfo_Keys>
|
||||
<iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
|
||||
<iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
|
||||
<iPhone_Launch1125>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png</iPhone_Launch1125>
|
||||
<iPhone_Launch2436>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png</iPhone_Launch2436>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_OSX32)'!=''">
|
||||
<Debugger_Launcher>/usr/X11/bin/xterm -e "%debuggee%"</Debugger_Launcher>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDACMSSQLDriver;FireDAC;DBXInformixDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;CFBundleShortVersionString=1.0.0</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=FmxDemoPasLibVlc;FileVersion=1.0.0.0;InternalName=FmxDemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=FmxDemoPasLibVlc;ProductName=FmxDemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;frxe21;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;frx21;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;FMXfrx21;rtl;dbrtl;DbxClientDriver;FMXfrxDB21;FireDACCommon;bindcomp;inetdb;frxTee21;Tee;DBXOdbcDriver;frxDB21;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;PasLibVlcPlayer;DataSnapConnectors;FmxPasLibVlc;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=FmxDemoPasLibVlc;FileVersion=1.0.0.0;InternalName=FmxDemoPasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=FmxDemoPasLibVlc;ProductName=FmxDemoPasLibVlc;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;PasLibVlcPlayer;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Android)'!=''">
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_iOSSimulator)'!=''">
|
||||
<VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_OSX32)'!=''">
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Android)'!=''">
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_iOSSimulator)'!=''">
|
||||
<VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_OSX32)'!=''">
|
||||
<Debugger_Launcher>/usr/X11/bin/xterm -e "%debuggee%"</Debugger_Launcher>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
<FormType>fmx</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Application</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">FmxDemoPasLibVlc.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k250.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp250.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\bin\delphi_PROJECTICNS.icns" Configuration="Debug" Class="ProjectOSXResource"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlc" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlc.entitlements" Configuration="Debug" Class="ProjectOSXEntitlements"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlc.info.plist" Configuration="Debug" Class="ProjectOSXInfoPList"/>
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlc" Configuration="Release" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlc.info.plist" Configuration="Release" Class="ProjectOSXInfoPList"/>
|
||||
<DeployFile LocalName="Win32\Debug\FmxDemoPasLibVlc.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlc.entitlements" Configuration="Release" Class="ProjectOSXEntitlements"/>
|
||||
<DeployFile LocalName="$(BDS)\bin\delphi_PROJECTICNS.icns" Configuration="Release" Class="ProjectOSXResource"/>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeX86File">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\x86</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">True</Platform>
|
||||
<Platform value="iOSSimulator" ActiveMobileDevice="iPad">True</Platform>
|
||||
<Platform value="OSX32">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
@@ -0,0 +1,5 @@
|
||||
inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh
|
||||
ClientHeight = 695
|
||||
ClientWidth = 450
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,5 @@
|
||||
inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh
|
||||
ClientHeight = 375
|
||||
ClientWidth = 250
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,5 @@
|
||||
inherited MainForm_Surface: TMainForm_Surface
|
||||
ClientHeight = 1920
|
||||
ClientWidth = 1080
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,3 @@
|
||||
inherited MainForm_Windows: TMainForm_Windows
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
39
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.fmx
Normal file
39
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.fmx
Normal file
@@ -0,0 +1,39 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'FmxDemoPasLibVlc'
|
||||
ClientHeight = 480
|
||||
ClientWidth = 640
|
||||
Position = ScreenCenter
|
||||
FormFactor.Width = 320
|
||||
FormFactor.Height = 480
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnActivate = FormActivate
|
||||
OnCreate = FormCreate
|
||||
OnClose = FormClose
|
||||
DesignerMasterStyle = 0
|
||||
object MainMenu: TMainMenu
|
||||
Left = 128
|
||||
Top = 80
|
||||
object MenuFile: TMenuItem
|
||||
Text = 'File'
|
||||
object MenuOpen: TMenuItem
|
||||
Locked = True
|
||||
ShortCut = 16463
|
||||
Text = 'Open'
|
||||
OnClick = MenuOpenClick
|
||||
end
|
||||
object MenuQuit: TMenuItem
|
||||
Locked = True
|
||||
ShortCut = 16465
|
||||
Text = 'Quit'
|
||||
OnClick = MenuQuitClick
|
||||
end
|
||||
end
|
||||
end
|
||||
object OpenDialog: TOpenDialog
|
||||
InitialDir = 'C:\_LibXE\vlc\_testFiles'
|
||||
Left = 40
|
||||
Top = 80
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,5 @@
|
||||
inherited MainForm_iPad: TMainForm_iPad
|
||||
ClientHeight = 1004
|
||||
ClientWidth = 768
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,5 @@
|
||||
inherited MainForm_iPhone55in: TMainForm_iPhone55in
|
||||
ClientHeight = 716
|
||||
ClientWidth = 414
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
239
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.pas
Normal file
239
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/MainFormUnit.pas
Normal file
@@ -0,0 +1,239 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Menus,
|
||||
{$IFDEF MSWINDOWS}
|
||||
FMX.Platform.Win,
|
||||
{$ENDIF}
|
||||
{$IFDEF MACOS}
|
||||
FMX.Platform.Mac,
|
||||
Macapi.AppKit,
|
||||
Macapi.CocoaTypes,
|
||||
Macapi.Foundation,
|
||||
Macapi.Helpers,
|
||||
Macapi.ObjectiveC,
|
||||
Macapi.CoreGraphics,
|
||||
Macapi.CoreFoundation,
|
||||
{$ENDIF}
|
||||
FMX.StdCtrls, FMX.Viewport3D, FMX.Objects, FMX.Media,
|
||||
FMX.ExtCtrls, FMX.Advertising,
|
||||
PasLibVlcUnit;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
MainMenu: TMainMenu;
|
||||
MenuFile: TMenuItem;
|
||||
MenuOpen: TMenuItem;
|
||||
OpenDialog: TOpenDialog;
|
||||
MenuQuit: TMenuItem;
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure MenuOpenClick(Sender: TObject);
|
||||
procedure MenuQuitClick(Sender: TObject);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormActivate(Sender: TObject);
|
||||
private
|
||||
p_li : libvlc_instance_t_ptr;
|
||||
p_mi : libvlc_media_t_ptr;
|
||||
public
|
||||
procedure PlayerInit();
|
||||
procedure PlayerStop();
|
||||
procedure PlayerPlay(fileName: WideString);
|
||||
procedure PlayerDestroy();
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
{$R *.Windows.fmx MSWINDOWS}
|
||||
{$R *.Surface.fmx MSWINDOWS}
|
||||
{$R *.SmXhdpiPh.fmx ANDROID}
|
||||
{$R *.LgXhdpiPh.fmx ANDROID}
|
||||
{$R *.iPad.fmx IOS}
|
||||
{$R *.iPhone55in.fmx IOS}
|
||||
|
||||
procedure TMainForm.PlayerInit();
|
||||
begin
|
||||
// libvlc_dynamic_dll_init_with_path('C:\Program Files (x86)\VideoLAN\VLC');
|
||||
libvlc_dynamic_dll_init();
|
||||
|
||||
if (libvlc_dynamic_dll_error <> '') then
|
||||
begin
|
||||
ShowMessage(libvlc_dynamic_dll_error);
|
||||
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.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);
|
||||
Sleep(50);
|
||||
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.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);
|
||||
{$IFDEF MSWINDOWS}
|
||||
libvlc_media_player_set_display_window(p_mi, WindowHandleToPlatform(MainForm.Handle).Wnd);
|
||||
{$ENDIF}
|
||||
{$IFDEF MACOS}
|
||||
libvlc_media_player_set_display_window(p_mi, WindowHandleToPlatform(MainForm.Handle).View.superview);
|
||||
{$ENDIF}
|
||||
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.PlayerDestroy();
|
||||
begin
|
||||
if (p_li <> NIL) then
|
||||
begin
|
||||
PlayerStop();
|
||||
libvlc_release(p_li);
|
||||
p_li := NIL;
|
||||
end;
|
||||
libvlc_dynamic_dll_done();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormActivate(Sender: TObject);
|
||||
{$IFDEF MACOS}
|
||||
var
|
||||
windowHandle : TMacWindowHandle;
|
||||
size : NSSize;
|
||||
begin
|
||||
windowHandle := WindowHandleToPlatform( Handle );
|
||||
|
||||
// set the minimum size of the window
|
||||
size.width := 512;
|
||||
size.height := 512;
|
||||
windowHandle.Wnd.setContentMinSize( size );
|
||||
|
||||
// set the maximum size of the window
|
||||
size.width := 1024;
|
||||
size.height := 768;
|
||||
windowHandle.Wnd.setContentMaxSize( size );
|
||||
|
||||
// set window remember screen size
|
||||
windowHandle.Wnd.setFrameAutosaveName(StrToNSStr('MainForm'));
|
||||
|
||||
// Allow dragging of an FMX form by clicking anywhere in the client area, not just the title bar
|
||||
windowHandle.Wnd.setMovableByWindowBackground( true );
|
||||
end;
|
||||
{$ELSE}
|
||||
begin
|
||||
|
||||
end;
|
||||
{$ENDIF}
|
||||
|
||||
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.MenuOpenClick(Sender: TObject);
|
||||
begin
|
||||
if OpenDialog.Execute() then
|
||||
begin
|
||||
PlayerPlay(OpenDialog.FileName);
|
||||
OpenDialog.InitialDir := ExtractFilePath(OpenDialog.FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.MenuQuitClick(Sender: TObject);
|
||||
begin
|
||||
Application.Terminate;
|
||||
end;
|
||||
|
||||
end.
|
||||
13
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.fmx
Normal file
13
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.fmx
Normal file
@@ -0,0 +1,13 @@
|
||||
object PlayForm: TPlayForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Border.Styling = False
|
||||
BorderIcons = []
|
||||
Caption = 'Form1'
|
||||
ClientHeight = 200
|
||||
ClientWidth = 200
|
||||
FormFactor.Width = 320
|
||||
FormFactor.Height = 480
|
||||
FormFactor.Devices = [Desktop]
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
24
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.pas
Normal file
24
PasLibVlc/DelphiXE7/FmxDemoPasLibVlc/PlayFormUnit.pas
Normal file
@@ -0,0 +1,24 @@
|
||||
unit PlayFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs;
|
||||
|
||||
type
|
||||
TPlayForm = class(TForm)
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
PlayForm: TPlayForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,7 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<%appSandboxKeys%>
|
||||
</dict>
|
||||
</plist>
|
||||
@@ -0,0 +1 @@
|
||||
FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.exe
|
||||
@@ -0,0 +1,95 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<Import Condition="Exists('$(BDS)\bin\CodeGear.Deployment.targets')" Project="$(BDS)\bin\CodeGear.Deployment.targets"/>
|
||||
<ProjectExtensions>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<PropertyGroup>
|
||||
<DeviceId Condition="'$(Platform)'=='Android'"/>
|
||||
<DeviceId Condition="'$(Platform)'=='iOSDevice32'"/>
|
||||
<DeviceId Condition="'$(Platform)'=='iOSDevice64'"/>
|
||||
<DeviceId Condition="'$(Platform)'=='iOSSimulator'">iPhone5</DeviceId>
|
||||
</PropertyGroup>
|
||||
<ItemGroup Condition="'$(Platform)'=='Win64'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='iOSDevice64'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='iOSDevice32'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='Win32'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='Linux64'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='OSX32'">
|
||||
<DeployFile Include="$(BDS)\Redist\osx32\libcgsqlite3.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>libcgsqlite3.dylib</RemoteName>
|
||||
<DeployClass>DependencyModule</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlcPlayer" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlcPlayer</RemoteName>
|
||||
<DeployClass>ProjectOutput</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
<Required>True</Required>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlcPlayer.entitlements" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\..\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlcPlayer.entitlements</RemoteName>
|
||||
<DeployClass>ProjectOSXEntitlements</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\bin\delphi_PROJECTICNS.icns" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\Contents\Resources\</RemoteDir>
|
||||
<RemoteName>FmxDemoPasLibVlcPlayer.icns</RemoteName>
|
||||
<DeployClass>ProjectOSXResource</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\Contents\MacOS\</RemoteDir>
|
||||
<RemoteName>libcgunwind.1.0.dylib</RemoteName>
|
||||
<DeployClass>DependencyModule</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="OSX32\Release\FmxDemoPasLibVlcPlayer.info.plist" Condition="'$(Config)'=='Release'">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\Contents\</RemoteDir>
|
||||
<RemoteName>Info.plist</RemoteName>
|
||||
<DeployClass>ProjectOSXInfoPList</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
</ItemGroup>
|
||||
<ItemGroup Condition="'$(Platform)'=='Android'"/>
|
||||
<ItemGroup Condition="'$(Platform)'=='iOSSimulator'">
|
||||
<DeployFile Include="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\</RemoteDir>
|
||||
<RemoteName>libcgunwind.1.0.dylib</RemoteName>
|
||||
<DeployClass>DependencyModule</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
<DeployFile Include="$(BDS)\Redist\iossimulator\libPCRE.dylib">
|
||||
<RemoteDir>FmxDemoPasLibVlcPlayer.app\</RemoteDir>
|
||||
<RemoteName>libPCRE.dylib</RemoteName>
|
||||
<DeployClass>DependencyModule</DeployClass>
|
||||
<Operation>1</Operation>
|
||||
<LocalCommand/>
|
||||
<RemoteCommand/>
|
||||
<Overwrite>True</Overwrite>
|
||||
</DeployFile>
|
||||
</ItemGroup>
|
||||
</Project>
|
||||
@@ -0,0 +1,43 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
program FmxDemoPasLibVlcPlayer;
|
||||
|
||||
uses
|
||||
System.StartUpCopy,
|
||||
FMX.Forms,
|
||||
MainFormUnit in 'MainFormUnit.pas' {MainForm};
|
||||
|
||||
{$R *.res}
|
||||
|
||||
begin
|
||||
ReportMemoryLeaksOnShutdown := True;
|
||||
Application.Initialize;
|
||||
Application.Title := 'FmxDemoPasLibVlcPlayer' + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';;
|
||||
Application.CreateForm(TMainForm, MainForm);
|
||||
Application.Run;
|
||||
end.
|
||||
@@ -0,0 +1,699 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{F4C51AA5-FF37-4EC9-BEEC-0881ACCEEB0A}</ProjectGuid>
|
||||
<ProjectVersion>18.4</ProjectVersion>
|
||||
<FrameworkType>FMX</FrameworkType>
|
||||
<MainSource>FmxDemoPasLibVlcPlayer.dpr</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win64</Platform>
|
||||
<TargetedPlatforms>31</TargetedPlatforms>
|
||||
<AppType>Application</AppType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
|
||||
<Base_iOSSimulator>true</Base_iOSSimulator>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
|
||||
<Base_OSX32>true</Base_OSX32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Cfg_1)'=='true') or '$(Cfg_1_OSX32)'!=''">
|
||||
<Cfg_1_OSX32>true</Cfg_1_OSX32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
|
||||
<Cfg_1_Win64>true</Cfg_1_Win64>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Cfg_2)'=='true') or '$(Cfg_2_OSX32)'!=''">
|
||||
<Cfg_2_OSX32>true</Cfg_2_OSX32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<Manifest_File>$(BDS)\bin\default_app.manifest</Manifest_File>
|
||||
<DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.fmx\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
|
||||
<AUP_CAMERA>true</AUP_CAMERA>
|
||||
<AUP_ACCESS_COARSE_LOCATION>true</AUP_ACCESS_COARSE_LOCATION>
|
||||
<AUP_INTERNET>true</AUP_INTERNET>
|
||||
<AUP_WRITE_EXTERNAL_STORAGE>true</AUP_WRITE_EXTERNAL_STORAGE>
|
||||
<SanitizedProjectName>FmxDemoPasLibVlcPlayer</SanitizedProjectName>
|
||||
<Icon_MainIcon>$(BDS)\bin\delphi_PROJECTICON.ico</Icon_MainIcon>
|
||||
<AUP_READ_EXTERNAL_STORAGE>true</AUP_READ_EXTERNAL_STORAGE>
|
||||
<Icns_MainIcns>$(BDS)\bin\delphi_PROJECTICNS.icns</Icns_MainIcns>
|
||||
<AUP_READ_PHONE_STATE>true</AUP_READ_PHONE_STATE>
|
||||
<AUP_WRITE_CALENDAR>true</AUP_WRITE_CALENDAR>
|
||||
<AUP_ACCESS_FINE_LOCATION>true</AUP_ACCESS_FINE_LOCATION>
|
||||
<AUP_CALL_PHONE>true</AUP_CALL_PHONE>
|
||||
<AUP_READ_CALENDAR>true</AUP_READ_CALENDAR>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_S>false</DCC_S>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_K>false</DCC_K>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<Android_LauncherIcon96>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_96x96.png</Android_LauncherIcon96>
|
||||
<Android_LauncherIcon72>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_72x72.png</Android_LauncherIcon72>
|
||||
<Android_SplashImage640>$(BDS)\bin\Artwork\Android\FM_SplashImage_640x480.png</Android_SplashImage640>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<Android_LauncherIcon48>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_48x48.png</Android_LauncherIcon48>
|
||||
<Android_SplashImage470>$(BDS)\bin\Artwork\Android\FM_SplashImage_470x320.png</Android_SplashImage470>
|
||||
<Android_LauncherIcon144>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_144x144.png</Android_LauncherIcon144>
|
||||
<Android_LauncherIcon36>$(BDS)\bin\Artwork\Android\FM_LauncherIcon_36x36.png</Android_LauncherIcon36>
|
||||
<Android_SplashImage426>$(BDS)\bin\Artwork\Android\FM_SplashImage_426x320.png</Android_SplashImage426>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<Android_SplashImage960>$(BDS)\bin\Artwork\Android\FM_SplashImage_960x720.png</Android_SplashImage960>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true;apiKey=</VerInfo_Keys>
|
||||
<EnabledSysJars>android-support-v4.dex.jar;cloud-messaging.dex.jar;fmx.dex.jar;google-analytics-v2.dex.jar;google-play-billing.dex.jar;google-play-licensing.dex.jar;google-play-services.dex.jar</EnabledSysJars>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
|
||||
<iPhone_Launch750>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_750x1334.png</iPhone_Launch750>
|
||||
<iPad_AppIcon72>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_72x72.png</iPad_AppIcon72>
|
||||
<iPhone_Launch320>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_320x480.png</iPhone_Launch320>
|
||||
<iPhone_Launch640>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x960.png</iPhone_Launch640>
|
||||
<iPad_Launch768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1004.png</iPad_Launch768>
|
||||
<iPad_SpotLight50>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_50x50.png</iPad_SpotLight50>
|
||||
<iPad_SpotLight80>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_80x80.png</iPad_SpotLight80>
|
||||
<iPad_Launch1536x2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2048.png</iPad_Launch1536x2048>
|
||||
<iPad_SpotLight40>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_40x40.png</iPad_SpotLight40>
|
||||
<iPad_Launch2048>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1496.png</iPad_Launch2048>
|
||||
<iPad_Setting58>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_58x58.png</iPad_Setting58>
|
||||
<iPhone_AppIcon114>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_114x114.png</iPhone_AppIcon114>
|
||||
<iPad_Setting29>$(BDS)\bin\Artwork\iOS\iPad\FM_SettingIcon_29x29.png</iPad_Setting29>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;dsnapxml;bindcompfmx;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDAC;inet;soapmidas;RESTComponents;dbexpress;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<iPhone_Spotlight40>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_40x40.png</iPhone_Spotlight40>
|
||||
<iPad_AppIcon152>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_152x152.png</iPad_AppIcon152>
|
||||
<iPhone_Launch2208>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2208x1242.png</iPhone_Launch2208>
|
||||
<iPhone_Launch640x1136>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_640x1136.png</iPhone_Launch640x1136>
|
||||
<iPad_Launch1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_1536x2008.png</iPad_Launch1536>
|
||||
<iPhone_AppIcon180>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_180x180.png</iPhone_AppIcon180>
|
||||
<iPhone_Spotlight29>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_29x29.png</iPhone_Spotlight29>
|
||||
<VerInfo_UIDeviceFamily>iPhoneAndiPad</VerInfo_UIDeviceFamily>
|
||||
<iPhone_AppIcon120>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_120x120.png</iPhone_AppIcon120>
|
||||
<iPhone_Spotlight58>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_58x58.png</iPhone_Spotlight58>
|
||||
<iPad_AppIcon76>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_76x76.png</iPad_AppIcon76>
|
||||
<iPad_Launch1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x748.png</iPad_Launch1024>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<iPhone_Launch1242>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1242x2208.png</iPhone_Launch1242>
|
||||
<iPad_SpotLight100>$(BDS)\bin\Artwork\iOS\iPad\FM_SpotlightSearchIcon_100x100.png</iPad_SpotLight100>
|
||||
<iPhone_AppIcon87>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_87x87.png</iPhone_AppIcon87>
|
||||
<iPhone_Spotlight80>$(BDS)\bin\Artwork\iOS\iPhone\FM_SpotlightSearchIcon_80x80.png</iPhone_Spotlight80>
|
||||
<iPhone_AppIcon57>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_57x57.png</iPhone_AppIcon57>
|
||||
<iPhone_AppIcon60>$(BDS)\bin\Artwork\iOS\iPhone\FM_ApplicationIcon_60x60.png</iPhone_AppIcon60>
|
||||
<iPad_Launch1024x768>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_1024x768.png</iPad_Launch1024x768>
|
||||
<iPad_AppIcon144>$(BDS)\bin\Artwork\iOS\iPad\FM_ApplicationIcon_144x144.png</iPad_AppIcon144>
|
||||
<iPad_Launch768x1024>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImagePortrait_768x1024.png</iPad_Launch768x1024>
|
||||
<iPad_Launch2048x1536>$(BDS)\bin\Artwork\iOS\iPad\FM_LaunchImageLandscape_2048x1536.png</iPad_Launch2048x1536>
|
||||
<VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDevelopmentRegion=en;CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleInfoDictionaryVersion=7.1;CFBundleVersion=1.0.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;LSRequiresIPhoneOS=true;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);UIDeviceFamily=iPhone & iPad;CFBundleResourceSpecification=ResourceRules.plist;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;FMLocalNotificationPermission=false;UIBackgroundModes=;NSContactsUsageDescription=The reason for accessing the contacts;NSPhotoLibraryUsageDescription=The reason for accessing the photo library;NSCameraUsageDescription=The reason for accessing the camera;CFBundleShortVersionString=1.0.0</VerInfo_Keys>
|
||||
<iPhone_Launch1125>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_1125x2436.png</iPhone_Launch1125>
|
||||
<iPhone_Launch2436>$(BDS)\bin\Artwork\iOS\iPhone\FM_LaunchImage_2436x1125.png</iPhone_Launch2436>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_OSX32)'!=''">
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;tethering;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DbxCommonDriver;dbxcds;fmxFireDAC;DBXOracleDriver;CustomIPTransport;dsnap;IndyIPServer;fmxase;IndyCore;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;bindcompdbx;soaprtl;FMXTee;emsclient;FireDACMSSQLDriver;FireDAC;DBXInformixDriver;DataSnapServerMidas;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Keys>CFBundleName=$(MSBuildProjectName);CFBundleDisplayName=$(MSBuildProjectName);CFBundleIdentifier=$(MSBuildProjectName);CFBundleVersion=1.0.0;CFBundlePackageType=APPL;CFBundleSignature=????;CFBundleAllowMixedLocalizations=YES;CFBundleExecutable=$(MSBuildProjectName);NSHighResolutionCapable=true;LSApplicationCategoryType=public.app-category.utilities;NSLocationWhenInUseUsageDescription=The reason for accessing the location information of the user;NSLocationAlwaysUsageDescription=The reason for accessing the location information of the user;NSContactsUsageDescription=The reason for accessing the contacts;CFBundleShortVersionString=1.0.0</VerInfo_Keys>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;frxe21;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;frx21;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;CodeSiteExpressPkg;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;FMXfrx21;rtl;dbrtl;DbxClientDriver;FMXfrxDB21;FireDACCommon;bindcomp;inetdb;frxTee21;Tee;DBXOdbcDriver;frxDB21;vclFireDAC;xmlrtl;DataSnapNativeClient;svnui;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;PasLibVlcPlayer;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;svn;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=FmxDemoPasLibVlcPlayer;FileVersion=1.0.0.0;InternalName=FmxDemoPasLibVlcPlayer;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=FmxDemoPasLibVlcPlayer;ProductName=FmxDemoPasLibVlcPlayer;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_UsePackage>FireDACSqliteDriver;FireDACDSDriver;DBXSqliteDriver;FireDACPgDriver;fmx;IndySystem;TeeDB;tethering;vclib;DBXInterBaseDriver;DataSnapClient;DataSnapServer;DataSnapCommon;DataSnapProviderClient;DBXSybaseASEDriver;DbxCommonDriver;vclimg;dbxcds;DatasnapConnectorsFreePascal;MetropolisUILiveTile;vcldb;vcldsnap;fmxFireDAC;DBXDb2Driver;DBXOracleDriver;CustomIPTransport;vclribbon;dsnap;IndyIPServer;fmxase;vcl;IndyCore;DBXMSSQLDriver;IndyIPCommon;CloudService;FmxTeeUI;FireDACIBDriver;DataSnapFireDAC;FireDACDBXDriver;soapserver;inetdbxpress;dsnapxml;FireDACInfxDriver;FireDACDb2Driver;adortl;FireDACASADriver;bindcompfmx;FireDACODBCDriver;RESTBackendComponents;emsclientfiredac;rtl;dbrtl;DbxClientDriver;FireDACCommon;bindcomp;inetdb;Tee;DBXOdbcDriver;vclFireDAC;xmlrtl;DataSnapNativeClient;ibxpress;IndyProtocols;DBXMySQLDriver;FireDACCommonDriver;bindengine;vclactnband;bindcompdbx;soaprtl;FMXTee;TeeUI;bindcompvcl;vclie;FireDACADSDriver;vcltouch;emsclient;VCLRESTComponents;FireDACMSSQLDriver;FireDAC;VclSmp;DBXInformixDriver;Intraweb;PasLibVlcPlayer;DataSnapConnectors;DataSnapServerMidas;dsnapcon;DBXFirebirdDriver;inet;fmxobj;FireDACMySQLDriver;soapmidas;vclx;DBXSybaseASADriver;FireDACOracleDriver;fmxdae;RESTComponents;FireDACMSAccDriver;dbexpress;DataSnapIndy10ServerTransport;IndyIPClient;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=FmxDemoPasLibVlcPlayer;FileVersion=1.0.0.0;InternalName=FmxDemoPasLibVlcPlayer;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=FmxDemoPasLibVlcPlayer;ProductName=FmxDemoPasLibVlcPlayer;ProductVersion=1.0.0.0;Comments=robert@prog.olsztyn.pl;ProgramID=com.embarcadero.$(MSBuildProjectName)</VerInfo_Keys>
|
||||
<UWP_DelphiLogo44>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_44.png</UWP_DelphiLogo44>
|
||||
<UWP_DelphiLogo150>$(BDS)\bin\Artwork\Windows\UWP\delphi_UwpDefault_150.png</UWP_DelphiLogo150>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugDCUs>true</DCC_DebugDCUs>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
|
||||
<DCC_RemoteDebug>true</DCC_RemoteDebug>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_OSX32)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_OSX32)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="MainFormUnit.pas">
|
||||
<Form>MainForm</Form>
|
||||
<FormType>fmx</FormType>
|
||||
</DCCReference>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Application</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">FmxDemoPasLibVlcPlayer.dpr</Source>
|
||||
</Source>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment Version="3">
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlcPlayer.entitlements" Configuration="Release" Class="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libPCRE.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\bin\delphi_PROJECTICNS.icns" Configuration="Debug" Class="ProjectOSXResource"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlcPlayer.entitlements" Configuration="Debug" Class="ProjectOSXEntitlements"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlcPlayer.info.plist" Configuration="Debug" Class="ProjectOSXInfoPList"/>
|
||||
<DeployFile LocalName="OSX32\Debug\FmxDemoPasLibVlcPlayer" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlcPlayer" Configuration="Release" Class="ProjectOutput">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteName>FmxDemoPasLibVlcPlayer</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\iossimulator\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\bin\delphi_PROJECTICNS.icns" Configuration="Release" Class="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteName>FmxDemoPasLibVlcPlayer.icns</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgsqlite3.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="OSX32\Release\FmxDemoPasLibVlcPlayer.info.plist" Configuration="Release" Class="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteName>Info.plist</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="$(BDS)\Redist\osx32\libcgunwind.1.0.dylib" Class="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployFile LocalName="Win32\Debug\FmxDemoPasLibVlcPlayer.exe" Configuration="Debug" Class="ProjectOutput"/>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo150">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="UWP_DelphiLogo44">
|
||||
<Platform Name="Win64">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Assets</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeX86File">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\x86</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>../</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidServiceOutput">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectUWPManifest">
|
||||
<Platform Name="Win64">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="iOSDevice32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice64" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Linux64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
</Deployment>
|
||||
<Platforms>
|
||||
<Platform value="Android">True</Platform>
|
||||
<Platform value="iOSSimulator" ActiveMobileDevice="iPad">True</Platform>
|
||||
<Platform value="OSX32">True</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Delphi.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')"/>
|
||||
<Import Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj" Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_LgXhdpiPh: TMainForm_LgXhdpiPh
|
||||
ClientHeight = 695
|
||||
ClientWidth = 450
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 330.000000000000000000
|
||||
Size.Height = 695.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 330.000000000000000000
|
||||
Size.Height = 695.000000000000000000
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,3 @@
|
||||
inherited MainForm_Macintosh: TMainForm_Macintosh
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_SmXhdpiPh: TMainForm_SmXhdpiPh
|
||||
ClientHeight = 375
|
||||
ClientWidth = 250
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 130.000000000000000000
|
||||
Size.Height = 375.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 130.000000000000000000
|
||||
Size.Height = 375.000000000000000000
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_Surface: TMainForm_Surface
|
||||
ClientHeight = 1920
|
||||
ClientWidth = 1080
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 960.000000000000000000
|
||||
Size.Height = 1920.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 960.000000000000000000
|
||||
Size.Height = 1920.000000000000000000
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,3 @@
|
||||
inherited MainForm_Windows: TMainForm_Windows
|
||||
DesignerMasterStyle = 0
|
||||
end
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_XLgXhdpiTb: TMainForm_XLgXhdpiTb
|
||||
ClientHeight = 1255
|
||||
ClientWidth = 800
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 680.000000000000000000
|
||||
Size.Height = 1255.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 680.000000000000000000
|
||||
Size.Height = 1255.000000000000000000
|
||||
end
|
||||
end
|
||||
69
PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.fmx
Normal file
69
PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.fmx
Normal file
@@ -0,0 +1,69 @@
|
||||
object MainForm: TMainForm
|
||||
Left = 0
|
||||
Top = 0
|
||||
Caption = 'FmxDemoPasLibVlcPlayer'
|
||||
ClientHeight = 480
|
||||
ClientWidth = 640
|
||||
Position = ScreenCenter
|
||||
FormFactor.Width = 320
|
||||
FormFactor.Height = 480
|
||||
FormFactor.Devices = [Desktop]
|
||||
OnCreate = FormCreate
|
||||
OnClose = FormClose
|
||||
DesignerMasterStyle = 0
|
||||
object OpenDialog: TOpenDialog
|
||||
InitialDir = 'C:\_LibXE\vlc\_testFiles'
|
||||
Left = 560
|
||||
Top = 72
|
||||
end
|
||||
object Panel1: TPanel
|
||||
Align = Right
|
||||
Position.X = 520.000000000000000000
|
||||
Size.Width = 120.000000000000000000
|
||||
Size.Height = 480.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
TabOrder = 3
|
||||
object OpenButton: TButton
|
||||
Position.X = 24.000000000000000000
|
||||
Position.Y = 24.000000000000000000
|
||||
TabOrder = 0
|
||||
Text = 'Open'
|
||||
OnClick = OpenButtonClick
|
||||
end
|
||||
end
|
||||
object FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
MultiResBitmap = <
|
||||
item
|
||||
Width = 320
|
||||
Height = 160
|
||||
PNG = {
|
||||
89504E470D0A1A0A0000000D4948445200000140000000A008060000007DA3B5
|
||||
9C000000017352474200AECE1CE90000000467414D410000B18F0BFC61050000
|
||||
022749444154785EEDD4410DC0300003B174FC396F7D8CC5D952140677B6BD77
|
||||
0039CFFF00390208640920902580409600025902086409209025804096000259
|
||||
0208640920902580409600025902086409209025804096000259020864092090
|
||||
2580409600025902086409209025804096000259020864092090258040960002
|
||||
5902086409209025804096000259020864092090258040960002590208640920
|
||||
9025804096000259020864092090258040960002590208640920902580409600
|
||||
0259020864092090258040960002590208640920902580409600025902086409
|
||||
2090258040960002590208640920902580409600025902086409209025804096
|
||||
0002590208640920902580409600025902086409209025804096000259020864
|
||||
0920902580409600025902086409209025804096000259020864092090258040
|
||||
9600025902086409209025804096000259020864092090258040960002590208
|
||||
6409209025804096000259020864092090258040960002590208640920902580
|
||||
4096000259020864092090258040960002590208640920902580409600025902
|
||||
0864092090258040960002590208640920902580409600025902086409209025
|
||||
8040960002590208640920902580409600025902086409209025804096000259
|
||||
0208640920902580409600025902086409209025804096000259020864092090
|
||||
2580409600025902086409209025804096000259020864092090258040960002
|
||||
59020864092010B57D4C3F023F2CCA8F680000000049454E44AE426082}
|
||||
end>
|
||||
Align = Client
|
||||
Size.Width = 520.000000000000000000
|
||||
Size.Height = 480.000000000000000000
|
||||
Size.PlatformDefault = False
|
||||
WrapMode = Stretch
|
||||
SnapShotFmt = 'png'
|
||||
OnMediaPlayerVideoSizeChanged = FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_iPad: TMainForm_iPad
|
||||
ClientHeight = 1004
|
||||
ClientWidth = 768
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 648.000000000000000000
|
||||
Size.Height = 1004.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 648.000000000000000000
|
||||
Size.Height = 1004.000000000000000000
|
||||
end
|
||||
end
|
||||
@@ -0,0 +1,13 @@
|
||||
inherited MainForm_iPhone47in: TMainForm_iPhone47in
|
||||
ClientHeight = 647
|
||||
ClientWidth = 375
|
||||
DesignerMasterStyle = 0
|
||||
inherited Panel1: TPanel
|
||||
Position.X = 255.000000000000000000
|
||||
Size.Height = 647.000000000000000000
|
||||
end
|
||||
inherited FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer
|
||||
Size.Width = 255.000000000000000000
|
||||
Size.Height = 647.000000000000000000
|
||||
end
|
||||
end
|
||||
99
PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
99
PasLibVlc/DelphiXE7/FmxDemoPasLibVlcPlayer/MainFormUnit.pas
Normal file
@@ -0,0 +1,99 @@
|
||||
(*
|
||||
* 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"
|
||||
*
|
||||
* http://prog.olsztyn.pl/paslibvlc/
|
||||
*
|
||||
*)
|
||||
|
||||
{$I ..\..\source\compiler.inc}
|
||||
|
||||
unit MainFormUnit;
|
||||
|
||||
interface
|
||||
|
||||
uses
|
||||
System.SysUtils, System.Types, System.UITypes, System.Classes, System.Variants,
|
||||
FMX.Types, FMX.Controls, FMX.Forms, FMX.Graphics, FMX.Dialogs, FMX.Objects,
|
||||
FmxPasLibVlcPlayerUnit, FMX.StdCtrls, FMX.Controls.Presentation;
|
||||
|
||||
type
|
||||
TMainForm = class(TForm)
|
||||
OpenButton: TButton;
|
||||
OpenDialog: TOpenDialog;
|
||||
Panel1: TPanel;
|
||||
FmxPasLibVlcPlayer1: TFmxPasLibVlcPlayer;
|
||||
procedure OpenButtonClick(Sender: TObject);
|
||||
procedure FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged(Sender: TObject;
|
||||
width, height, video_w_a32, video_h_a32: Cardinal);
|
||||
procedure FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
procedure FormCreate(Sender: TObject);
|
||||
procedure Timer1Timer(Sender: TObject);
|
||||
private
|
||||
{ Private declarations }
|
||||
public
|
||||
{ Public declarations }
|
||||
end;
|
||||
|
||||
var
|
||||
MainForm: TMainForm;
|
||||
|
||||
implementation
|
||||
|
||||
{$R *.fmx}
|
||||
{$R *.Macintosh.fmx _MACOS}
|
||||
{$R *.SmXhdpiPh.fmx ANDROID}
|
||||
{$R *.LgXhdpiPh.fmx ANDROID}
|
||||
{$R *.Surface.fmx MSWINDOWS}
|
||||
{$R *.XLgXhdpiTb.fmx ANDROID}
|
||||
{$R *.iPhone47in.fmx IOS}
|
||||
{$R *.iPad.fmx IOS}
|
||||
{$R *.Windows.fmx MSWINDOWS}
|
||||
|
||||
procedure TMainForm.FmxPasLibVlcPlayer1MediaPlayerVideoSizeChanged(
|
||||
Sender: TObject; width, height, video_w_a32, video_h_a32: Cardinal);
|
||||
begin
|
||||
Caption := IntToStr(width) + 'x' + IntToStr(height);
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
|
||||
begin
|
||||
FmxPasLibVlcPlayer1.Stop();
|
||||
end;
|
||||
|
||||
procedure TMainForm.FormCreate(Sender: TObject);
|
||||
begin
|
||||
Caption := Caption + ' - ' + {$IFDEF CPUX64}'64'{$ELSE}'32'{$ENDIF} + ' bit';
|
||||
end;
|
||||
|
||||
procedure TMainForm.OpenButtonClick(Sender: TObject);
|
||||
begin
|
||||
if (OpenDialog.Execute) then
|
||||
begin
|
||||
FmxPasLibVlcPlayer1.Play(OpenDialog.FileName);
|
||||
end;
|
||||
end;
|
||||
|
||||
procedure TMainForm.Timer1Timer(Sender: TObject);
|
||||
begin
|
||||
FmxPasLibVlcPlayer1.InvalidateRect(FmxPasLibVlcPlayer1.BoundsRect);
|
||||
end;
|
||||
|
||||
end.
|
||||
@@ -0,0 +1,8 @@
|
||||
<?xml version="1.0" encoding="UTF-8"?>
|
||||
<!DOCTYPE plist PUBLIC "-//Apple//DTD PLIST 1.0//EN" "http://www.apple.com/DTDs/PropertyList-1.0.dtd">
|
||||
<plist version="1.0">
|
||||
<dict>
|
||||
<%VersionInfoPListKeys%>
|
||||
<%ExtraInfoPListKeys%>
|
||||
</dict>
|
||||
</plist>
|
||||
84
PasLibVlc/DelphiXE7/PasLibVlc.groupproj
Normal file
84
PasLibVlc/DelphiXE7/PasLibVlc.groupproj
Normal file
@@ -0,0 +1,84 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{93B2DC73-657C-4BDE-9142-B5DC0D8A16D9}</ProjectGuid>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<Projects Include="PasLibVlcPlayer.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="DemoPasLibVlc\DemoPasLibVlc.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="FmxDemoPasLibVlc\FmxDemoPasLibVlc.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
<Projects Include="FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.dproj">
|
||||
<Dependencies/>
|
||||
</Projects>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Default.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType/>
|
||||
<BorlandProject>
|
||||
<Default.Personality/>
|
||||
</BorlandProject>
|
||||
</ProjectExtensions>
|
||||
<Target Name="PasLibVlcPlayer">
|
||||
<MSBuild Projects="PasLibVlcPlayer.dproj"/>
|
||||
</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"/>
|
||||
</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"/>
|
||||
</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="FmxDemoPasLibVlc">
|
||||
<MSBuild Projects="FmxDemoPasLibVlc\FmxDemoPasLibVlc.dproj"/>
|
||||
</Target>
|
||||
<Target Name="FmxDemoPasLibVlc:Clean">
|
||||
<MSBuild Projects="FmxDemoPasLibVlc\FmxDemoPasLibVlc.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="FmxDemoPasLibVlc:Make">
|
||||
<MSBuild Projects="FmxDemoPasLibVlc\FmxDemoPasLibVlc.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="FmxDemoPasLibVlcPlayer">
|
||||
<MSBuild Projects="FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.dproj"/>
|
||||
</Target>
|
||||
<Target Name="FmxDemoPasLibVlcPlayer:Clean">
|
||||
<MSBuild Projects="FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.dproj" Targets="Clean"/>
|
||||
</Target>
|
||||
<Target Name="FmxDemoPasLibVlcPlayer:Make">
|
||||
<MSBuild Projects="FmxDemoPasLibVlcPlayer\FmxDemoPasLibVlcPlayer.dproj" Targets="Make"/>
|
||||
</Target>
|
||||
<Target Name="Build">
|
||||
<CallTarget Targets="PasLibVlcPlayer;DemoPasLibVlc;DemoPasLibVlcPlayer;FmxDemoPasLibVlc;FmxDemoPasLibVlcPlayer"/>
|
||||
</Target>
|
||||
<Target Name="Clean">
|
||||
<CallTarget Targets="PasLibVlcPlayer:Clean;DemoPasLibVlc:Clean;DemoPasLibVlcPlayer:Clean;FmxDemoPasLibVlc:Clean;FmxDemoPasLibVlcPlayer:Clean"/>
|
||||
</Target>
|
||||
<Target Name="Make">
|
||||
<CallTarget Targets="PasLibVlcPlayer:Make;DemoPasLibVlc:Make;DemoPasLibVlcPlayer:Make;FmxDemoPasLibVlc:Make;FmxDemoPasLibVlcPlayer:Make"/>
|
||||
</Target>
|
||||
<Import Project="$(BDS)\Bin\CodeGear.Group.Targets" Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')"/>
|
||||
</Project>
|
||||
42
PasLibVlc/DelphiXE7/PasLibVlcPlayer.dpk
Normal file
42
PasLibVlc/DelphiXE7/PasLibVlcPlayer.dpk
Normal file
@@ -0,0 +1,42 @@
|
||||
package PasLibVlcPlayer;
|
||||
|
||||
{$R *.res}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$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}
|
||||
{$DEFINE RELEASE}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$DESCRIPTION 'PasLibVlcPlayer Component'}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
requires
|
||||
vcl,
|
||||
rtl,
|
||||
fmx;
|
||||
|
||||
contains
|
||||
PasLibVlcUnit in '..\source\PasLibVlcUnit.pas',
|
||||
PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas',
|
||||
PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas',
|
||||
FmxPasLibVlcPlayerUnit in '..\source.fmx\FmxPasLibVlcPlayerUnit.pas';
|
||||
|
||||
end.
|
||||
521
PasLibVlc/DelphiXE7/PasLibVlcPlayer.dproj
Normal file
521
PasLibVlc/DelphiXE7/PasLibVlcPlayer.dproj
Normal file
@@ -0,0 +1,521 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{49EBEF3D-C5C5-42E3-ADBE-8539B8BE2AC5}</ProjectGuid>
|
||||
<MainSource>PasLibVlcPlayer.dpk</MainSource>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<TargetedPlatforms>3</TargetedPlatforms>
|
||||
<AppType>Package</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>16.1</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win64</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Android' and '$(Base)'=='true') or '$(Base_Android)'!=''">
|
||||
<Base_Android>true</Base_Android>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSDevice' and '$(Base)'=='true') or '$(Base_iOSDevice)'!=''">
|
||||
<Base_iOSDevice>true</Base_iOSDevice>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='iOSSimulator' and '$(Base)'=='true') or '$(Base_iOSSimulator)'!=''">
|
||||
<Base_iOSSimulator>true</Base_iOSSimulator>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
|
||||
<Base_Win32>true</Base_Win32>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
|
||||
<Base_Win64>true</Base_Win64>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Release' or '$(Cfg_1)'!=''">
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win32)'!=''">
|
||||
<Cfg_1_Win32>true</Cfg_1_Win32>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
|
||||
<Cfg_1_Win64>true</Cfg_1_Win64>
|
||||
<CfgParent>Cfg_1</CfgParent>
|
||||
<Cfg_1>true</Cfg_1>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win32)'!=''">
|
||||
<Cfg_2_Win32>true</Cfg_2_Win32>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
|
||||
<Cfg_2_Win64>true</Cfg_2_Win64>
|
||||
<CfgParent>Cfg_2</CfgParent>
|
||||
<Cfg_2>true</Cfg_2>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base)'!=''">
|
||||
<DCC_UnitSearchPath>.\..\source\;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
|
||||
<VerInfo_Release>6</VerInfo_Release>
|
||||
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_MajorVer>3</VerInfo_MajorVer>
|
||||
<SanitizedProjectName>PasLibVlcPlayer</SanitizedProjectName>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=PasLibVlc;FileVersion=3.0.6.0;InternalName=PasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=PasLibVlc;ProductName=PasLibVlc;ProductVersion=3.0.4;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<DCC_Description>PasLibVlcPlayer design time package</DCC_Description>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;Winapi;$(DCC_Namespace)</DCC_Namespace>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_S>false</DCC_S>
|
||||
<VerInfo_Locale>1045</VerInfo_Locale>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_F>false</DCC_F>
|
||||
<DCC_E>false</DCC_E>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<DCC_UsePackage>fmx;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar;hardwareAccelerated=true</VerInfo_Keys>
|
||||
<BT_BuildType>Debug</BT_BuildType>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSDevice)'!=''">
|
||||
<DCC_UsePackage>fmx;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
|
||||
<DCC_UsePackage>fmx;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=PasLibVlc;FileVersion=3.0.6.0;InternalName=PasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=PasLibVlc;ProductName=PasLibVlc;ProductVersion=3.0.6;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_UsePackage>vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win64)'!=''">
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=PasLibVlc;FileVersion=3.0.6.0;InternalName=PasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=PasLibVlc;ProductName=PasLibVlc;ProductVersion=3.0.6;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<DCC_Namespace>System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_UsePackage>vcl;fmx;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1)'!=''">
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
|
||||
<VerInfo_Build>114</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=PasLibVlc;FileVersion=3.0.6.114;InternalName=PasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=PasLibVlc;ProductName=PasLibVlc;ProductVersion=3.0.6;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_Description>PasLibVlcPlayer Component</DCC_Description>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
|
||||
<VerInfo_Release>4</VerInfo_Release>
|
||||
<VerInfo_Build>108</VerInfo_Build>
|
||||
<VerInfo_Keys>CompanyName=Robert Jędrzejczyk;FileDescription=PasLibVlc;FileVersion=3.0.4.108;InternalName=PasLibVlc;LegalCopyright=Robert Jędrzejczyk;LegalTrademarks=Robert Jędrzejczyk;OriginalFilename=PasLibVlc;ProductName=PasLibVlc;ProductVersion=3.0.6;Comments=robert@prog.olsztyn.pl</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2)'!=''">
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>false</VerInfo_IncludeVerInfo>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
<MainSource>MainSource</MainSource>
|
||||
</DelphiCompile>
|
||||
<DCCReference Include="vcl.dcp"/>
|
||||
<DCCReference Include="rtl.dcp"/>
|
||||
<DCCReference Include="fmx.dcp"/>
|
||||
<DCCReference Include="..\source\PasLibVlcUnit.pas"/>
|
||||
<DCCReference Include="..\source\PasLibVlcClassUnit.pas"/>
|
||||
<DCCReference Include="..\source.vcl\PasLibVlcPlayerUnit.pas"/>
|
||||
<DCCReference Include="..\source.fmx\FmxPasLibVlcPlayerUnit.pas"/>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
</ItemGroup>
|
||||
<ProjectExtensions>
|
||||
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
|
||||
<Borland.ProjectType>Package</Borland.ProjectType>
|
||||
<BorlandProject>
|
||||
<Delphi.Personality>
|
||||
<Source>
|
||||
<Source Name="MainSource">PasLibVlcPlayer.dpk</Source>
|
||||
</Source>
|
||||
<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 Name="FileDescription"/>
|
||||
<VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="InternalName"/>
|
||||
<VersionInfoKeys Name="LegalCopyright"/>
|
||||
<VersionInfoKeys Name="LegalTrademarks"/>
|
||||
<VersionInfoKeys Name="OriginalFilename"/>
|
||||
<VersionInfoKeys Name="ProductName"/>
|
||||
<VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
|
||||
<VersionInfoKeys Name="Comments"/>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="C:\Program Files (x86)\Raize\CS5\Bin\CodeSiteExpressPkg_Design210.bpl">File C:\Program Files (x86)\Raize\CS5\Bin\CodeSiteExpressPkg_Design210.bpl not found</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k210.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp210.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="iOSDevice">False</Platform>
|
||||
<Platform value="iOSSimulator">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">True</Platform>
|
||||
</Platforms>
|
||||
<Deployment>
|
||||
<DeployFile LocalName="C:\Users\Public\Documents\Embarcadero\Studio\15.0\Bpl\PasLibVlcPlayer.bpl" Configuration="Release" Class="ProjectOutput">
|
||||
<Platform Name="Win32">
|
||||
<RemoteName>PasLibVlcPlayer.bpl</RemoteName>
|
||||
<Overwrite>true</Overwrite>
|
||||
</Platform>
|
||||
</DeployFile>
|
||||
<DeployClass Required="true" Name="DependencyPackage">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.bpl</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyModule">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.dylib</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
<Extensions>.dll;.bpl</Extensions>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch2048">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXInfoPList"/>
|
||||
<DeployClass Name="ProjectiOSDeviceDebug">
|
||||
<Platform Name="iOSDevice">
|
||||
<RemoteDir>..\$(PROJECTNAME).app.dSYM\Contents\Resources\DWARF</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage470">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-normal</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeX86File">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\x86</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSResource">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXEntitlements"/>
|
||||
<DeployClass Name="AndroidGDBServer">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage960">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xlarge</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon96">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch320">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon144">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-xxhdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeMipsFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\mips</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashImageDef">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="DependencyFramework">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
<Extensions>.framework</Extensions>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage426">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-small</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSEntitlements"/>
|
||||
<DeployClass Name="AdditionalDebugSymbols">
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<RemoteDir>Contents\MacOS</RemoteDir>
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidClassesDexFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>classes</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSInfoPList"/>
|
||||
<DeployClass Name="iPad_Launch1024">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_DefaultAppIcon">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectOSXResource">
|
||||
<Platform Name="OSX32">
|
||||
<RemoteDir>Contents\Resources</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectiOSDeviceResourceRules"/>
|
||||
<DeployClass Name="iPad_Launch768">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Required="true" Name="ProjectOutput">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi-v7a</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidLibnativeArmeabiFile">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>library\lib\armeabi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_SplashImage640">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-large</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="File">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Android">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="Win32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="OSX32">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>0</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPhone_Launch640x1136">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon36">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-ldpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="AndroidSplashStyles">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\values</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="iPad_Launch1536">
|
||||
<Platform Name="iOSDevice">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
<Platform Name="iOSSimulator">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon48">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-mdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="Android_LauncherIcon72">
|
||||
<Platform Name="Android">
|
||||
<RemoteDir>res\drawable-hdpi</RemoteDir>
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<DeployClass Name="ProjectAndroidManifest">
|
||||
<Platform Name="Android">
|
||||
<Operation>1</Operation>
|
||||
</Platform>
|
||||
</DeployClass>
|
||||
<ProjectRoot Platform="Android" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSDevice" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="OSX32" Name="$(PROJECTNAME)"/>
|
||||
<ProjectRoot Platform="iOSSimulator" Name="$(PROJECTNAME).app"/>
|
||||
<ProjectRoot Platform="Win64" Name="$(PROJECTNAME)"/>
|
||||
</Deployment>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Delphi.Targets')" Project="$(BDS)\Bin\CodeGear.Delphi.Targets"/>
|
||||
<Import Condition="Exists('$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj')" Project="$(APPDATA)\Embarcadero\$(BDSAPPDATABASEDIR)\$(PRODUCTVERSION)\UserTools.proj"/>
|
||||
<Import Project="$(MSBuildProjectName).deployproj" Condition="Exists('$(MSBuildProjectName).deployproj')"/>
|
||||
</Project>
|
||||
Reference in New Issue
Block a user