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

Added support Delphi XE

Browse Source 
Signed-off-by: Mikhail Grigorev <sleuthhound@gmail.com>
This commit is contained in:
Mikhail Grigorev 2014-09-29 15:50:37 +06:00
parent 2fb96dc545
commit 2ab784631e
20 changed files with 580 additions and 9 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

40
source/component/Delphi15/OpenCV150.dpk Normal file
View File

@ -0,0 +1,40 @@
package OpenCV150;
{$R *.res}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'OpenCV Component'}
{$RUNONLY}
{$IMPLICITBUILD OFF}
requires
rtl,
vcl;
contains
ocv.comp.ImageOperation in '..\ocv.comp.ImageOperation.pas',
ocv.comp.VideoWriter in '..\ocv.comp.VideoWriter.pas',
ocv.comp.Types in '..\ocv.comp.Types.pas',
ocv.comp.Source in '..\ocv.comp.Source.pas',
ocv.comp.Proc in '..\ocv.comp.Proc.pas';
end.

127
source/component/Delphi15/OpenCV150.dproj Normal file
View File

@ -0,0 +1,127 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{D7CEE9A5-C8B3-4650-AF04-58B63437DFEA}</ProjectGuid>
<MainSource>OpenCV150.dpk</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform>Win32</Platform>
<AppType>Package</AppType>
<FrameworkType>VCL</FrameworkType>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<ProjectVersion>12.3</ProjectVersion>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<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="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DCC_ImageBase>00400000</DCC_ImageBase>
<GenPackage>true</GenPackage>
<DCC_DcuOutput>.</DCC_DcuOutput>
<RuntimeOnlyPackage>true</RuntimeOnlyPackage>
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Description>OpenCV Component</DCC_Description>
<DCC_UnitSearchPath>..\..\..\resource\facedetectxml;..;..\..;..\..\ffmpeg;..\..\opengl;..\..\sdl;..\..\sdl2;..\..\utils;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_S>false</DCC_S>
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
<GenDll>true</GenDll>
<DCC_N>false</DCC_N>
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="OpenCV150.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="rtl.dcp"/>
<DCCReference Include="vcl.dcp"/>
<DCCReference Include="..\ocv.comp.ImageOperation.pas"/>
<DCCReference Include="..\ocv.comp.VideoWriter.pas"/>
<DCCReference Include="..\ocv.comp.Types.pas"/>
<DCCReference Include="..\ocv.comp.Source.pas"/>
<DCCReference Include="..\ocv.comp.Proc.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>
<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"/>
<PropertyGroup>
<PreBuildEvent><![CDATA[brcc32 ..\..\..\resource\facedetectxml\haarcascade.rc -fo.\haarcascade.res]]></PreBuildEvent>
</PropertyGroup>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">OpenCV150.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">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)\dcloffice2k150.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
<Excluded_Packages Name="$(BDSBIN)\dclofficexp150.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
</Excluded_Packages>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
</Project>

BIN
source/component/Delphi15/OpenCV150.res Normal file
View File

Binary file not shown.

60
source/component/Delphi15/RAD Studio XE.groupproj Normal file
View File

@ -0,0 +1,60 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{123C2C1C-F3E2-4B46-966A-C31A0B5EEB39}</ProjectGuid>
</PropertyGroup>
<ItemGroup>
<Projects Include="OpenCV150.dproj">
<Dependencies/>
</Projects>
<Projects Include="dclCommonOpenCV150.dproj">
<Dependencies>OpenCV150.dproj</Dependencies>
</Projects>
<Projects Include="dclVCLOpenCV150.dproj">
<Dependencies>dclCommonOpenCV150.dproj</Dependencies>
</Projects>
</ItemGroup>
<ProjectExtensions>
<Borland.Personality>Default.Personality.12</Borland.Personality>
<Borland.ProjectType/>
<BorlandProject>
<Default.Personality/>
</BorlandProject>
</ProjectExtensions>
<Target Name="OpenCV150">
<MSBuild Projects="OpenCV150.dproj"/>
</Target>
<Target Name="OpenCV150:Clean">
<MSBuild Projects="OpenCV150.dproj" Targets="Clean"/>
</Target>
<Target Name="OpenCV150:Make">
<MSBuild Projects="OpenCV150.dproj" Targets="Make"/>
</Target>
<Target Name="dclCommonOpenCV150" DependsOnTargets="OpenCV150">
<MSBuild Projects="dclCommonOpenCV150.dproj"/>
</Target>
<Target Name="dclCommonOpenCV150:Clean" DependsOnTargets="OpenCV150:Clean">
<MSBuild Projects="dclCommonOpenCV150.dproj" Targets="Clean"/>
</Target>
<Target Name="dclCommonOpenCV150:Make" DependsOnTargets="OpenCV150:Make">
<MSBuild Projects="dclCommonOpenCV150.dproj" Targets="Make"/>
</Target>
<Target Name="dclVCLOpenCV150" DependsOnTargets="dclCommonOpenCV150">
<MSBuild Projects="dclVCLOpenCV150.dproj"/>
</Target>
<Target Name="dclVCLOpenCV150:Clean" DependsOnTargets="dclCommonOpenCV150:Clean">
<MSBuild Projects="dclVCLOpenCV150.dproj" Targets="Clean"/>
</Target>
<Target Name="dclVCLOpenCV150:Make" DependsOnTargets="dclCommonOpenCV150:Make">
<MSBuild Projects="dclVCLOpenCV150.dproj" Targets="Make"/>
</Target>
<Target Name="Build">
<CallTarget Targets="OpenCV150;dclCommonOpenCV150;dclVCLOpenCV150"/>
</Target>
<Target Name="Clean">
<CallTarget Targets="OpenCV150:Clean;dclCommonOpenCV150:Clean;dclVCLOpenCV150:Clean"/>
</Target>
<Target Name="Make">
<CallTarget Targets="OpenCV150:Make;dclCommonOpenCV150:Make;dclVCLOpenCV150:Make"/>
</Target>
<Import Condition="Exists('$(BDS)\Bin\CodeGear.Group.Targets')" Project="$(BDS)\Bin\CodeGear.Group.Targets"/>
</Project>

