Delphi/Delphi-OpenCV
1
0
Fork 0
mirror of https://github.com/Laex/Delphi-OpenCV.git synced 2024-11-15 15:55:53 +01:00
Code Issues Actions Packages Projects Releases Wiki Activity

Refactoring

Browse Source 
Signed-off-by: Laentir Valetov <laex@bk.ru>
This commit is contained in:
Laentir Valetov 2014-05-23 11:02:53 +04:00
parent b562a3bba9
commit 11f2e8b52f
11 changed files with 22 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
samples/Components/cCameraCapture/cCameraCapture.dproj
View File

@ -5,7 +5,7 @@
<FrameworkType>VCL</FrameworkType>
<MainSource>cCameraCapture.dpr</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Release</Config>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform Condition="'$(Platform)'==''">Win32</Platform>
<TargetedPlatforms>3</TargetedPlatforms>
<AppType>Application</AppType>
@ -93,6 +93,7 @@
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 10:59:06</VerInfo_Keys>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<DCC_RemoteDebug>false</DCC_RemoteDebug>
@ -108,7 +109,7 @@
<DCC_DebugInformation>0</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=22.05.2014 23:26:02</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 10:54:28</VerInfo_Keys>
<DCC_DebugInfoInExe>true</DCC_DebugInfoInExe>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>

BIN
samples/Components/cCameraCapture/cCameraCapture.res
View File

Binary file not shown.

8
samples/Components/cCameraCapture/uMainForm.dfm
View File

@ -59,7 +59,6 @@ object MainForm: TMainForm
Top = 28
Width = 300
Height = 300
VideoSource = ocvcmrsrc1
end
object ocvw2: TocvView
Left = 8
@ -103,7 +102,10 @@ object MainForm: TMainForm
end
object ocvmgprtn1: TocvImageOperation
VideoSource = ocvcmrsrc1
OperationClassName = 'TocvNoneOperation'
OperationClassName = 'TovcCannyOperation'
Operation.Threshold1 = 10.000000000000000000
Operation.Threshold2 = 100.000000000000000000
Operation.ApertureSize = 3
Operations = <
item
OperationClassName = 'TocvHaarCascade'
@ -129,6 +131,7 @@ object MainForm: TMainForm
Operation.CropRect.Width = 0
Operation.CropRect.Height = 0
end>
OperationsEnabled = False
OnAfterEachOperation = ocvmgprtn1AfterEachOperation
Left = 36
Top = 392
@ -146,7 +149,6 @@ object MainForm: TMainForm
Top = 40
end
object ocvpcmsrc1: TocvIPCamSource
Enabled = True
UserName = 'admin'
Password = 'admin'
IP = '10.1.1.202'

2
samples/Components/cFFmpegIPCamSource/cFFmpegIPCamSource.dproj
View File

@ -83,7 +83,7 @@
<DCC_RemoteDebug>true</DCC_RemoteDebug>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 0:25:10</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 10:58:12</VerInfo_Keys>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<DCC_RemoteDebug>false</DCC_RemoteDebug>

BIN
samples/Components/cFFmpegIPCamSource/cFFmpegIPCamSource.res
View File

Binary file not shown.

18
samples/Components/cFFmpegIPCamSource/uMainForm.dfm
View File

@ -2,8 +2,8 @@ object Form1: TForm1
Left = 0
Top = 0
Caption = 'FFMpeg IP Camera source'
ClientHeight = 273
ClientWidth = 356
ClientHeight = 194
ClientWidth = 229
Color = clBtnFace
Font.Charset = DEFAULT_CHARSET
Font.Color = clWindowText
@ -13,21 +13,21 @@ object Form1: TForm1
OldCreateOrder = False
PixelsPerInch = 96
TextHeight = 13
object ocvw1: TocvView
object ocvView1: TocvView
Left = 0
Top = 0
Width = 356
Height = 273
VideoSource = ocvfmpgpcmsrc1
Width = 229
Height = 194
VideoSource = ocvFFMpegIPCamSource1
Align = alClient
end
object ocvfmpgpcmsrc1: TocvFFMpegIPCamSource
object ocvFFMpegIPCamSource1: TocvFFMpegIPCamSource
Enabled = True
UserName = 'admin'
Password = 'admin'
IP = '10.1.1.202'
URI = '/cam/realmonitor?channel=1&subtype=0'
Left = 76
Top = 40
Left = 104
Top = 96
end
end

2
samples/Components/cFFmpegIPCamSource/uMainForm.pas
View File

@ -10,6 +10,8 @@ type
TForm1 = class(TForm)
ocvfmpgpcmsrc1: TocvFFMpegIPCamSource;
ocvw1: TocvView;
ocvFFMpegIPCamSource1: TocvFFMpegIPCamSource;
ocvView1: TocvView;
private
{ Private declarations }
public

2
source/component/Delphi20/OpenCV200.dproj
View File

@ -190,7 +190,7 @@
<DCC_UnitSearchPath>..;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=OpenCV Component;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=OpenCV Component;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 0:24:38</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=OpenCV Component;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=OpenCV Component;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 10:55:14</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>

BIN
source/component/Delphi20/OpenCV200.res
View File

Binary file not shown.

2
source/component/Delphi20/dclOpenCV200.dproj
View File

@ -123,7 +123,7 @@
<PropertyGroup Condition="'$(Cfg_1_Win32)'!=''">
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
<VerInfo_Locale>1033</VerInfo_Locale>
<VerInfo_Keys>CompanyName=;FileDescription=OpenCV Component;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=OpenCV Component;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 0:24:42</VerInfo_Keys>
<VerInfo_Keys>CompanyName=;FileDescription=OpenCV Component;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=OpenCV Component;ProductVersion=1.0.0.0;Comments=;LastCompiledTime=23.05.2014 10:55:17</VerInfo_Keys>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>

BIN
source/component/Delphi20/dclOpenCV200.res
View File

Binary file not shown.