logo标签列表

为不同版本的Delphi IDE创建Delphi包的最佳实践

delphiprojects-and-solutions
4
我维护一个开源的Delphi库。我希望拥有一个适用于所有Delphi XE系列编译器的最小项目文件。理想情况下，我需要一个工具，可以为XE6创建一个项目文件，并自动削减所有冗余信息并创建对应的XE到XE5的项目文件。有没有一种聪明的方式来实现这一点？
这是我的当前项目文件，它包含很多冗余信息。例如，它包含了一个针对Android/iOS等虚拟配置的虚假配置，但我的项目目标是传统的Windows应用程序。如果我手动删除这些信息，当项目更改时它们将会重新出现。此外，我知道在XE4中，DebugInformation的值为布尔型，而在XE5中为整型。
<Project xmlns="http://schemas.microsoft.com/developer/msbuild/2003">
    <PropertyGroup>
        <ProjectGuid>{1118D87C-9E72-4D93-9098-E70AD237493A}</ProjectGuid>
        <MainSource>dutil_rtl.dpk</MainSource>
        <ProjectVersion>15.1</ProjectVersion>
        <FrameworkType>None</FrameworkType>
        <Base>True</Base>
        <Config Condition="'$(Config)'==''">Release</Config>
        <Platform Condition="'$(Platform)'==''">Win32</Platform>
        <TargetedPlatforms>3</TargetedPlatforms>
        <AppType>Package</AppType>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Base' or '$(Base)'!=''">
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win32' and '$(Base)'=='true') or '$(Base_Win32)'!=''">
        <Base_Win32>true</Base_Win32>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="('$(Platform)'=='Win64' and '$(Base)'=='true') or '$(Base_Win64)'!=''">
        <Base_Win64>true</Base_Win64>
        <CfgParent>Base</CfgParent>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Debug' 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="('$(Platform)'=='Win64' and '$(Cfg_1)'=='true') or '$(Cfg_1_Win64)'!=''">
        <Cfg_1_Win64>true</Cfg_1_Win64>
        <CfgParent>Cfg_1</CfgParent>
        <Cfg_1>true</Cfg_1>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Config)'=='Release' 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="('$(Platform)'=='Win64' and '$(Cfg_2)'=='true') or '$(Cfg_2_Win64)'!=''">
        <Cfg_2_Win64>true</Cfg_2_Win64>
        <CfgParent>Cfg_2</CfgParent>
        <Cfg_2>true</Cfg_2>
        <Base>true</Base>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base)'!=''">
        <VerInfo_Keys>CompanyName=;FileDescription=;FileVersion=1.0.0.0;InternalName=;LegalCopyright=;LegalTrademarks=;OriginalFilename=;ProductName=;ProductVersion=1.0.0.0;Comments=</VerInfo_Keys>
        <VerInfo_Locale>1033</VerInfo_Locale>
        <DCC_DUPLICATE_CTOR_DTOR>false</DCC_DUPLICATE_CTOR_DTOR>
        <GenPackage>true</GenPackage>
        <GenDll>true</GenDll>
        <RuntimeOnlyPackage>true</RuntimeOnlyPackage>
        <DCC_Namespace>System;Xml;Data;Datasnap;Web;Soap;$(DCC_Namespace)</DCC_Namespace>
        <DCC_DcuOutput>..\lib\$(Platform)\$(Config)</DCC_DcuOutput>
        <DCC_ExeOutput>.\$(Platform)\$(Config)</DCC_ExeOutput>
        <DCC_E>false</DCC_E>
        <DCC_N>false</DCC_N>
        <DCC_S>false</DCC_S>
        <DCC_F>false</DCC_F>
        <DCC_K>false</DCC_K>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win32)'!=''">
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;Bde;$(DCC_Namespace)</DCC_Namespace>
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Base_Win64)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_Namespace>Winapi;System.Win;Data.Win;Datasnap.Win;Web.Win;Soap.Win;Xml.Win;$(DCC_Namespace)</DCC_Namespace>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1)'!=''">
        <DCC_Define>DEBUG;$(DCC_Define)</DCC_Define>
        <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)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
        <DCC_RemoteDebug>false</DCC_RemoteDebug>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_1_Win64)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2)'!=''">
        <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_Win32)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
    </PropertyGroup>
    <PropertyGroup Condition="'$(Cfg_2_Win64)'!=''">
        <VerInfo_IncludeVerInfo>true</VerInfo_IncludeVerInfo>
    </PropertyGroup>
    <ItemGroup>
        <DelphiCompile Include="$(MainSource)">
            <MainSource>MainSource</MainSource>
        </DelphiCompile>
        <DCCReference Include="rtl.dcp"/>
        <DCCReference Include="..\src\dutil.core.Exception.pas"/>
        <DCCReference Include="..\src\dutil.core.NonRefCountedInterfacedObject.pas"/>
        <DCCReference Include="..\src\dutil.io.device.File_.pas"/>
        <DCCReference Include="..\src\dutil.io.device.TempFile.pas"/>
        <DCCReference Include="..\src\dutil.io.FileVersion.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.MessageWindowThread.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.Platform.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.Process.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.registry.Reader.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.registry.Validation.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.registry.Writer.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.SpecialPath.pas"/>
        <DCCReference Include="..\src\dutil.sys.win32.SubclassingWindow.pas"/>
        <DCCReference Include="..\src\dutil.text.arg.Arg.pas"/>
        <DCCReference Include="..\src\dutil.text.arg.Arguments.pas"/>
        <DCCReference Include="..\src\dutil.text.arg.Builder.pas"/>
        <DCCReference Include="..\src\dutil.text.Convert.pas"/>
        <DCCReference Include="..\src\dutil.text.json.Json.pas"/>
        <DCCReference Include="..\src\dutil.text.json.Reader.pas"/>
        <DCCReference Include="..\src\dutil.text.json.Validation.pas"/>
        <DCCReference Include="..\src\dutil.text.Util.pas"/>
        <DCCReference Include="..\src\dutil.text.xml.Validation.pas"/>
        <DCCReference Include="..\src\dutil.time.Time.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.BlockingQueue.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.FailSafeThread.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.Result.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.Timer.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.TimerImpl.pas"/>
        <DCCReference Include="..\src\dutil.util.concurrent.TimerQueue.pas"/>
        <DCCReference Include="..\src\dutil.util.container.DynArray.pas"/>
        <DCCReference Include="..\src\dutil.util.digest.Crc32.pas"/>
        <BuildConfiguration Include="Release">
            <Key>Cfg_2</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
        <BuildConfiguration Include="Base">
            <Key>Base</Key>
        </BuildConfiguration>
        <BuildConfiguration Include="Debug">
            <Key>Cfg_1</Key>
            <CfgParent>Base</CfgParent>
        </BuildConfiguration>
    </ItemGroup>
    <ProjectExtensions>
        <Borland.Personality>Delphi.Personality.12</Borland.Personality>
        <Borland.ProjectType>Package</Borland.ProjectType>
        <BorlandProject>
            <Delphi.Personality>
                <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>
                <Source>
                    <Source Name="MainSource">dutil_rtl.dpk</Source>
                </Source>
                <Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dcloffice2k190.bpl">Microsoft Office 2000 Sample Automation Server Wrapper Components</Excluded_Packages>
                    <Excluded_Packages Name="$(BDSBIN)\dclofficexp190.bpl">Microsoft Office XP Sample Automation Server Wrapper Components</Excluded_Packages>
                </Excluded_Packages>
            </Delphi.Personality>
            <Deployment/>
            <Platforms>
                <Platform value="iOSDevice">False</Platform>
                <Platform value="iOSSimulator">False</Platform>
                <Platform value="Win32">True</Platform>
                <Platform value="Win64">True</Platform>
            </Platforms>
        </BorlandProject>
        <ProjectFileVersion>12</ProjectFileVersion>
    </ProjectExtensions>
    <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"/>
