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

2024-04-02 08:46:59 +03:00
parent fd57fffd3a
commit 3bb34d000b
5591 changed files with 3291734 additions and 0 deletions
--- a/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.dpr
+++ b/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.dpr
@@ -0,0 +1,42 @@
+(*
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ * Any non-GPL usage of this software or parts of this software is strictly
+ * forbidden.
+ *
+ * The "appropriate copyright message" mentioned in section 2c of the GPLv2
+ * must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
+ *
+ *)
+ 
+program DemoPasLibVlcPlayerPauseAtStart;
+
+uses
+  Forms,
+  MainFormUnit in 'MainFormUnit.pas' {MainForm},
+  PasLibVlcUnit in '..\..\source\PasLibVlcUnit.pas',
+  PasLibVlcPlayerUnit in '..\..\source\PasLibVlcPlayerUnit.pas',
+  PasLibVlcClassUnit in '..\..\source\PasLibVlcClassUnit.pas';
+
+{$R *.res}
+
+begin
+  Application.Initialize;
+  {$IFDEF DELPHI2007_UP}
+  Application.MainFormOnTaskbar := True;
+  {$ENDIF}
+  Application.CreateForm(TMainForm, MainForm);
+  Application.Run;
+end.
--- a/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.dproj
+++ b/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/DemoPasLibVlcPlayerPauseAtStart.dproj
@@ -0,0 +1,82 @@
+<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
+  <PropertyGroup>
+    <ProjectGuid>{cb35b21c-f0a4-455d-9f7a-e3399520f553}</ProjectGuid>
+    <MainSource>DemoPasLibVlcPlayerPauseAtStart.dpr</MainSource>
+    <Configuration Condition=" '$(Configuration)' == '' ">Release</Configuration>
+    <Platform Condition=" '$(Platform)' == '' ">AnyCPU</Platform>
+    <DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
+    <DCC_DependencyCheckOutputName>DemoPasLibVlcPlayerPauseAtStart.exe</DCC_DependencyCheckOutputName>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Release|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_DebugInformation>False</DCC_DebugInformation>
+    <DCC_LocalDebugSymbols>False</DCC_LocalDebugSymbols>
+    <DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
+    <DCC_Define>RELEASE</DCC_Define>
+    <DCC_UnitSearchPath>.\..\..\source\;.\..\..\source.vcl\</DCC_UnitSearchPath>
+    <DCC_ResourcePath>.\..\..\source\;.\..\..\source.vcl\</DCC_ResourcePath>
+    <DCC_ObjPath>.\..\..\source\;.\..\..\source.vcl\</DCC_ObjPath>
+    <DCC_IncludePath>.\..\..\source\;.\..\..\source.vcl\</DCC_IncludePath>
+  </PropertyGroup>
+  <PropertyGroup Condition=" '$(Configuration)|$(Platform)' == 'Debug|AnyCPU' ">
+    <Version>7.0</Version>
+    <DCC_Define>DEBUG</DCC_Define>
+  </PropertyGroup>
+  <ProjectExtensions>
+    <Borland.Personality>Delphi.Personality</Borland.Personality>
+    <Borland.ProjectType>VCLApplication</Borland.ProjectType>
+    <BorlandProject>
+<BorlandProject xmlns=""> <Delphi.Personality>   <Parameters>
+      <Parameters Name="UseLauncher">False</Parameters>
+      <Parameters Name="LoadAllSymbols">True</Parameters>
+      <Parameters Name="LoadUnspecifiedSymbols">False</Parameters>
+    </Parameters>
+    <VersionInfo>
+      <VersionInfo Name="IncludeVerInfo">False</VersionInfo>
+      <VersionInfo Name="AutoIncBuild">False</VersionInfo>
+      <VersionInfo Name="MajorVer">1</VersionInfo>
+      <VersionInfo Name="MinorVer">0</VersionInfo>
+      <VersionInfo Name="Release">0</VersionInfo>
+      <VersionInfo Name="Build">0</VersionInfo>
+      <VersionInfo Name="Debug">False</VersionInfo>
+      <VersionInfo Name="PreRelease">False</VersionInfo>
+      <VersionInfo Name="Special">False</VersionInfo>
+      <VersionInfo Name="Private">False</VersionInfo>
+      <VersionInfo Name="DLL">False</VersionInfo>
+      <VersionInfo Name="Locale">1045</VersionInfo>
+      <VersionInfo Name="CodePage">1250</VersionInfo>
+    </VersionInfo>
+    <VersionInfoKeys>
+      <VersionInfoKeys Name="CompanyName"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileDescription"></VersionInfoKeys>
+      <VersionInfoKeys Name="FileVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="InternalName"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalCopyright"></VersionInfoKeys>
+      <VersionInfoKeys Name="LegalTrademarks"></VersionInfoKeys>
+      <VersionInfoKeys Name="OriginalFilename"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductName"></VersionInfoKeys>
+      <VersionInfoKeys Name="ProductVersion">1.0.0.0</VersionInfoKeys>
+      <VersionInfoKeys Name="Comments"></VersionInfoKeys>
+    </VersionInfoKeys>
+    <Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dcloffice2k100.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
+      <Excluded_Packages Name="$(BDS)\bin\dclofficexp100.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
+    </Excluded_Packages>
+    <Source>
+      <Source Name="MainSource">DemoPasLibVlcPlayerPauseAtStart.dpr</Source>
+    </Source>
+  </Delphi.Personality> </BorlandProject></BorlandProject>
+  </ProjectExtensions>
+  <Import Project="$(MSBuildBinPath)\Borland.Delphi.Targets" />
+  <ItemGroup>
+    <DelphiCompile Include="DemoPasLibVlcPlayerPauseAtStart.dpr">
+      <MainSource>MainSource</MainSource>
+    </DelphiCompile>
+    <DCCReference Include="..\..\source\PasLibVlcClassUnit.pas" />
+    <DCCReference Include="..\..\source\PasLibVlcPlayerUnit.pas" />
+    <DCCReference Include="..\..\source\PasLibVlcUnit.pas" />
+    <DCCReference Include="MainFormUnit.pas">
+      <Form>MainForm</Form>
+    </DCCReference>
+  </ItemGroup>
+</Project>
--- a/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.dfm
+++ b/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.dfm
@@ -0,0 +1,40 @@
+object MainForm: TMainForm
+  Left = 0
+  Top = 0
+  Caption = 'DemoPasLivVlcPlayerPauseAtStart'
+  ClientHeight = 339
+  ClientWidth = 414
+  Color = clBtnFace
+  Font.Charset = DEFAULT_CHARSET
+  Font.Color = clWindowText
+  Font.Height = -11
+  Font.Name = 'Tahoma'
+  Font.Style = []
+  OldCreateOrder = False
+  OnCreate = FormCreate
+  PixelsPerInch = 96
+  TextHeight = 13
+  object mrlEdit: TEdit
+    Left = 12
+    Top = 12
+    Width = 391
+    Height = 21
+    TabOrder = 0
+  end
+  object player: TPasLibVlcPlayer
+    Left = 12
+    Top = 44
+    Width = 391
+    SnapShotFmt = 'png'
+    OnMediaPlayerTimeChanged = playerMediaPlayerTimeChanged
+  end
+  object playButton: TButton
+    Left = 164
+    Top = 300
+    Width = 75
+    Height = 25
+    Caption = 'Play'
+    TabOrder = 2
+    OnClick = playButtonClick
+  end
+end
--- a/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.pas
+++ b/PasLibVlc/Delphi2007/DemoPasLibVlcPlayerPauseAtStart/MainFormUnit.pas
@@ -0,0 +1,80 @@
+(*
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License as published by
+ * the Free Software Foundation; either version 2 of the License, or
+ * (at your option) any later version.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License
+ * along with this program; if not, write to the Free Software
+ * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ *
+ * Any non-GPL usage of this software or parts of this software is strictly
+ * forbidden.
+ *
+ * The "appropriate copyright message" mentioned in section 2c of the GPLv2
+ * must read: "Code from FAAD2 is copyright (c) Nero AG, www.nero.com"
+ *
+ *)
+
+{$I ..\..\source\compiler.inc}
+
+unit MainFormUnit;
+
+interface
+
+uses
+  {$IFDEF UNIX}Unix,{$ENDIF}
+  {$IFDEF MSWINDOWS}Windows,{$ENDIF}
+  Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
+  Dialogs, StdCtrls, ExtCtrls, PasLibVlcPlayerUnit;
+
+type
+  TMainForm = class(TForm)
+    mrlEdit: TEdit;
+    player: TPasLibVlcPlayer;
+    playButton: TButton;
+    procedure FormCreate(Sender: TObject);
+    procedure playerMediaPlayerTimeChanged(Sender: TObject;
+      time: Int64);
+    procedure playButtonClick(Sender: TObject);
+  private
+    needStop : Boolean;
+  public
+    { Public declarations }
+  end;
+
+var
+  MainForm: TMainForm;
+
+implementation
+
+{$R *.dfm}
+
+procedure TMainForm.FormCreate(Sender: TObject);
+begin
+  needStop := TRUE;
+  mrlEdit.Text := '..'+PathDelim+'..'+PathDelim+'_testFiles'+PathDelim+'test.ts';
+  player.Play(mrlEdit.Text);
+end;
+
+procedure TMainForm.playButtonClick(Sender: TObject);
+begin
+  player.Resume();
+end;
+
+procedure TMainForm.playerMediaPlayerTimeChanged(Sender: TObject;
+  time: Int64);
+begin
+  if (needStop) and (time > 100) then
+  begin
+    needStop := FALSE;
+    player.Pause();
+  end;
+end;
+
+end.