babaev-an/lasarus_compotents
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Стартовый пул

Browse Source
This commit is contained in:
Александр Бабаев
2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

42
PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.dpr Normal file
View File

@@ -0,0 +1,42 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
program DemoPasLibVlc;
uses
Forms,
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
MainFormUnit in 'MainFormUnit.pas' {MainForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'PasLibVlcDemo';
Application.CreateForm(TMainForm, MainForm);
Application.Run;
end.

43
PasLibVlc/Delphi7/DemoPasLibVlc/DemoPasLibVlc.dproj Normal file
View File

@@ -0,0 +1,43 @@
<?xml version="1.0" encoding="utf-8"?>
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{8da1e076-0f08-4057-b905-f843d99de2ee}</ProjectGuid>
<MainSource>DemoPasLibVlc.dpr</MainSource>
<Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>DemoPasLibVlc.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlc.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="DemoPasLibVlc.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
<DCCReference Include="MainFormUnit.pas">
<Form>MainForm</Form>
</DCCReference>
</ItemGroup>
</Project>

44
PasLibVlc/Delphi7/DemoPasLibVlc/MainFormUnit.dfm Normal file
View File

@@ -0,0 +1,44 @@
object MainForm: TMainForm
Left = 411
Top = 197
Width = 640
Height = 499
Caption = 'libvlc demo'
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
Menu = MainMenu
OldCreateOrder = False
Position = poScreenCenter
OnClose = FormClose
OnCreate = FormCreate
PixelsPerInch = 96
TextHeight = 13
object OpenDialog: TOpenDialog
DefaultExt = '*.*'
Filter = 'All files|*.*'
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

182
PasLibVlc/Delphi7/DemoPasLibVlc/MainFormUnit.pas Normal file
View File

@@ -0,0 +1,182 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
unit MainFormUnit;
interface
uses
Windows,
Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, Menus, ActiveX,
PasLibVlcUnit;
type
TMainForm = class(TForm)
OpenDialog: TOpenDialog;
MainMenu: TMainMenu;
MenuFile: TMenuItem;
MenuFileOpen: TMenuItem;
MenuFileQuit: TMenuItem;
procedure FormCreate(Sender: TObject);
procedure MenuFileOpenClick(Sender: TObject);
procedure MenuFileQuitClick(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
p_li : libvlc_instance_t_ptr;
p_mi : libvlc_media_player_t_ptr;
procedure PlayerInit();
procedure PlayerPlay(fileName: WideString);
procedure PlayerStop();
procedure PlayerDestroy();
public
{ Public declarations }
end;
var
MainForm: TMainForm;
implementation
{$R *.dfm}
procedure TMainForm.PlayerInit();
begin
// libvlc_dynamic_dll_init_with_path('C:\Program Files\VideoLAN\VLC');
libvlc_dynamic_dll_init();
if (libvlc_dynamic_dll_error <> '') then
begin
MessageDlg(libvlc_dynamic_dll_error, mtError, [mbOK], 0);
Application.Terminate();
exit;
end;
with TArgcArgs.Create([
libvlc_dynamic_dll_path,
'--intf=dummy',
'--ignore-config',
'--quiet',
'--no-video-title-show',
'--no-video-on-top'
]) do
begin
p_li := libvlc_new(ARGC, ARGS);
Free;
end;
if (p_li <> NIL) then
begin
p_mi := libvlc_media_player_new(p_li);
end;
end;
procedure TMainForm.PlayerPlay(fileName: WideString);
var
p_md : libvlc_media_t_ptr;
begin
if (p_li <> NIL) then
begin
p_md := libvlc_media_new_path(p_li, PAnsiChar(UTF8Encode(fileName)));
if (p_md <> NIL) then
begin
if (p_mi <> NIL) then
begin
// libvlc_video_set_key_input(p_mi, 1);
// libvlc_video_set_mouse_input(p_mi, 1);
libvlc_media_player_set_display_window(p_mi, SELF.Handle);
libvlc_media_player_set_media(p_mi, p_md);
libvlc_media_player_play(p_mi);
end;
libvlc_media_release(p_md);
end;
end;
end;
procedure TMainForm.PlayerStop();
begin
if (p_mi <> NIL) then
begin
if (libvlc_media_player_is_playing(p_mi) = 1) then
begin
libvlc_media_player_stop(p_mi);
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.PlayerDestroy();
begin
if (p_li <> NIL) then
begin
PlayerStop();
libvlc_release(p_li);
p_li := NIL;
end;
libvlc_dynamic_dll_done();
end;
procedure TMainForm.FormClose(Sender: TObject; var Action: TCloseAction);
begin
PlayerDestroy();
end;
procedure TMainForm.FormCreate(Sender: TObject);
begin
p_li := NIL;
p_mi := NIL;
PlayerInit();
if (libvlc_dynamic_dll_error = '') then
begin
Caption := Caption + ', libvlc: ' + libvlc_dynamic_dll_vlc_version_str;
if (ParamStr(1) <> '') then
begin
PlayerPlay(ParamStr(1));
end;
end;
end;
procedure TMainForm.MenuFileOpenClick(Sender: TObject);
begin
if OpenDialog.Execute() then
begin
PlayerPlay(OpenDialog.FileName);
end;
end;
procedure TMainForm.MenuFileQuitClick(Sender: TObject);
begin
Close();
end;
end.

49
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dpr Normal file
View File

@@ -0,0 +1,49 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
program DemoPasLibVlcPlayer;
uses
Forms,
PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas',
PasLibVlcPlayerUnit in '..\..\source.vcl\PasLibVlcPlayerUnit.pas',
MainFormUnit in 'MainFormUnit.pas' {MainForm},
FullScreenFormUnit in 'FullScreenFormUnit.pas' {FullScreenForm},
SetEqualizerPresetFormUnit in 'SetEqualizerPresetFormUnit.pas' {SetEqualizerPresetForm},
SelectOutputDeviceFormUnit in 'SelectOutputDeviceFormUnit.pas' {SelectOutputDeviceForm},
VideoAdjustFormUnit in 'VideoAdjustFormUnit.pas' {VideoAdjustForm};
{$R *.res}
begin
Application.Initialize;
Application.Title := 'PasLibVlcPlayerDemo';
Application.CreateForm(TMainForm, MainForm);
Application.CreateForm(TSetEqualizerPresetForm, SetEqualizerPresetForm);
Application.CreateForm(TSelectOutputDeviceForm, SelectOutputDeviceForm);
Application.CreateForm(TVideoAdjustForm, VideoAdjustForm);
Application.Run;
end.

54
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/DemoPasLibVlcPlayer.dproj Normal file
View File

@@ -0,0 +1,54 @@
<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>
<Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<DCC_DependencyCheckOutputName>DemoPasLibVlcPlayer.exe</DCC_DependencyCheckOutputName>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
<Version>7.0</Version>
<DCC_DebugInformation>False</DCC_DebugInformation>
<DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_Define>RELEASE</DCC_Define>
</PropertyGroup>
<PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
<Version>7.0</Version>
<DCC_Define>DEBUG</DCC_Define>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality</Borland.Personality>
<Borland.ProjectType>VCLApplication</Borland.ProjectType>
<BorlandProject>
<BorlandProject><Delphi.Personality><Parameters><Parameters Name="UseLauncher">False</Parameters><Parameters Name="LoadAllSymbols">True</Parameters><Parameters Name="LoadUnspecifiedSymbols">False</Parameters></Parameters><VersionInfo><VersionInfo Name="IncludeVerInfo">True</VersionInfo><VersionInfo Name="AutoIncBuild">False</VersionInfo><VersionInfo Name="MajorVer">1</VersionInfo><VersionInfo Name="MinorVer">0</VersionInfo><VersionInfo Name="Release">0</VersionInfo><VersionInfo Name="Build">0</VersionInfo><VersionInfo Name="Debug">False</VersionInfo><VersionInfo Name="PreRelease">False</VersionInfo><VersionInfo Name="Special">False</VersionInfo><VersionInfo Name="Private">False</VersionInfo><VersionInfo Name="DLL">False</VersionInfo><VersionInfo Name="Locale">1033</VersionInfo><VersionInfo Name="CodePage">1252</VersionInfo></VersionInfo><VersionInfoKeys><VersionInfoKeys Name="CompanyName"></VersionInfoKeys><VersionInfoKeys Name="FileDescription"></VersionInfoKeys><VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="InternalName"></VersionInfoKeys><VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys><VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys><VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys><VersionInfoKeys Name="ProductName"></VersionInfoKeys><VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys><VersionInfoKeys Name="Comments"></VersionInfoKeys></VersionInfoKeys><Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages><Source><Source Name="MainSource">DemoPasLibVlcPlayer.dpr</Source></Source></Delphi.Personality></BorlandProject></BorlandProject>
</ProjectExtensions>
<Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
<ItemGroup>
<DelphiCompile Include="DemoPasLibVlcPlayer.dpr">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
<DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
<DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
<DCCReference Include="FullScreenFormUnit.pas">
<Form>FullScreenForm</Form>
</DCCReference>
<DCCReference Include="MainFormUnit.pas">
<Form>MainForm</Form>
</DCCReference>
<DCCReference Include="SelectOutputDeviceFormUnit.pas">
<Form>SelectOutputDeviceForm</Form>
</DCCReference>
<DCCReference Include="SetEqualizerPresetFormUnit.pas">
<Form>SetEqualizerPresetForm</Form>
</DCCReference>
<DCCReference Include="VideoAdjustFormUnit.pas">
<Form>VideoAdjustForm</Form>
</DCCReference>
</ItemGroup>
</Project>

22
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.dfm Normal file
View File

@@ -0,0 +1,22 @@
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
OnKeyPress = FormKeyPress
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
end

61
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/FullScreenFormUnit.pas Normal file
View File

@@ -0,0 +1,61 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
unit FullScreenFormUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
type
TFullScreenForm = class(TForm)
procedure FormKeyPress(Sender: TObject; var Key: Char);
procedure FormShow(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
FullScreenForm: TFullScreenForm;
implementation
{$R *.dfm}
procedure TFullScreenForm.FormKeyPress(Sender: TObject; var Key: Char);
begin
Close;
end;
procedure TFullScreenForm.FormShow(Sender: TObject);
begin
Application.ProcessMessages;
end;
end.

510
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.dfm Normal file
View File

@@ -0,0 +1,510 @@
object MainForm: TMainForm
Left = 491
Top = 194
Width = 543
Height = 575
Caption = 'PasLibVlcPlayerDemo'
Color = clBtnFace
Constraints.MinHeight = 455
Constraints.MinWidth = 435
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
PopupMenu = PopupMenu
Position = poScreenCenter
OnCreate = FormCreate
OnDestroy = FormDestroy
OnMouseDown = FormMouseDown
OnResize = FormResize
PixelsPerInch = 96
TextHeight = 13
object PR: TPanel
Left = 356
Top = 0
Width = 179
Height = 548
Align = alRight
BevelOuter = bvNone
TabOrder = 0
object PlayBtn: TButton
Left = 8
Top = 10
Width = 75
Height = 25
Caption = 'Play'
TabOrder = 0
OnClick = PlayClick
end
object PauseBtn: TButton
Left = 8
Top = 41
Width = 75
Height = 25
Caption = 'Pause'
TabOrder = 1
OnClick = PauseClick
end
object GetWidthBtn: TButton
Left = 8
Top = 99
Width = 75
Height = 25
Caption = 'Get width'
TabOrder = 2
OnClick = GetWidthClick
end
object GetHeightBtn: TButton
Left = 8
Top = 128
Width = 75
Height = 25
Caption = 'Get height'
TabOrder = 3
OnClick = GetHeightBtnClick
end
object GetStateBtn: TButton
Left = 8
Top = 157
Width = 75
Height = 25
Caption = 'Get state'
TabOrder = 4
OnClick = GetStateClick
end
object ResumeBtn: TButton
Left = 8
Top = 70
Width = 75
Height = 25
Caption = 'Resume'
TabOrder = 5
OnClick = ResumeClick
end
object GetPosLenBtn: TButton
Left = 8
Top = 184
Width = 75
Height = 25
Caption = 'Get pos, len'
TabOrder = 6
OnClick = GetPosLenClick
end
object Scale10Btn: TButton
Left = 8
Top = 215
Width = 75
Height = 25
Caption = 'Scale -10%'
TabOrder = 7
OnClick = Scale10Click
end
object ScaleFitBtn: TButton
Left = 8
Top = 244
Width = 75
Height = 25
Caption = 'ScaleFit'
TabOrder = 8
OnClick = ScaleFitClick
end
object SnapShotBtn: TButton
Left = 8
Top = 273
Width = 75
Height = 25
Caption = 'SnapShot'
TabOrder = 9
OnClick = SnapShotClick
end
object NextFrameBtn: TButton
Left = 8
Top = 304
Width = 75
Height = 25
Caption = 'Next Frame'
TabOrder = 10
OnClick = NextFrameClick
end
object GetASpectRatioBtn: TButton
Left = 96
Top = 10
Width = 75
Height = 25
Caption = 'Get Aspect'
TabOrder = 11
OnClick = GetASpectRatioClick
end
object SetAsp11Btn: TButton
Left = 96
Top = 41
Width = 75
Height = 25
Caption = 'Set asp 1:1'
TabOrder = 12
OnClick = SetAsp11Click
end
object SetAsp43Btn: TButton
Left = 96
Top = 70
Width = 75
Height = 25
Caption = 'Set asp 4:3'
TabOrder = 13
OnClick = SetAsp43Click
end
object GetVolume: TButton
Left = 96
Top = 99
Width = 75
Height = 25
Caption = 'Get Volume'
TabOrder = 14
OnClick = GetVolumeClick
end
object SetVolumeUp10: TButton
Left = 96
Top = 128
Width = 75
Height = 25
Caption = 'Volume +10'
TabOrder = 15
OnClick = SetVolumeUp10Click
end
object SetVolumeDo10: TButton
Left = 96
Top = 157
Width = 75
Height = 25
Caption = 'Volume -10'
TabOrder = 16
OnClick = SetVolumeDo10Click
end
object GetPlayRateBtn: TButton
Left = 96
Top = 186
Width = 75
Height = 25
Caption = 'Get Play Rate'
TabOrder = 17
OnClick = GetPlayRateBtnClick
end
object SetPlayRate2xBtn: TButton
Left = 96
Top = 215
Width = 75
Height = 25
Caption = 'Play Rate 2x'
TabOrder = 18
OnClick = SetPlayRate2xBtnClick
end
object SetPlayRateHalfBtn: TButton
Left = 96
Top = 244
Width = 75
Height = 25
Caption = 'Play Rate 1/2'
TabOrder = 19
OnClick = SetPlayRateHalfBtnClick
end
object FullScreenYesBtn: TButton
Left = 96
Top = 273
Width = 75
Height = 25
Caption = 'FullScreen'
TabOrder = 20
OnClick = FullScreenYesBtnClick
end
object DeInterlaceBtn: TButton
Left = 8
Top = 335
Width = 75
Height = 25
Caption = 'DeInterlace'
TabOrder = 21
OnClick = DeInterlaceBtnClick
end
object GetAudioChannel: TButton
Left = 96
Top = 304
Width = 75
Height = 25
Caption = 'Get Audio Ch'
TabOrder = 22
OnClick = GetAudioChannelClick
end
object SetAudioChannelLeft: TButton
Left = 96
Top = 335
Width = 75
Height = 25
Caption = 'Set Audio C L'
TabOrder = 23
OnClick = SetAudioChannelLeftClick
end
object SetAudioChannelRight: TButton
Left = 96
Top = 366
Width = 75
Height = 25
Caption = 'Set Audio C R'
TabOrder = 24
OnClick = SetAudioChannelRightClick
end
object SetAudioChannelStereo: TButton
Left = 96
Top = 397
Width = 75
Height = 25
Caption = 'Set Audio C S'
TabOrder = 26
OnClick = SetAudioChannelStereoClick
end
object GetAudioOutListBtn: TButton
Left = 8
Top = 366
Width = 75
Height = 25
Caption = 'AudioOutList'
TabOrder = 25
OnClick = GetAudioOutListBtnClick
end
object GetAudioOutDevEnumBtn: TButton
Left = 8
Top = 397
Width = 75
Height = 25
Caption = 'AOutDevEnum'
TabOrder = 27
OnClick = GetAudioOutDevEnumBtnClick
end
object SetEqualizerBtn: TButton
Left = 96
Top = 428
Width = 75
Height = 25
Caption = 'Set Equalizer'
TabOrder = 28
OnClick = SetEqualizerBtnClick
end
object GetEqPreListBtn: TButton
Left = 96
Top = 459
Width = 75
Height = 25
Caption = 'EqalizerPreList'
TabOrder = 29
OnClick = GetEqPreListBtnClick
end
object ChAudioOut: TButton
Left = 8
Top = 428
Width = 75
Height = 25
Caption = 'Ch Audio Out'
TabOrder = 30
OnClick = ChAudioOutClick
end
object GetAudioTrackListBtn: TButton
Left = 8
Top = 459
Width = 75
Height = 25
Caption = 'AudioTrackList'
TabOrder = 31
OnClick = GetAudioTrackListBtnClick
end
object GetAudioFilterListBtn: TButton
Left = 8
Top = 490
Width = 75
Height = 25
Caption = 'AudioFilterList'
TabOrder = 32
OnClick = GetAudioFilterListBtnClick
end
object GetVideoFilterListBtn: TButton
Left = 96
Top = 490
Width = 75
Height = 25
Caption = 'VideoFilterList'
TabOrder = 33
OnClick = GetVideoFilterListBtnClick
end
object VideoAdjustBtn: TButton
Left = 8
Top = 521
Width = 75
Height = 25
Caption = 'Video Adjust'
TabOrder = 34
OnClick = VideoAdjustBtnClick
end
end
object PL: TPanel
Left = 0
Top = 0
Width = 356
Height = 548
Align = alClient
BevelOuter = bvNone
TabOrder = 1
object MrlLab: TLabel
Left = 8
Top = 4
Width = 60
Height = 13
Caption = 'MRL to play:'
FocusControl = MrlEdit
end
object MrlEdit: TEdit
Left = 8
Top = 20
Width = 320
Height = 21
TabOrder = 0
Text = '..\..\_testFiles\Maximize.mp4'
end
object PasLibVlcPlayer1: TPasLibVlcPlayer
Left = 8
Top = 45
Height = 202
OnClick = PasLibVlcPlayer1Click
OnDblClick = PasLibVlcPlayer1DblClick
OnMouseDown = PasLibVlcPlayer1MouseDown
OnMouseMove = PasLibVlcPlayer1MouseMove
OnMouseUp = PasLibVlcPlayer1MouseUp
AudioOutput = aoWaveOut
SnapShotFmt = 'png'
OnMediaPlayerMediaChanged = PasLibVlcPlayer1MediaPlayerMediaChanged
OnMediaPlayerNothingSpecial = PasLibVlcPlayer1MediaPlayerNothingSpecial
OnMediaPlayerOpening = PasLibVlcPlayer1MediaPlayerOpening
OnMediaPlayerBuffering = PasLibVlcPlayer1MediaPlayerBuffering
OnMediaPlayerPlaying = PasLibVlcPlayer1MediaPlayerPlaying
OnMediaPlayerPaused = PasLibVlcPlayer1MediaPlayerPaused
OnMediaPlayerStopped = PasLibVlcPlayer1MediaPlayerStopped
OnMediaPlayerForward = PasLibVlcPlayer1MediaPlayerForward
OnMediaPlayerBackward = PasLibVlcPlayer1MediaPlayerBackward
OnMediaPlayerEndReached = PasLibVlcPlayer1MediaPlayerEndReached
OnMediaPlayerEncounteredError = PasLibVlcPlayer1MediaPlayerEncounteredError
OnMediaPlayerTimeChanged = PasLibVlcPlayer1MediaPlayerTimeChanged
OnMediaPlayerPositionChanged = PasLibVlcPlayer1MediaPlayerPositionChanged
OnMediaPlayerSeekableChanged = PasLibVlcPlayer1MediaPlayerSeekableChanged
OnMediaPlayerPausableChanged = PasLibVlcPlayer1MediaPlayerPausableChanged
OnMediaPlayerTitleChanged = PasLibVlcPlayer1MediaPlayerTitleChanged
OnMediaPlayerSnapshotTaken = PasLibVlcPlayer1MediaPlayerSnapshotTaken
OnMediaPlayerLengthChanged = PasLibVlcPlayer1MediaPlayerLengthChanged
OnMediaPlayerVideoOutChanged = PasLibVlcPlayer1MediaPlayerVideoOutChanged
OnMediaPlayerScrambledChanged = PasLibVlcPlayer1MediaPlayerScrambledChanged
OnMediaPlayerCorked = PasLibVlcPlayer1MediaPlayerCorked
OnMediaPlayerUnCorked = PasLibVlcPlayer1MediaPlayerUnCorked
OnMediaPlayerMuted = PasLibVlcPlayer1MediaPlayerMuted
OnMediaPlayerUnMuted = PasLibVlcPlayer1MediaPlayerUnMuted
OnMediaPlayerAudioVolumeChanged = PasLibVlcPlayer1MediaPlayerAudioVolumeChanged
OnMediaPlayerEsAdded = PasLibVlcPlayer1MediaPlayerEsAdded
OnMediaPlayerEsDeleted = PasLibVlcPlayer1MediaPlayerEsDeleted
OnMediaPlayerEsSelected = PasLibVlcPlayer1MediaPlayerEsSelected
OnMediaPlayerAudioDevice = PasLibVlcPlayer1MediaPlayerAudioDevice
OnMediaPlayerChapterChanged = PasLibVlcPlayer1MediaPlayerChapterChanged
OnRendererDiscoveredItemAdded = PasLibVlcPlayer1RendererDiscoveredItemAdded
OnRendererDiscoveredItemDeleted = PasLibVlcPlayer1RendererDiscoveredItemDeleted
end
object ProgPanel: TPanel
Left = 8
Top = 252
Width = 320
Height = 46
TabOrder = 2
object ProgLabel1: TLabel
Left = 1
Top = 25
Width = 44
Height = 20
Align = alLeft
Caption = '00:00:00'
end
object ProgLabel2: TLabel
Left = 275
Top = 25
Width = 44
Height = 20
Align = alRight
Caption = '00:00:00'
end
object ProgBar: TTrackBar
Left = 1
Top = 1
Width = 318
Height = 24
Align = alTop
TabOrder = 0
ThumbLength = 15
TickStyle = tsNone
OnChange = ProgBarChange
end
end
object LB: TListBox
Left = 9
Top = 309
Width = 320
Height = 176
ItemHeight = 13
PopupMenu = LbPopupMenu
TabOrder = 3
end
object BtnSelect: TButton
Left = 276
Top = 21
Width = 51
Height = 19
Caption = 'Select'
TabOrder = 4
OnClick = BtnSelectClick
end
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
DefaultExt = '*.*'
Filter = 'All files|*.*'
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

1040
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/MainFormUnit.pas Normal file
View File

File diff suppressed because it is too large Load Diff

56
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.dfm Normal file
View File

@@ -0,0 +1,56 @@
object SelectOutputDeviceForm: TSelectOutputDeviceForm
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'Select output device'
ClientHeight = 242
ClientWidth = 395
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
PixelsPerInch = 96
TextHeight = 13
object OutputDevicesLabel: TLabel
Left = 12
Top = 8
Width = 77
Height = 13
Caption = 'Output devices:'
FocusControl = OutputDevicesLB
end
object OutputDevicesLB: TListBox
Left = 12
Top = 27
Width = 285
Height = 198
Style = lbOwnerDrawFixed
ItemHeight = 16
TabOrder = 0
OnDblClick = OutputDevicesLBDblClick
OnDrawItem = OutputDevicesLBDrawItem
end
object OkBtn: TButton
Left = 310
Top = 28
Width = 75
Height = 25
Caption = 'OK'
Default = True
TabOrder = 1
OnClick = OkBtnClick
end
object CancelBtn: TButton
Left = 310
Top = 59
Width = 75
Height = 25
Caption = 'Cancel'
ModalResult = 2
TabOrder = 2
end
end

90
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SelectOutputDeviceFormUnit.pas Normal file
View File

@@ -0,0 +1,90 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
unit SelectOutputDeviceFormUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;
type
TSelectOutputDeviceForm = class(TForm)
OutputDevicesLB: TListBox;
OkBtn: TButton;
CancelBtn: TButton;
OutputDevicesLabel: TLabel;
procedure OkBtnClick(Sender: TObject);
procedure OutputDevicesLBDblClick(Sender: TObject);
procedure OutputDevicesLBDrawItem(Control: TWinControl; Index: Integer;
Rect: TRect; State: TOwnerDrawState);
private
{ Private declarations }
public
{ Public declarations }
end;
var
SelectOutputDeviceForm: TSelectOutputDeviceForm;
implementation
{$R *.dfm}
procedure TSelectOutputDeviceForm.OkBtnClick(Sender: TObject);
begin
if (OutputDevicesLB.ItemIndex < 0) then
begin
ModalResult := mrCancel;
end
else
begin
ModalResult := mrOK;
end;
end;
procedure TSelectOutputDeviceForm.OutputDevicesLBDblClick(Sender: TObject);
begin
if (OutputDevicesLB.ItemIndex > -1) then
begin
ModalResult := mrOK;
end;
end;
procedure TSelectOutputDeviceForm.OutputDevicesLBDrawItem(Control: TWinControl;
Index: Integer; Rect: TRect; State: TOwnerDrawState);
var
str : string;
begin
with (Control as TListBox).Canvas do
begin
FillRect(Rect);
str := (Control as TListBox).Items[Index];
TextOut(Rect.Left + 2, Rect.Top + 1, Copy(str, Pos('|', str) + 1, MaxInt));
end;
end;
end.

71
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.dfm Normal file
View File

@@ -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

85
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/SetEqualizerPresetFormUnit.pas Normal file
View File

@@ -0,0 +1,85 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
unit SetEqualizerPresetFormUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, PasLibVlcClassUnit;
type
TSetEqualizerPresetForm = class(TForm)
PresetListLB: TListBox;
OkBtn: TButton;
CancelBtn: TButton;
PresetListLabel: TLabel;
BandInfoLB: TListBox;
BandInfoLabel: TLabel;
procedure PresetListLBClick(Sender: TObject);
private
{ Private declarations }
public
FVLC : TPasLibVlc;
end;
var
SetEqualizerPresetForm: TSetEqualizerPresetForm;
implementation
{$R *.dfm}
procedure TSetEqualizerPresetForm.PresetListLBClick(Sender: TObject);
var
equalizer : TPasLibVlcEqualizer;
index : Integer;
begin
BandInfoLB.Clear;
if (PresetListLB.ItemIndex > -1) then
begin
equalizer := TPasLibVlcEqualizer.Create(
FVLC,
Word(PresetListLB.Items.Objects[PresetListLB.ItemIndex])
);
BandInfoLB.AddItem(
'PreAmp: ' + IntToStr(Round(equalizer.GetPreAmp())),
NIL
);
for index := 0 to equalizer.GetBandCount() - 1 do
begin
BandInfoLB.AddItem(
'Band no: ' + IntToStr(index+1) +
', freq.: ' + IntToStr(Round(equalizer.GetBandFrequency(index))) +
'Hz, amp.:' + IntToStr(Round(equalizer.GetAmp(index))),
NIL
);
end;
equalizer.Free;
end;
end;
end.

127
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.dfm Normal file
View File

@@ -0,0 +1,127 @@
object VideoAdjustForm: TVideoAdjustForm
Left = 0
Top = 0
BorderStyle = bsDialog
Caption = 'Video Adjust'
ClientHeight = 509
ClientWidth = 337
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
Font.Height = -11
Font.Name = 'Tahoma'
Font.Style = []
OldCreateOrder = False
Position = poMainFormCenter
OnShow = FormShow
PixelsPerInch = 96
TextHeight = 13
object labVideoAdjustContrast: TLabel
Left = 20
Top = 52
Width = 76
Height = 13
Caption = 'Adjust Contrast'
FocusControl = tbVideoAdjustContrast
end
object labVideoAdjustBrightness: TLabel
Left = 20
Top = 140
Width = 84
Height = 13
Caption = 'Adjust Brightness'
FocusControl = tbVideoAdjustBrightness
end
object labVideoAdjustHue: TLabel
Left = 20
Top = 228
Width = 53
Height = 13
Caption = 'Adjust Hue'
FocusControl = tbVideoAdjustHue
end
object labVideoAdjustSaturation: TLabel
Left = 20
Top = 316
Width = 84
Height = 13
Caption = 'Adjust Saturation'
FocusControl = tbVideoAdjustSaturation
end
object labVideoAdjustGamma: TLabel
Left = 20
Top = 408
Width = 66
Height = 13
Caption = 'AdjustGamma'
FocusControl = tbVideoAdjustGamma
end
object chkVideoAdjustEnable: TCheckBox
Left = 20
Top = 16
Width = 113
Height = 17
Caption = 'Video Adjust Enable'
TabOrder = 0
OnClick = chkVideoAdjustEnableClick
end
object tbVideoAdjustContrast: TTrackBar
Left = 20
Top = 76
Width = 293
Height = 45
Max = 200
PageSize = 0
Frequency = 10
Position = 100
TabOrder = 1
OnChange = tbVideoAdjustContrastChange
end
object tbVideoAdjustBrightness: TTrackBar
Left = 20
Top = 164
Width = 293
Height = 45
Max = 200
PageSize = 0
Frequency = 10
Position = 100
TabOrder = 2
OnChange = tbVideoAdjustBrightnessChange
end
object tbVideoAdjustHue: TTrackBar
Left = 20
Top = 252
Width = 293
Height = 45
Max = 360
PageSize = 0
Frequency = 10
TabOrder = 3
OnChange = tbVideoAdjustHueChange
end
object tbVideoAdjustSaturation: TTrackBar
Left = 20
Top = 340
Width = 293
Height = 45
Max = 300
PageSize = 0
Frequency = 10
Position = 100
TabOrder = 4
OnChange = tbVideoAdjustSaturationChange
end
object tbVideoAdjustGamma: TTrackBar
Left = 20
Top = 432
Width = 293
Height = 45
Max = 1000
PageSize = 0
Frequency = 50
Position = 100
TabOrder = 5
OnChange = tbVideoAdjustGammaChange
end
end

160
PasLibVlc/Delphi7/DemoPasLibVlcPlayer/VideoAdjustFormUnit.pas Normal file
View File

@@ -0,0 +1,160 @@
(*
* This program is free software; you can redistribute it and/or modify
* it under the terms of the GNU General Public License as published by
* the Free Software Foundation; either version 2 of the License, or
* (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
*
* Any non-GPL usage of this software or parts of this software is strictly
* forbidden.
*
* The "appropriate copyright message" mentioned in section 2c of the GPLv2
* must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
*
*)
{$I ..\..\source\compiler.inc}
unit VideoAdjustFormUnit;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ComCtrls;
type
TVideoAdjustForm = class(TForm)
chkVideoAdjustEnable: TCheckBox;
tbVideoAdjustContrast: TTrackBar;
labVideoAdjustContrast: TLabel;
tbVideoAdjustBrightness: TTrackBar;
labVideoAdjustBrightness: TLabel;
tbVideoAdjustHue: TTrackBar;
labVideoAdjustHue: TLabel;
tbVideoAdjustSaturation: TTrackBar;
labVideoAdjustSaturation: TLabel;
tbVideoAdjustGamma: TTrackBar;
labVideoAdjustGamma: TLabel;
procedure chkVideoAdjustEnableClick(Sender: TObject);
procedure FormShow(Sender: TObject);
procedure tbVideoAdjustContrastChange(Sender: TObject);
procedure tbVideoAdjustBrightnessChange(Sender: TObject);
procedure tbVideoAdjustHueChange(Sender: TObject);
procedure tbVideoAdjustSaturationChange(Sender: TObject);
procedure tbVideoAdjustGammaChange(Sender: TObject);
private
FHandleChanges : Boolean;
public
end;
var
VideoAdjustForm: TVideoAdjustForm;
implementation
{$R *.dfm}
uses
MainFormUnit;
procedure TVideoAdjustForm.chkVideoAdjustEnableClick(Sender: TObject);
begin
MainForm.PasLibVlcPlayer1.SetVideoAdjustEnable(chkVideoAdjustEnable.Checked);
tbVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
labVideoAdjustContrast.Enabled := chkVideoAdjustEnable.Checked;
tbVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
labVideoAdjustBrightness.Enabled := chkVideoAdjustEnable.Checked;
tbVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
labVideoAdjustHue.Enabled := chkVideoAdjustEnable.Checked;
tbVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
labVideoAdjustSaturation.Enabled := chkVideoAdjustEnable.Checked;
tbVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
labVideoAdjustGamma.Enabled := chkVideoAdjustEnable.Checked;
end;
procedure TVideoAdjustForm.FormShow(Sender: TObject);
begin
FHandleChanges := FALSE;
// chkVideoAdjustEnable.Checked := MainForm.PasLibVlcPlayer1.GetVideoAdjustEnable();
chkVideoAdjustEnableClick(SELF);
with MainForm.PasLibVlcPlayer1 do
begin
tbVideoAdjustContrast.Position := Round(100 * GetVideoAdjustContrast());
tbVideoAdjustBrightness.Position := Round(100 * GetVideoAdjustBrightness());
tbVideoAdjustHue.Position := Round(GetVideoAdjustHue());
tbVideoAdjustSaturation.Position := Round(100 * GetVideoAdjustSaturation());
tbVideoAdjustGamma.Position := Round(100 * GetVideoAdjustGamma());
end;
FHandleChanges := TRUE;
end;
procedure TVideoAdjustForm.tbVideoAdjustBrightnessChange(Sender: TObject);
begin
if FHandleChanges then
begin
with MainForm.PasLibVlcPlayer1 do
begin
SetVideoAdjustBrightness(tbVideoAdjustBrightness.Position / 100);
end;
end;
end;
procedure TVideoAdjustForm.tbVideoAdjustContrastChange(Sender: TObject);
begin
if FHandleChanges then
begin
with MainForm.PasLibVlcPlayer1 do
begin
SetVideoAdjustContrast(tbVideoAdjustContrast.Position / 100);
end;
end;
end;
procedure TVideoAdjustForm.tbVideoAdjustGammaChange(Sender: TObject);
begin
if FHandleChanges then
begin
with MainForm.PasLibVlcPlayer1 do
begin
SetVideoAdjustGamma(tbVideoAdjustGamma.Position / 100);
end;
end;
end;
procedure TVideoAdjustForm.tbVideoAdjustHueChange(Sender: TObject);
begin
if FHandleChanges then
begin
with MainForm.PasLibVlcPlayer1 do
begin
SetVideoAdjustHue(tbVideoAdjustHue.Position);
end;
end;
end;
procedure TVideoAdjustForm.tbVideoAdjustSaturationChange(Sender: TObject);
begin
if FHandleChanges then
begin
with MainForm.PasLibVlcPlayer1 do
begin
SetVideoAdjustSaturation(tbVideoAdjustSaturation.Position);
end;
end;
end;
end.

26
PasLibVlc/Delphi7/PasLibVlc.bpg Normal file
View File

@@ -0,0 +1,26 @@
#------------------------------------------------------------------------------
VERSION = BWS.01
#------------------------------------------------------------------------------
!ifndef ROOT
ROOT = $(MAKEDIR)\..
!endif
#------------------------------------------------------------------------------
MAKE = $(ROOT)\bin\make.exe -$(MAKEFLAGS) -f$**
DCC = $(ROOT)\bin\dcc32.exe $**
BRCC = $(ROOT)\bin\brcc32.exe $**
#------------------------------------------------------------------------------
PROJECTS = PasLibVlcPlayer.bpl DemoPasLibVlc.exe DemoPasLibVlcPlayer.exe
#------------------------------------------------------------------------------
default: $(PROJECTS)
#------------------------------------------------------------------------------
DemoPasLibVlc.exe: DemoPasLibVlc\DemoPasLibVlc.dpr
$(DCC)
DemoPasLibVlcPlayer.exe: DemoPasLibVlcPlayer\DemoPasLibVlcPlayer.dpr
$(DCC)
PasLibVlcPlayer.bpl: PasLibVlcPlayer.dpk
$(DCC)

38
PasLibVlc/Delphi7/PasLibVlcPlayer.dpk Normal file
View File

@@ -0,0 +1,38 @@
package PasLibVlcPlayer;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO OFF}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS OFF}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO OFF}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'PasLibVlcPlayer design time package'}
{$IMPLICITBUILD ON}
{$DEFINE RELEASE}
requires
vcl,
rtl;
contains
PasLibVlcUnit in '..\source\PasLibVlcUnit.pas',
PasLibVlcClassUnit in '..\source\PasLibVlcClassUnit.pas',
PasLibVlcPlayerUnit in '..\source.vcl\PasLibVlcPlayerUnit.pas';
end.