我想将地图文件添加为资源,然后在每次执行系统时提取文件,以确保地图文件始终正确,并使支持的生命更容易.在Delphi 7中,我可以使用map文件作为资源来编译项目,但是映射是错误的,因为当引发异常时,调用堆栈是错误的.在Delphi Seattle中,我甚至无法编译,因为它会在生成映射之前尝试添加资源.我知道我可以在后编译thask中添加该文件,但有没有办法在编译/构建时间中执行此操作？对不起,如果我不是很具体,这是我的第一个问题.谢谢.

UPDATE

在我读了一些答案之后,我做了一些研究.我在我的项目中已经使用了JEDI异常单元,但我不知道JEDI Debug专家.它完全符合我的要求和更多.JEDI Debug专家将.map文件转换为.jdbg文件,这是一个加密的map文件(map只是一个文本文件).此外,jdbg文件比地图小约12%.它还具有将jdbg插入二进制(exe)的选项.为此,我启用了选项:

• 项目 - > JCL调试专家 - >生成.jdbg文件 - >为此项目启用

• 项目 - > JCL调试专家 - >将jdbg数据插入二进制 - >为此项目启用

• 项目 - > JCL调试专家 - >转换后删除地图文件 - >启用此项目(如果要删除文件,当然)

要在IDE外部使用此工具,例如Jenkins,我必须在JEDI\jcl\examples\windows\debug\tools\MakeJclDbg.dpr中构建项目.构建之后,它将在jcl的bin目录中生成exe文件.如何使用:

MakeJclDbg -J -E -M map_filename

J - 创建.JDBG文件

E - 将调试数据插入可执行文件

M - 转换后删除MAP文件

可执行文件必须与MAP文件位于同一目录中.这将创建jdbg文件(基于映射文件),插入exe并删除映射.有了这个(以及JEDI的异常单元),当引发异常时,它可用于堆栈跟踪,系统使用的所有dll的版本,操作系统信息等,并且还将所有这些发送到电子邮件.

我意识到Embarcadero也有他们的bpl的jdbg文件,所以我认为他们也使用JCL工具.

我有以下代码:

IF MessageDlg('Delete?',mtConfirmation,[mbYes,mbNo],0) = MrYes THEN
Begin
///Do Something;
End
Else
Begin
///Do Something;
End;

如果Style是Windows在MessageDlg功能播放声音,但如果我改Style到Windows 10了为例,然后声音不工作.

• 选择a时为什么声音不存在Style？

• 我该如何解决这个问题？

注意:我正在使用Delphi 10 Seattle.

更新:

我试着MessageBeep(MB_ICONQUESTION);像David Heffernan在他的答案中建议的那样,但这也不会发出声音.

当我尝试在类中使用数组常量时,我​​得到以下错误:

[dcc32 Error] TestConstants.dpr(14): E2086 Type 'TArray<T>' is not yet completely defined

当我将它用作全局常量或使用array of string而不是TArray 时,相同的代码编译得很好.有这个工作的诀窍吗？

program Project98;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TMyTestClass = class
  strict private
    const
      TEST_CLASS_CONSTANT: TArray<String> = ['1','2']; // <-- Error here
      TEST_CLASS_CONSTANT2: array of string = ['1','2']; // <-- No error
  end;

const
  TEST_GLOABL_CONSTANT: TArray<String> = ['3','4']; // <-- No error
  TEST_GLOBAL_CONSTANT2: array of string = ['3','4']; // <-- No error
begin
end.

几年前,我C0000006 external exception在一些特定局域网上从共享文件夹运行一个大型(100 + MB)exe时偶然发现了.所以我开始使用这个问题中描述的编译器标志.

在数百个网络中的数百个客户多年成功"执行exe"后,我开始遇到PE标志的问题(不知何故,exe在同一台PC上启动时崩溃,一次排除一个原因,我根据经验发现评论这些标志工作).

不知怎的,我找到的解决方法是两次构建我的exe(并让客户选择部署哪一个),第一个用这些:

{$SetPEFlags IMAGE_FILE_NET_RUN_FROM_SWAP}
{$SetPEFlags IMAGE_FILE_REMOVABLE_RUN_FROM_SWAP} 

第二个评论那些.

这个建筑开销很烦人,我想避免它.我不认为有办法,但我要求专家建议:有没有办法"在运行时激活那些标志？" 例如,传递命令行参数？

我想到的另一个解决方法是在exe开始时本地复制exe,这样它总是从本地机器执行,但我担心我需要面对的场景,即使从技术上讲它很简单.

谢谢.

介绍

我在我们的一个应用程序中遇到了货币问题。我在Win32和Win64中得到了不同的结果。我在这里找到了显示类似问题的文章，但该文章已在XE6中修复。我尝试做的第一件事是创建一个MCVE来复制该问题。那是车轮掉下来的地方。与应用程序相比，看起来像MCVE中的相同代码会产生不同的结果。生成的代码64位不同。因此，我的问题变成了为什么它们不同，一旦我弄清楚了，便可以创建合适的MCVE。

我有一种计算总数的方法。此方法调用另一个方法来获取需要添加到总计中的值。该方法返回单个。我将单个值分配给变量，然后将其添加到总计（货币）中。在我的主应用程序中，稍后将使用合计值，但将其添加到MCVE不会改变行为。我确保编译器选项相同。

在我的主应用程序中，计算的结果在Win32中为$ 2469.6001，在Win64中为2469.6，但是我无法在MCVE中重复。“编译选项”页面上的所有内容都相同，并且优化被禁用。

尝试MCVE

这是我尝试的MCVE的代码。这模仿了原始应用程序中的动作。

program Project4;

{$APPTYPE CONSOLE}

{$R *.res}

uses
  System.SysUtils;

type
  TTestClass = class
  strict private
    FMyCurrency: Currency;
    function GetTheValue: Single;
  public
    procedure Calculate;
    property MyCurrency: Currency read FMyCurrency write FMyCurrency;
  end;

procedure TTestClass.Calculate;
var
  myValue: Single;
begin
  FMyCurrency := 0.0;
  myValue := GetTheValue;
  FMyCurrency := FMyCurrency + myValue;
end;

function TTestClass.GetTheValue: Single;
var
  myValueExact: Int32;
begin
  myValueExact := 1159354778; // 2469.60009765625;
  Result := PSingle(@myValueExact)^;
end;

var
  testClass: TTestClass;
begin
  testClass := TTestClass.Create;
  try
    testClass.Calculate; …