</Project>
6
想要保持心理健康，你应该为每个IDE版本使用单独的文件夹，并使用LIBSUFFIX来定位正确的版本。 - Uwe Raabe
这仅适用于输出文件。项目文件本身不能在多个IDE版本之间共享。 - Remy Lebeau
问题是我没有安装所有的Delphi编译器。如何单独创建项目文件？ - stanleyxu2005
即使每个版本只提供一个dpk也不起作用，因为他们引入了IFDEF IMPLICITBUILD（我认为是在XE2中）。 - Stefan Glienke
1
理想情况下，您应该拥有一个主文件，并从该主文件生成特定版本的 .dproj 文件。然后，您可以在主文件中进行更改并使其传播。 - David Heffernan
显示剩余4条评论
2个回答
7
过去，一个单独的项目文件可能已经足够，因为一切都是基于DPR/DPK文件的，但自从DPROJ文件被引入，一个单独的项目文件将不再适用。那是因为DPROJ文件包含版本信息，在某些情况下还包含了节点结构，这些在IDE发布版本之间是不同的。如果你在新版本的IDE中打开一个包含旧版本/结构的DPROJ文件，IDE会升级该项目。如果你保存更改到同一个文件中，它将不再适用于旧版的IDE。
如果你看看任何一个主要的第三方组件包，它们都为每个IDE版本维护不同的项目，就是出于这个原因。你需要做同样的事情。
非常抱歉听到这个消息，因为在项目文件中放置所有内容确实不明智。 - stanleyxu2005
1
@Remy 同意。每个不为每个支持的版本提供单独的 dpk/dproj 的人都是错的。我见过许多不同的开源项目，每一个没有这样做的都有一个或另一个问题。特别是不提供 dproj（尽管它们包含一些个性化配置）在我看来是一个大错误。 - Stefan Glienke
2
大多数商业软件包（如DevExpress）和开源组件/软件包（如SynEdit和Jedi库）针对每个IDE版本在同一源代码上使用单独的项目文件。例如D7，D2010，DXE2等。
这样可以让提供者使用条件定义来处理不同版本的IDE/平台，以便他们的代码能够为开发人员工作。
为了避免给使用您的库的人带来复杂的安装说明，您可能需要采用相同的方法。
此外，这基本上是标准做法，使用您的库的人可能会寻找适当命名的项目文件。
希望这有所帮助。
是的，我正在寻找一种工具，可以自动将XE5项目文件转换为XE-XE4，这样我只需创建一次项目文件，该工具就会从中剥离冗余内容，并为其他Delphi编译器创建相应的项目文件。 - stanleyxu2005
随着时间的推移，大多数库都会不时地添加对新编译器的支持，但通常只是偶尔创建项目文件。与你想要为最近仍在使用的编译器创建兼容性的情况不同。你可能需要手动创建旧的项目文件作为补充。最好的方法是首先为最老的IDE创建一个项目，然后在下一个更新的IDE中打开该项目，使用不同的名称进行保存，并为您希望支持的每个IDE重复此操作。 - EchelonKnight
网页内容由stack overflow 提供, 点击上面的
可以查看英文原文，
原文链接