delphi - 在项目的主要单元中使用条件 - IDE 会破坏代码

Question

我正在构建一个 Windows 服务应用程序，该应用程序具有将其编译为基本 Windows 应用程序的配置。 exe 的主项目文件包含确定项目是编译为服务应用程序还是 Windows 窗体应用程序的条件。

问题是，当我做一些导致项目代码更改的事情时，代码就会被破坏和破坏。例如，包含 Application.Initialize; 的行将变为 AppliApplication.Initialize;，而包含 {$R *.RES} 的行将变为减少到 S}，我的大部分条件都被删除了。

我想知道是否有办法解决这个问题，是否有什么技巧，或者我是否只能微笑着忍受？

这是下面的文件，因为我希望保留它......

program JDRMServer;

uses
{$IFDEF TESTAPP}
  FastMM4,
  Vcl.Forms,
{$ELSE}
  Vcl.SvcMgr,
{$ENDIF TESTAPP}
  uJDRMServer in 'uJDRMServer.pas' {JDRMSvr: TService},
  uJDRMSessions in 'uJDRMSessions.pas',
  uJDRMSvrCli in 'uJDRMSvrCli.pas',
  uJDRMSvrDsh in 'uJDRMSvrDsh.pas',
  JDDB in 'JDDB.pas',
  uJDRMServerTEST in 'uJDRMServerTEST.pas' {JDRMSvrTest},
  uJDRMServerThread in 'uJDRMServerThread.pas',
  uJDRMSvrMessages in 'uJDRMSvrMessages.pas';

{$R *.RES}

begin

{$IFDEF TESTAPP}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TJDRMSvrTest, JDRMSvrTest);
{$ELSE}
  if (not Application.DelayInitialize) or (Application.Installing) then
    Application.Initialize;
  Application.CreateForm(TJDRMSvr, JDRMSvr);
{$ENDIF TESTAPP}
  Application.Run;
end.

Answer 1

正如 David 所说，您被 IDE 困住了，相信 dpr 是它自己的私有(private)后院。最简单的解决方案是将所有内容放在一个单独的单元中，并从 dpr 的 use 子句中删除条件。无论如何，FastMM 在您的服务版本以及您的测试应用程序中都会派上用场，并且 vcl.forms 和 vcl.svcMgr 之间的区别可以在该单独的单元中进行。

dpr 将减少为:

uses
  FastMM4,
  YourAppMain,
  uJDRMServer,
  uJDRMSessions,
  uJDRMSvrCli in 'uJDRMSvrCli.pas',
  uJDRMSvrDsh in 'uJDRMSvrDsh.pas',
  JDDB in 'JDDB.pas',
  uJDRMServerTEST in 'uJDRMServerTEST.pas' {JDRMSvrTest},
  uJDRMServerThread in 'uJDRMServerThread.pas',
  uJDRMSvrMessages in 'uJDRMSvrMessages.pas';

{$R *.RES}

begin
  YourAppMain.Execute;
end;

您的主应用程序单元将从 dpr 中获取其余代码:

unit YourAppMain;

interface

procedure Execute;

implementation

uses
{$IFDEF TESTAPP}
  Vcl.Forms,
{$ELSE}
  Vcl.SvcMgr,
{$ENDIF TESTAPP}
  OtherUnits;

procedure Execute;
begin
{$IFDEF TESTAPP}
  Application.Initialize;
  Application.MainFormOnTaskbar := True;
  Application.CreateForm(TJDRMSvrTest, JDRMSvrTest);
{$ELSE}
  if (not Application.DelayInitialize) or (Application.Installing) then
    Application.Initialize;
  Application.CreateForm(TJDRMSvr, JDRMSvr);
{$ENDIF TESTAPP}
  Application.Run;
end;

end.