TLanguages实用程序中的Delphi访问冲突

发布时间：2020-12-15 04:13:37 所属栏目：大数据来源：网络整理

导读：出于某种原因,尝试通过使用单例或通过直接调用构造函数来创建由SysUtils头提供的TLanguages对象在野外引起麻烦,其中一些用户报告此错误(X变化)： Access violation at address X. Write of address X (at address X) ……当执行以下看似无辜的代码行时： TLa

出于某种原因,尝试通过使用单例或通过直接调用构造函数来创建由SysUtils头提供的TLanguages对象在野外引起麻烦,其中一些用户报告此错误(X变化)：

Access violation at address X. Write of address X (at address X)

……当执行以下看似无辜的代码行时：

TLanguages.Create;

澄清一下,这与背景无关.我可以把这行放在我喜欢的任何地方(例如,作为空程序的唯一代码行),但问题仍然存在.

奇怪的是,这个类是Delphi标准头文件的一部分,它不应该失败(对吧？).

constructor TLanguages.Create;
type
  TCallbackThunk = packed record
    POPEDX: Byte;
    MOVEAX: Byte;
    SelfPtr: Pointer;
    PUSHEAX: Byte;
    PUSHEDX: Byte;
    JMP: Byte;
    JmpOffset: Integer;
  end;
var
  Callback: TCallbackThunk;
begin
  inherited Create;
  Callback.POPEDX := $5A;
  Callback.MOVEAX := $B8;
  Callback.SelfPtr := Self;
  Callback.PUSHEAX := $50;
  Callback.PUSHEDX := $52;
  Callback.JMP     := $E9;
  Callback.JmpOffset := Integer(@TLanguages.LocalesCallback) - Integer(@Callback.JMP) - 5;
  EnumSystemLocales(TFNLocaleEnumProc(@Callback),LCID_SUPPORTED);
end;

构造函数尝试使用成员函数作为EnumSystemLocales回调,这似乎导致崩溃,因为将TLanguages.LocalesCallback函数复制到全局作用域并将其传递给EnumSystemLocales非常正常.

该结构包含以下Intel x86程序集,其中每个项目由其操作码给出：

pop  edx
mov  eax Self
push eax
push edx
jmp  JmpOffset

任何人都可以解释这个技巧是如何工作的,并告诉我为什么它没有按预期工作？

解决方法

对于与DEP相关的较旧的Delphi版本,这似乎是一个已知问题,正如我在对该问题的评论中所猜测的那样.很明显,当启用DEP时,RTL中的代码无法工作.

这是确认理论的链接：http://codecentral.embarcadero.com/Item/23411

虽然CodeCentral文章包含修复Delphi 5中的问题的代码,但它看起来也适用于Delphi 7.修复程序通过挂钩SysUtils.Languages函数来工作.因此,请确保您始终使用它而不是调用TLanguages.创建自己,原因很明显.

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!