38
source/component/Delphi15/dclCommonOpenCV150.dpk Normal file
View File

@ -0,0 +1,38 @@
package dclCommonOpenCV150;
{$R *.res}
{$R *.dres}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'OpenCV Component'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
requires
OpenCV150,
designide;
contains
ocv.comp.IOProperties in '..\ocv.comp.IOProperties.pas',
ocv.comp.Register in '..\ocv.comp.Register.pas';
end.

117
source/component/Delphi15/dclCommonOpenCV150.dproj Normal file
View File

@ -0,0 +1,117 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{8AAAEECE-2B47-43E8-8D35-A3E3A2A32215}</ProjectGuid>
<MainSource>dclCommonOpenCV150.dpk</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform>Win32</Platform>
<AppType>Package</AppType>
<FrameworkType>None</FrameworkType>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<ProjectVersion>12.3</ProjectVersion>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<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="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DesignOnlyPackage>true</DesignOnlyPackage>
<GenPackage>true</GenPackage>
<DCC_DcuOutput>.</DCC_DcuOutput>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Description>OpenCV Component</DCC_Description>
<DCC_UnitSearchPath>..\..\..\resource\facedetectxml;..;..\..;..\..\ffmpeg;..\..\opengl;..\..\sdl;..\..\sdl2;..\..\utils;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_S>false</DCC_S>
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
<GenDll>true</GenDll>
<DCC_N>false</DCC_N>
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="dclCommonOpenCV150.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="OpenCV150.dcp"/>
<DCCReference Include="designide.dcp"/>
<DCCReference Include="..\ocv.comp.IOProperties.pas"/>
<DCCReference Include="..\ocv.comp.Register.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>
<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"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">dclCommonOpenCV150.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">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>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
</Project>

BIN
source/component/Delphi15/dclCommonOpenCV150.dres Normal file
View File

Binary file not shown.

BIN
source/component/Delphi15/dclCommonOpenCV150.res Normal file
View File

Binary file not shown.

6
source/component/Delphi15/dclCommonOpenCV150Resource.rc Normal file
View File

@ -0,0 +1,6 @@
TocvIPCamSource BITMAP "..\\Resource\\ipcamera.bmp"
TocvCameraSource BITMAP "..\\Resource\\webcamera.bmp"
TocvFFMpegIPCamSource BITMAP "..\\Resource\\ipcameraffmpeg.bmp"
TocvImageOperation BITMAP "..\\Resource\\imagetransform.bmp"
TocvFileSource BITMAP "..\\Resource\\filesource.bmp"
TocvVideoWriter BITMAP "..\\Resource\\wideowriter.bmp"

39
source/component/Delphi15/dclVCLOpenCV150.dpk Normal file
View File

