mirror of
https://github.com/Laex/Delphi-OpenCV.git
synced 2024-11-15 15:55:53 +01:00
Restoew msv*.dll
Signed-off-by: Laentir Valetov <laex@bk.ru>
This commit is contained in:
Laentir Valetov
parent
d6d36032bc
commit
1479d1fc32
1
.gitignore
vendored
1
.gitignore
vendored
@ -45,3 +45,4 @@ eng.*
|
||||
/3rdParty/!tesseract_classes
|
||||
/component/ModelSupport_OpenCV/*.txaPackage
|
||||
/component/ModelSupport_OpenCV
|
||||
/samples/!Tesseract-OCR
|
||||
|
||||
27
Bin/FaceDetectXML/haarcascade.inc
Normal file
27
Bin/FaceDetectXML/haarcascade.inc
Normal file
@ -0,0 +1,27 @@
|
||||
// Created uCompressHaar.exe
|
||||
const
|
||||
FrontalFaceXML: array [TocvHaarCascadeType] of TocvHaarCascadeRecord =
|
||||
(
|
||||
(Name: 'HEYE'; FileName: 'haarcascade_eye.xml'),
|
||||
(Name: 'HEYETREEEYEGLASSES'; FileName: 'haarcascade_eye_tree_eyeglasses.xml'),
|
||||
(Name: 'HFFALT'; FileName: 'haarcascade_frontalface_alt.xml'),
|
||||
(Name: 'HFFALT2'; FileName: 'haarcascade_frontalface_alt2.xml'),
|
||||
(Name: 'HFFALTTREE'; FileName: 'haarcascade_frontalface_alt_tree.xml'),
|
||||
(Name: 'HFFDEFAULT'; FileName: 'haarcascade_frontalface_default.xml'),
|
||||
(Name: 'HFULLBODY'; FileName: 'haarcascade_fullbody.xml'),
|
||||
(Name: 'HLEYE2SPLITS'; FileName: 'haarcascade_lefteye_2splits.xml'),
|
||||
(Name: 'HLOWERBODY'; FileName: 'haarcascade_lowerbody.xml'),
|
||||
(Name: 'HMEYEPAIRBIG'; FileName: 'haarcascade_mcs_eyepair_big.xml'),
|
||||
(Name: 'HMEYEPAIRSMALL'; FileName: 'haarcascade_mcs_eyepair_small.xml'),
|
||||
(Name: 'HMLEAR'; FileName: 'haarcascade_mcs_leftear.xml'),
|
||||
(Name: 'HMLEYE'; FileName: 'haarcascade_mcs_lefteye.xml'),
|
||||
(Name: 'HMMOUTH'; FileName: 'haarcascade_mcs_mouth.xml'),
|
||||
(Name: 'HMNOSE'; FileName: 'haarcascade_mcs_nose.xml'),
|
||||
(Name: 'HMREAR'; FileName: 'haarcascade_mcs_rightear.xml'),
|
||||
(Name: 'HMREYE'; FileName: 'haarcascade_mcs_righteye.xml'),
|
||||
(Name: 'HMUPPERBODY'; FileName: 'haarcascade_mcs_upperbody.xml'),
|
||||
(Name: 'HPROFILEFACE'; FileName: 'haarcascade_profileface.xml'),
|
||||
(Name: 'HREYE2SPLITS'; FileName: 'haarcascade_righteye_2splits.xml'),
|
||||
(Name: 'HSMILE'; FileName: 'haarcascade_smile.xml'),
|
||||
(Name: 'HUPPERBODY'; FileName: 'haarcascade_upperbody.xml')
|
||||
);
|
||||
@ -1,22 +1,23 @@
|
||||
HCFFA RCDATA "haarcascade_frontalface_alt.xml.z"
|
||||
HCFFA2 RCDATA "haarcascade_frontalface_alt2.xml.z"
|
||||
HCFFD RCDATA "haarcascade_frontalface_default.xml.z"
|
||||
HCFFAT RCDATA "haarcascade_frontalface_alt_tree.xml.z"
|
||||
EYE RCDATA "haarcascade_eye.xml.z"
|
||||
ETEG RCDATA "haarcascade_eye_tree_eyeglasses.xml.z"
|
||||
EFB RCDATA "haarcascade_fullbody.xml.z"
|
||||
LE2S RCDATA "haarcascade_lefteye_2splits.xml.z"
|
||||
LB RCDATA "haarcascade_lowerbody.xml.z"
|
||||
MEB RCDATA "haarcascade_mcs_eyepair_big.xml.z"
|
||||
MEP RCDATA "haarcascade_mcs_eyepair_small.xml.z"
|
||||
MLEEAR RCDATA "haarcascade_mcs_leftear.xml.z"
|
||||
MLEEYE RCDATA "haarcascade_mcs_lefteye.xml.z"
|
||||
MM RCDATA "haarcascade_mcs_mouth.xml.z"
|
||||
MN RCDATA "haarcascade_mcs_nose.xml.z"
|
||||
MREAR RCDATA "haarcascade_mcs_rightear.xml.z"
|
||||
MREYE RCDATA "haarcascade_mcs_righteye.xml.z"
|
||||
MUB RCDATA "haarcascade_mcs_upperbody.xml.z"
|
||||
PF RCDATA "haarcascade_profileface.xml.z"
|
||||
RE2S RCDATA "haarcascade_righteye_2splits.xml.z"
|
||||
SM RCDATA "haarcascade_smile.xml.z"
|
||||
UB RCDATA "haarcascade_upperbody.xml.z"
|
||||
// Created uCompressHaar.exe
|
||||
HEYE RCDATA "haarcascade_eye.xml.z"
|
||||
HEYETREEEYEGLASSES RCDATA "haarcascade_eye_tree_eyeglasses.xml.z"
|
||||
HFFALT RCDATA "haarcascade_frontalface_alt.xml.z"
|
||||
HFFALT2 RCDATA "haarcascade_frontalface_alt2.xml.z"
|
||||
HFFALTTREE RCDATA "haarcascade_frontalface_alt_tree.xml.z"
|
||||
HFFDEFAULT RCDATA "haarcascade_frontalface_default.xml.z"
|
||||
HFULLBODY RCDATA "haarcascade_fullbody.xml.z"
|
||||
HLEYE2SPLITS RCDATA "haarcascade_lefteye_2splits.xml.z"
|
||||
HLOWERBODY RCDATA "haarcascade_lowerbody.xml.z"
|
||||
HMEYEPAIRBIG RCDATA "haarcascade_mcs_eyepair_big.xml.z"
|
||||
HMEYEPAIRSMALL RCDATA "haarcascade_mcs_eyepair_small.xml.z"
|
||||
HMLEAR RCDATA "haarcascade_mcs_leftear.xml.z"
|
||||
HMLEYE RCDATA "haarcascade_mcs_lefteye.xml.z"
|
||||
HMMOUTH RCDATA "haarcascade_mcs_mouth.xml.z"
|
||||
HMNOSE RCDATA "haarcascade_mcs_nose.xml.z"
|
||||
HMREAR RCDATA "haarcascade_mcs_rightear.xml.z"
|
||||
HMREYE RCDATA "haarcascade_mcs_righteye.xml.z"
|
||||
HMUPPERBODY RCDATA "haarcascade_mcs_upperbody.xml.z"
|
||||
HPROFILEFACE RCDATA "haarcascade_profileface.xml.z"
|
||||
HREYE2SPLITS RCDATA "haarcascade_righteye_2splits.xml.z"
|
||||
HSMILE RCDATA "haarcascade_smile.xml.z"
|
||||
HUPPERBODY RCDATA "haarcascade_upperbody.xml.z"
|
||||
|
||||
BIN
Bin/msvcp120.dll
Normal file
BIN
Bin/msvcp120.dll
Normal file
Binary file not shown.
BIN
Bin/msvcp120d.dll
Normal file
BIN
Bin/msvcp120d.dll
Normal file
Binary file not shown.
BIN
Bin/msvcr120.dll
Normal file
BIN
Bin/msvcr120.dll
Normal file
Binary file not shown.
BIN
Bin/msvcr120d.dll
Normal file
BIN
Bin/msvcr120d.dll
Normal file
Binary file not shown.
@ -24,6 +24,7 @@
|
||||
package OpenCV;
|
||||
|
||||
{$R *.res}
|
||||
{$R *.otares}
|
||||
{$R *.dcr}
|
||||
{$IFDEF IMPLICITBUILDING This IFDEF should not be used by users}
|
||||
{$ALIGN 8}
|
||||
@ -33,21 +34,21 @@ package OpenCV;
|
||||
{$EXTENDEDSYNTAX ON}
|
||||
{$IMPORTEDDATA ON}
|
||||
{$IOCHECKS ON}
|
||||
{$LOCALSYMBOLS OFF}
|
||||
{$LOCALSYMBOLS ON}
|
||||
{$LONGSTRINGS ON}
|
||||
{$OPENSTRINGS ON}
|
||||
{$OPTIMIZATION ON}
|
||||
{$OPTIMIZATION OFF}
|
||||
{$OVERFLOWCHECKS OFF}
|
||||
{$RANGECHECKS OFF}
|
||||
{$REFERENCEINFO OFF}
|
||||
{$REFERENCEINFO ON}
|
||||
{$SAFEDIVIDE OFF}
|
||||
{$STACKFRAMES OFF}
|
||||
{$STACKFRAMES ON}
|
||||
{$TYPEDADDRESS OFF}
|
||||
{$VARSTRINGCHECKS ON}
|
||||
{$WRITEABLECONST OFF}
|
||||
{$MINENUMSIZE 1}
|
||||
{$IMAGEBASE $400000}
|
||||
{$DEFINE RELEASE}
|
||||
{$DEFINE DEBUG}
|
||||
{$ENDIF IMPLICITBUILDING}
|
||||
{$IMPLICITBUILD ON}
|
||||
|
||||
|
||||
@ -1,14 +1,14 @@
|
||||
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
|
||||
<PropertyGroup>
|
||||
<ProjectGuid>{67FAAD9E-2FAD-44C3-8F98-56827C3D1CE8}</ProjectGuid>
|
||||
<ProjectGuid>{9831BE7A-926B-4B9B-8DCD-807A90559490}</ProjectGuid>
|
||||
<MainSource>OpenCV.dpk</MainSource>
|
||||
<ProjectVersion>15.4</ProjectVersion>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<Base>True</Base>
|
||||
<Config Condition="'$(Config)'==''">Release</Config>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
<Config Condition="'$(Config)'==''">Debug</Config>
|
||||
<TargetedPlatforms>1</TargetedPlatforms>
|
||||
<AppType>Package</AppType>
|
||||
<FrameworkType>VCL</FrameworkType>
|
||||
<ProjectVersion>15.4</ProjectVersion>
|
||||
<Platform Condition="'$(Platform)'==''">Win32</Platform>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
|
||||
<Base>true</Base>
|
||||
@ -18,8 +18,13 @@
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="('$(Platform)'=='OSX32' and '$(Base)'=='true') or '$(Base_OSX32)'!=''">
|
||||
<Base_OSX32>true</Base_OSX32>
|
||||
<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>
|
||||
@ -33,42 +38,51 @@
|
||||
<CfgParent>Base</CfgParent>
|
||||
<Base>true</Base>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Config)'=='Debug' or '$(Cfg_1)'!=''">
|
||||
<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="'$(Config)'=='Release' or '$(Cfg_2)'!=''">
|
||||
<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="'$(Base)'!=''">
|
||||
<SanitizedProjectName>OpenCV</SanitizedProjectName>
|
||||
<GenPackage>true</GenPackage>
|
||||
<DCC_CBuilderOutput>All</DCC_CBuilderOutput>
|
||||
<DCC_S>false</DCC_S>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=;CFBundleName=</VerInfo_Keys>
|
||||
<DCC_F>false</DCC_F>
|
||||
<GenDll>true</GenDll>
|
||||
<DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_DcuOutput>.\$(Platform)\$(Config)</DCC_DcuOutput>
|
||||
<DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
|
||||
<DCC_E>false</DCC_E>
|
||||
<DCC_ImageBase>00400000</DCC_ImageBase>
|
||||
<DCC_Namespace>Vcl;Vcl.Imaging;Vcl.Touch;Vcl.Samples;Vcl.Shell;System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
|
||||
<DCC_N>false</DCC_N>
|
||||
<DCC_K>false</DCC_K>
|
||||
<SanitizedProjectName>OpenCV</SanitizedProjectName>
|
||||
<VerInfo_Locale>1049</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Android)'!=''">
|
||||
<DCC_UsePackage>rtl;$(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>
|
||||
<VerInfo_Keys>package=com.embarcadero.$(MSBuildProjectName);label=$(MSBuildProjectName);versionCode=1;versionName=1.0.0;persistent=False;restoreAnyVersion=False;installLocation=preferExternal;largeHeap=False;theme=TitleBar</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_OSX32)'!=''">
|
||||
<PropertyGroup Condition="'$(Base_iOSDevice)'!=''">
|
||||
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_iOSSimulator)'!=''">
|
||||
<DCC_UsePackage>rtl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Base_Win32)'!=''">
|
||||
<DCC_UsePackage>rtl;vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
</PropertyGroup>
|
||||
@ -76,21 +90,18 @@
|
||||
<DCC_UsePackage>rtl;vcl;$(DCC_UsePackage)</DCC_UsePackage>
|
||||
</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_Win32)'!=''">
|
||||
<DCC_RemoteDebug>false</DCC_RemoteDebug>
|
||||
<DCC_SymbolReferenceInfo>0</DCC_SymbolReferenceInfo>
|
||||
<DCC_Define>RELEASE;$(DCC_Define)</DCC_Define>
|
||||
<DCC_DebugInformation>0</DCC_DebugInformation>
|
||||
<DCC_LocalDebugSymbols>false</DCC_LocalDebugSymbols>
|
||||
</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>
|
||||
<DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
<DCC_GenerateStackFrames>true</DCC_GenerateStackFrames>
|
||||
</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=</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
@ -105,27 +116,14 @@
|
||||
<DCCReference Include="uOCVImageOperation.pas"/>
|
||||
<DCCReference Include="uOCVRegister.pas"/>
|
||||
<DCCReference Include="uOCVIOProperties.pas"/>
|
||||
<None Include="ModelSupport_OpenCV\default.txaPackage"/>
|
||||
<None Include="ModelSupport_OpenCV\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVSource\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVSource\default.txaPackage"/>
|
||||
<RcCompile Include="..\bin\facedetectxml\haarcascade.rc">
|
||||
<Form>haarcascade.res</Form>
|
||||
</RcCompile>
|
||||
<None Include="ModelSupport_OpenCV\uOCVImageOperation\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVTypes\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVView\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVIOProperties\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVRegister\default.txvpck"/>
|
||||
<None Include="ModelSupport_OpenCV\uOCVImageOperation\default.txaPackage"/>
|
||||
<BuildConfiguration Include="Release">
|
||||
<BuildConfiguration Include="Debug">
|
||||
<Key>Cfg_2</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Base">
|
||||
<Key>Base</Key>
|
||||
</BuildConfiguration>
|
||||
<BuildConfiguration Include="Debug">
|
||||
<BuildConfiguration Include="Release">
|
||||
<Key>Cfg_1</Key>
|
||||
<CfgParent>Base</CfgParent>
|
||||
</BuildConfiguration>
|
||||
@ -138,57 +136,14 @@
|
||||
<Source>
|
||||
<Source Name="MainSource">OpenCV.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">1049</VersionInfo>
|
||||
<VersionInfo Name="CodePage">1251</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 Name="CFBundleName"/>
|
||||
<VersionInfoKeys Name="CFBundleDisplayName"/>
|
||||
<VersionInfoKeys Name="CFBundleIdentifier"/>
|
||||
<VersionInfoKeys Name="CFBundleVersion"/>
|
||||
<VersionInfoKeys Name="CFBundlePackageType"/>
|
||||
<VersionInfoKeys Name="CFBundleSignature"/>
|
||||
<VersionInfoKeys Name="CFBundleAllowMixedLocalizations"/>
|
||||
<VersionInfoKeys Name="CFBundleExecutable"/>
|
||||
<VersionInfoKeys Name="LastCompiledTime">01.06.2013 0:21:04</VersionInfoKeys>
|
||||
</VersionInfoKeys>
|
||||
<Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dcloffice2k200.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
<Excluded_Packages Name="$(BDSBIN)\dclofficexp200.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
|
||||
</Excluded_Packages>
|
||||
</Delphi.Personality>
|
||||
<Deployment/>
|
||||
<Platforms>
|
||||
<Platform value="Android">False</Platform>
|
||||
<Platform value="iOSDevice">False</Platform>
|
||||
<Platform value="iOSSimulator">False</Platform>
|
||||
<Platform value="OSX32">False</Platform>
|
||||
<Platform value="Win32">True</Platform>
|
||||
<Platform value="Win64">False</Platform>
|
||||
</Platforms>
|
||||
<ModelSupport>True</ModelSupport>
|
||||
</BorlandProject>
|
||||
<ProjectFileVersion>12</ProjectFileVersion>
|
||||
</ProjectExtensions>
|
||||
|
||||
@ -576,7 +576,9 @@ implementation
|
||||
Uses
|
||||
core_c,
|
||||
imgproc_c,
|
||||
imgproc.types_c, cvUtils, System.ZLib;
|
||||
imgproc.types_c,
|
||||
cvUtils,
|
||||
System.ZLib;
|
||||
|
||||
type
|
||||
TPersistentAccessProtected = class(TPersistent);
|
||||
@ -586,30 +588,11 @@ type
|
||||
FileName: String;
|
||||
end;
|
||||
|
||||
const
|
||||
FrontalFaceXML: array [TocvHaarCascadeType] of TocvHaarCascadeRecord =
|
||||
{} ((Name: 'HCFFA'; FileName: 'haarcascade_frontalface_alt.xml'),
|
||||
{} (Name: 'HCFFA2'; FileName: 'haarcascade_frontalface_alt2.xml'),
|
||||
{} (Name: 'HCFFD'; FileName: 'haarcascade_frontalface_default.xml'),
|
||||
{} (Name: 'HCFFAT'; FileName: 'haarcascade_frontalface_alt_tree.xml'),
|
||||
{} (Name: 'EYE'; FileName: 'haarcascade_eye.xml'),
|
||||
{} (Name: 'ETEG'; FileName: 'haarcascade_eye_tree_eyeglasses.xml'),
|
||||
{} (Name: 'EFB'; FileName: 'haarcascade_fullbody.xml'),
|
||||
{} (Name: 'LE2S'; FileName: 'haarcascade_lefteye_2splits.xml'),
|
||||
{} (Name: 'LB'; FileName: 'haarcascade_lowerbody.xml'),
|
||||
{} (Name: 'MEB'; FileName: 'haarcascade_mcs_eyepair_big.xml'),
|
||||
{} (Name: 'MEP'; FileName: 'haarcascade_mcs_eyepair_small.xml'),
|
||||
{} (Name: 'MLEEAR'; FileName: 'haarcascade_mcs_leftear.xml'),
|
||||
{} (Name: 'MLEEYE'; FileName: 'haarcascade_mcs_lefteye.xml'),
|
||||
{} (Name: 'MM'; FileName: 'haarcascade_mcs_mouth.xml'),
|
||||
{} (Name: 'MN'; FileName: 'haarcascade_mcs_nose.xml'),
|
||||
{} (Name: 'MREAR'; FileName: 'haarcascade_mcs_rightear.xml'),
|
||||
{} (Name: 'MREYE'; FileName: 'haarcascade_mcs_righteye.xml'),
|
||||
{} (Name: 'MUB'; FileName: 'haarcascade_mcs_upperbody.xml'),
|
||||
{} (Name: 'PF'; FileName: 'haarcascade_profileface.xml'),
|
||||
{} (Name: 'RE2S'; FileName: 'haarcascade_righteye_2splits.xml'),
|
||||
{} (Name: 'SM'; FileName: 'haarcascade_smile.xml'),
|
||||
{} (Name: 'UB'; FileName: 'haarcascade_upperbody.xml'));
|
||||
///
|
||||
// Run utils\CompressHaar\uCompressHaar.dpr
|
||||
// Add to serarch path \Delphi-OpenCV\bin\facedetectxml\
|
||||
///
|
||||
{$I haarcascade.inc}
|
||||
|
||||
Var
|
||||
_RegisteredImageOperations: TRegisteredImageOperations = nil;
|
||||
@ -793,14 +776,13 @@ end;
|
||||
|
||||
procedure TocvCustomImageOperation.AssignTo(Dest: TPersistent);
|
||||
begin
|
||||
inherited;
|
||||
if Dest is TocvCustomImageOperation then
|
||||
begin
|
||||
FFloatParams := (Dest as TocvCustomImageOperation).FFloatParams;
|
||||
FIntParams := (Dest as TocvCustomImageOperation).FIntParams;
|
||||
FBoolParams := (Dest as TocvCustomImageOperation).FBoolParams;
|
||||
end
|
||||
else
|
||||
inherited;
|
||||
end;
|
||||
end;
|
||||
|
||||
constructor TocvCustomImageOperation.Create(AOwner: TPersistent);
|
||||
|
||||
@ -102,20 +102,15 @@ object MainForm: TMainForm
|
||||
end
|
||||
object ocvmgprtn1: TocvImageOperation
|
||||
VideoSource = ocvcmrsrc1
|
||||
OperationClassName = 'TocvHaarCascade'
|
||||
Operation.HaarCascade = hcLeftEye2Splits
|
||||
Operation.Equalize = True
|
||||
Operation.Scale = 1.300000000000000000
|
||||
Operation.MinNeighbors = 3
|
||||
Operation.MinSize.X = 30
|
||||
Operation.MinSize.Y = 30
|
||||
Operation.MaxSize.X = 0
|
||||
Operation.MaxSize.Y = 0
|
||||
Operation.DrawHaarCascade.Thickness = 3
|
||||
Operation.DrawHaarCascade.Offset.X = 0
|
||||
Operation.DrawHaarCascade.Offset.Y = 0
|
||||
Operation.DrawHaarCascade.Color = clRed
|
||||
Operation.CascadeFlags = [HAAR_DO_CANNY_PRUNING, HAAR_SCALE_IMAGE, HAAR_FIND_BIGGEST_OBJECT]
|
||||
OperationClassName = 'TocvMotionDetect'
|
||||
Operation.OperationClassName = 'TocvThresholdOperation'
|
||||
Operation.RemoveSmallObject = True
|
||||
Operation.MinObjectSize = 100
|
||||
Operation.Threshold.MaxValue = 255.000000000000000000
|
||||
Operation.Threshold.Threshold = 25.000000000000000000
|
||||
Operation.DrawMotionRect.Thickness = 1
|
||||
Operation.DrawMotionRect.Offset.X = 0
|
||||
Operation.DrawMotionRect.Offset.Y = 0
|
||||
Operation.NotifyOnlyWhenFound = False
|
||||
Operations = <>
|
||||
OperationsEnabled = False
|
||||
|
||||
@ -75,13 +75,14 @@
|
||||
<DCC_Optimize>false</DCC_Optimize>
|
||||
</PropertyGroup>
|
||||
<PropertyGroup Condition="'$(Cfg_2_Win32)'!=''">
|
||||
<VerInfo_Build>1</VerInfo_Build>
|
||||
<DCC_MapFile>3</DCC_MapFile>
|
||||
<VerInfo_AutoIncVersion>true</VerInfo_AutoIncVersion>
|
||||
<VerInfo_Locale>1033</VerInfo_Locale>
|
||||
<VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
|
||||
<Icon_MainIcon>LockWorkstation_Icon.ico</Icon_MainIcon>
|
||||
<DCC_ExeOutput>..\..\..\bin</DCC_ExeOutput>
|
||||
<VerInfo_Keys>CompanyName=Mikhail Grigorev;FileDescription=LockWorkstation;FileVersion=1.0.0.0;InternalName=LockWorkstation;LegalCopyright=Mikhail Grigorev;LegalTrademarks=Mikhail Grigorev;OriginalFilename=LockWorkstation;ProductName=LockWorkstation;ProductVersion=1.0.0.0;Comments=www.im-history.ru;LastCompiledTime=13.06.2013 18:03:15</VerInfo_Keys>
|
||||
<VerInfo_Keys>CompanyName=Mikhail Grigorev;FileDescription=LockWorkstation;FileVersion=1.0.0.1;InternalName=LockWorkstation;LegalCopyright=Mikhail Grigorev;LegalTrademarks=Mikhail Grigorev;OriginalFilename=LockWorkstation;ProductName=LockWorkstation;ProductVersion=1.0.0.0;Comments=www.im-history.ru</VerInfo_Keys>
|
||||
</PropertyGroup>
|
||||
<ItemGroup>
|
||||
<DelphiCompile Include="$(MainSource)">
|
||||
|
||||
@ -6,26 +6,54 @@ program uCompressHaar;
|
||||
uses
|
||||
System.SysUtils,
|
||||
System.Classes,
|
||||
System.Character,
|
||||
System.ZLib;
|
||||
|
||||
Const
|
||||
Path = '.\facedetectxml\';
|
||||
|
||||
function CreateResourceName(const FileName: String): string;
|
||||
begin
|
||||
Result := StringReplace(FileName, 'haarcascade', 'H', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := StringReplace(Result, 'frontalface', 'FF', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := StringReplace(Result, 'mcs', 'M', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := StringReplace(Result, 'right', 'R', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := StringReplace(Result, 'left', 'L', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := StringReplace(Result, '.xml', '', [rfIgnoreCase, rfReplaceAll]);
|
||||
Result := ToUpper(StringReplace(Result, '_', '', [rfIgnoreCase, rfReplaceAll]));
|
||||
end;
|
||||
|
||||
Var
|
||||
S: TSearchRec;
|
||||
ZC: TZCompressionStream;
|
||||
Fs, Fd: TFileStream;
|
||||
S_rc: TStringList;
|
||||
S_inc: TStringList;
|
||||
iFileName, oFileName: string;
|
||||
rName: String;
|
||||
|
||||
begin
|
||||
try
|
||||
if FindFirst(Path+'*.xml', faAnyFile, S) = 0 then
|
||||
S_rc := TStringList.Create;
|
||||
S_rc.Add('// Created uCompressHaar.exe');
|
||||
S_inc := TStringList.Create;
|
||||
S_inc.Add('// Created uCompressHaar.exe');
|
||||
S_inc.Add('const');
|
||||
S_inc.Add('FrontalFaceXML: array [TocvHaarCascadeType] of TocvHaarCascadeRecord =');
|
||||
S_inc.Add('(');
|
||||
if FindFirst(Path + '*.xml', faAnyFile, S) = 0 then
|
||||
repeat
|
||||
Fs := TFileStream.Create(Path + S.Name, fmOpenRead);
|
||||
Fd := TFileStream.Create(Path + S.Name + '.z', fmCreate);
|
||||
ZC := TZCompressionStream.Create(clMax,Fd);
|
||||
iFileName := Path + S.Name;
|
||||
oFileName := Path + S.Name + '.z';
|
||||
Fs := TFileStream.Create(iFileName, fmOpenRead);
|
||||
Fd := TFileStream.Create(oFileName, fmCreate);
|
||||
ZC := TZCompressionStream.Create(clMax, Fd);
|
||||
try
|
||||
WriteLn(S.Size:8,' ',S.Name);
|
||||
WriteLn(S.Size:8, ' ', S.Name);
|
||||
ZC.CopyFrom(Fs, S.Size);
|
||||
rName := CreateResourceName(S.Name);
|
||||
S_rc.Add(rName + ' RCDATA "' + S.Name + '.z"');
|
||||
S_inc.Add(Format('(Name: ''%s''; FileName: ''%s''),', [rName, S.Name]));
|
||||
finally
|
||||
ZC.Free;
|
||||
Fs.Free;
|
||||
@ -33,9 +61,17 @@ begin
|
||||
end;
|
||||
until FindNext(S) <> 0;
|
||||
FindClose(S);
|
||||
S_rc.SaveToFile(Path + 'haarcascade.rc');
|
||||
rName := S_inc[S_inc.Count - 1];
|
||||
Delete(rName, Length(rName), 1);
|
||||
S_inc[S_inc.Count - 1] := rName;
|
||||
S_inc.Add(');');
|
||||
S_inc.SaveToFile(Path + 'haarcascade.inc');
|
||||
S_rc.Free;
|
||||
S_inc.Free;
|
||||
except
|
||||
on E: Exception do
|
||||
Writeln(E.ClassName, ': ', E.Message);
|
||||
WriteLn(E.ClassName, ': ', E.Message);
|
||||
end;
|
||||
|
||||
end.
|
||||
|
||||
@ -8,6 +8,7 @@
|
||||
.tvsconfig
|
||||
.skincfg
|
||||
.otares
|
||||
.z
|
||||
\bin\Result\
|
||||
\bin\faces\s1\
|
||||
\bin\faces\s2\
|
||||
|
||||
Loading…
Reference in New Issue
Block a user