@ -0,0 +1,39 @@
package dclVCLOpenCV150;
{$R *.res}
{$R *.dres}
{$ALIGN 8}
{$ASSERTIONS ON}
{$BOOLEVAL OFF}
{$DEBUGINFO ON}
{$EXTENDEDSYNTAX ON}
{$IMPORTEDDATA ON}
{$IOCHECKS ON}
{$LOCALSYMBOLS ON}
{$LONGSTRINGS ON}
{$OPENSTRINGS ON}
{$OPTIMIZATION ON}
{$OVERFLOWCHECKS OFF}
{$RANGECHECKS OFF}
{$REFERENCEINFO ON}
{$SAFEDIVIDE OFF}
{$STACKFRAMES OFF}
{$TYPEDADDRESS OFF}
{$VARSTRINGCHECKS ON}
{$WRITEABLECONST OFF}
{$MINENUMSIZE 1}
{$IMAGEBASE $400000}
{$DESCRIPTION 'OpenCV Component'}
{$DESIGNONLY}
{$IMPLICITBUILD OFF}
requires
OpenCV150,
dclCommonOpenCV150,
designide;
contains
ocv.comp.RegisterVCL in '..\ocv.comp.RegisterVCL.pas',
ocv.comp.View in '..\ocv.comp.View.pas';
end.

119
source/component/Delphi15/dclVCLOpenCV150.dproj Normal file
View File

@ -0,0 +1,119 @@
 <Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
<PropertyGroup>
<ProjectGuid>{481C2F58-DE21-43CB-A67E-4982713B3449}</ProjectGuid>
<MainSource>dclVCLOpenCV150.dpk</MainSource>
<Base>True</Base>
<Config Condition="'$(Config)'==''">Debug</Config>
<Platform>Win32</Platform>
<AppType>Package</AppType>
<FrameworkType>None</FrameworkType>
<DCC_DCCCompiler>DCC32</DCC_DCCCompiler>
<ProjectVersion>12.3</ProjectVersion>
</PropertyGroup>
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
<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="'$(Config)'=='Debug' or '$(Cfg_2)'!=''">
<Cfg_2>true</Cfg_2>
<CfgParent>Base</CfgParent>
<Base>true</Base>
</PropertyGroup>
<PropertyGroup Condition="'$(Base)'!=''">
<DesignOnlyPackage>true</DesignOnlyPackage>
<GenPackage>true</GenPackage>
<DCC_DcuOutput>.</DCC_DcuOutput>
<DCC_ImageBase>00400000</DCC_ImageBase>
<DCC_UnitAlias>WinTypes=Windows;WinProcs=Windows;DbiTypes=BDE;DbiProcs=BDE;DbiErrs=BDE;WinTypes=Windows;WinProcs=Windows;$(DCC_UnitAlias)</DCC_UnitAlias>
<DCC_Description>OpenCV Component</DCC_Description>
<DCC_UnitSearchPath>..\..\..\resource\facedetectxml;..;..\..;..\..\ffmpeg;..\..\opengl;..\..\sdl;..\..\sdl2;..\..\utils;$(DCC_UnitSearchPath)</DCC_UnitSearchPath>
<DCC_S>false</DCC_S>
<DCC_OutputNeverBuildDcps>true</DCC_OutputNeverBuildDcps>
<GenDll>true</GenDll>
<DCC_N>false</DCC_N>
<DCC_E>false</DCC_E>
<DCC_F>false</DCC_F>
<DCC_K>false</DCC_K>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_1)'!=''">
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
<DCC_DebugInformation>false</DCC_DebugInformation>
</PropertyGroup>
<PropertyGroup Condition="'$(Cfg_2)'!=''">
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
<DCC_Optimize>false</DCC_Optimize>
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
</PropertyGroup>
<ItemGroup>
<DelphiCompile Include="dclVCLOpenCV150.dpk">
<MainSource>MainSource</MainSource>
</DelphiCompile>
<DCCReference Include="*.dres"/>
<DCCReference Include="OpenCV150.dcp"/>
<DCCReference Include="dclCommonOpenCV150.dcp"/>
<DCCReference Include="designide.dcp"/>
<DCCReference Include="..\ocv.comp.RegisterVCL.pas"/>
<DCCReference Include="..\ocv.comp.View.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>
<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"/>
<ProjectExtensions>
<Borland.Personality>Delphi.Personality.12</Borland.Personality>
<Borland.ProjectType>Package</Borland.ProjectType>
<BorlandProject>
<Delphi.Personality>
<Source>
<Source Name="MainSource">dclVCLOpenCV150.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">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>
</Delphi.Personality>
<Platforms>
<Platform value="Win32">True</Platform>
</Platforms>
</BorlandProject>
<ProjectFileVersion>12</ProjectFileVersion>
</ProjectExtensions>
</Project>

BIN
source/component/Delphi15/dclVCLOpenCV150.dres Normal file
View File

Binary file not shown.

BIN
source/component/Delphi15/dclVCLOpenCV150.res Normal file
View File

Binary file not shown.

1
source/component/Delphi15/dclVCLOpenCV150Resource.rc Normal file
View File

@ -0,0 +1 @@
TocvView BITMAP "..\\Resource\\view.bmp"

BIN
source/component/Delphi15/haarcascade.res Normal file
View File

Binary file not shown.

7
source/component/ocv.comp.IOProperties.pas
View File

@ -35,7 +35,12 @@ uses
{$IFDEF FPC}
PropEdits, ComponentEditors, LResources,
{$ELSE}
{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf, System.Classes, {$ELSE}DsgnIntf, Classes, {$ENDIF}
{$IFDEF HAS_UNITSCOPE}
System.Classes,
{$ELSE ~HAS_UNITSCOPE}
Classes,
{$ENDIF ~HAS_UNITSCOPE}
{$IFDEF DELPHI6_UP}DesignEditors, DesignIntf,{$ELSE}DsgnIntf,{$ENDIF}
{$ENDIF FPC}
{$ENDIF}
ocv.comp.ImageOperation;

9
source/component/ocv.comp.Register.pas
View File

@ -40,7 +40,12 @@ uses
{$IFDEF FPC}
PropEdits, ComponentEditors, LResources,
{$ELSE}
{$IFDEF DELPHI6_UP}DesignIntf, System.Classes, {$ELSE}DsgnIntf, Classes, {$ENDIF}
{$IFDEF HAS_UNITSCOPE}
System.Classes,
{$ELSE ~HAS_UNITSCOPE}
Classes,
{$ENDIF ~HAS_UNITSCOPE}
{$IFDEF DELPHI6_UP}DesignIntf,{$ELSE}DsgnIntf,{$ENDIF}
{$ENDIF FPC}
{$ENDIF}
ocv.comp.Source,
@ -86,9 +91,7 @@ begin
end;
{$IFDEF FPC}
initialization
{$I ocv.lrs}
{$ENDIF FPC}

10
source/component/ocv.comp.RegisterVCL.pas
View File

@ -43,12 +43,18 @@ uses
{$IFDEF FPC}
PropEdits, ComponentEditors, LResources,
{$ELSE}
{$IFDEF DELPHI6_UP}DesignIntf, System.Classes, {$ELSE}DsgnIntf, Classes, {$ENDIF}
{$IFDEF HAS_UNITSCOPE}
System.Classes,
Vcl.Graphics,
{$ELSE ~HAS_UNITSCOPE}
Classes,
Graphics,
{$ENDIF ~HAS_UNITSCOPE}
{$IFDEF DELPHI6_UP}DesignIntf,{$ELSE}DsgnIntf,{$ENDIF}
{$ENDIF FPC}
{$ENDIF}
ocv.comp.View,
ocv.lib,
Vcl.Graphics,
ToolsAPI;
{$IFNDEF FPC}

4
source/component/ocv.comp.Source.pas
View File

@ -268,7 +268,9 @@ Type
FOwner: TocvFFMpegIPCamSource;
FReconnectDelay: Cardinal;
FisReconnect: Boolean;
{$IFDEF DELPHIXE2_UP}
procedure TerminatedSet; override;
{$ENDIF}
procedure DoNotyfy(Event: TocvFFMpegIPCamEvent);
protected
procedure Execute; override;
@ -991,10 +993,12 @@ begin
end;
end;
{$IFDEF DELPHIXE2_UP}
procedure TocvFFMpegIPCamSourceThread.TerminatedSet;
begin
inherited;
FSuspendEvent.ResetEvent;
end;
{$ENDIF}
end.

12
source/component/ocv.comp.View.pas
View File

@ -37,6 +37,7 @@ uses
System.Classes,
Vcl.Controls,
Vcl.Graphics,
System.SyncObjs,
{$ELSE}
{$IFDEF MSWINDOWS}
Windows,
@ -46,10 +47,10 @@ uses
Classes,
Controls,
Graphics,
SyncObjs,
{$ENDIF}
ocv.comp.Types,
ocv.core.types_c,
System.SyncObjs;
ocv.core.types_c;
type
@ -300,9 +301,12 @@ begin
begin
for i := 0 to FFrames.Count - 1 do
With (FFrames.Items[i] as TocvViewFrame) do
{$IFDEF DELPHIXE2_UP}
if Enabled and (not DrawRect.AsRect.isEmpty) and Assigned(Image) then
{$ELSE}
if Enabled and IsRectEmpty(DrawRect.AsRect) and Assigned(Image) then
{$ENDIF}
ipDraw(DC, Image.IpImage, DrawRect.AsRect);
if Assigned(OnAfterPaint) then
OnAfterPaint(Self, FImage);
end;
@ -326,8 +330,10 @@ begin
inherited;
FLock := TCriticalSection.Create;
FDrawRect := TocvPersistentRect.Create;
{$IFDEF DELPHIXE2_UP}
FDrawRect.FRect.Width := 50;
FDrawRect.FRect.Height := 50;
{$ENDIF}
FEnabled := false;
end;