fix DAX error(解决delphi编写的ocx控件中的DAX error问题)

最新推荐文章于 2024-11-29 21:25:09 发布

原创最新推荐文章于 2024-11-29 21:25:09 发布 · 4.8k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#delphi #div #string

Delphi开发专栏收录该内容

1 篇文章

订阅专栏

博客指出在Win2、WinXp系统使用Internet Explorer时，ActiveForm或ActiveX控件会引发DAX错误，原因是Delphi的OCX使用相同的停车窗口过程。解决办法是编辑Delphi VCL源程序axctrls.pas并编译，将axctrls.dcu复制到lib目录，还给出了axctrls.pas中的相关代码。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

when using Internet Explorer in Wink2, WinXp, ActiveForm or ActiveX control raise

DAX error : access violation at address 000

reason :

delphi's ocx use same parking window procedure.

one ocx must use individual parking window proc.

fix error.

edit delphi VCL source routine in axctrls.pas

and compile axctrls.pas

copy axctrls.dcu to lib directory.

axctrls.pas

function ParkingWindow: HWND;

var

TempClass: TWndClass;

ParkingName : String;

begin

Result := xParkingWindow;

if Result <> 0 then Exit;

// fix Dax error : accessviolation (win2k, win xp)

ParkingName := 'DAXParkingWindow_' + Format('%p', [@ParkingWindowProc]);

FillChar(TempClass, sizeof(TempClass), 0);

if not GetClassInfo(HInstance, PChar(ParkingName), TempClass) then // fix Dax error : accessviolation (win2k, win xp)

begin

TempClass.hInstance := HInstance;

TempClass.lpfnWndProc := @ParkingWindowProc;

TempClass.lpszClassName := PChar(ParkingName); // fix Dax error : accessviolation (win2k, win xp)

if Windows.RegisterClass(TempClass) = 0 then

raise EOutOfResources.Create(SWindowClass);

end;

xParkingWindow := CreateWindowEx(WS_EX_TOOLWINDOW, TempClass.lpszClassName, nil,

WS_POPUP, GetSystemMetrics(SM_CXSCREEN) div 2,

GetSystemMetrics(SM_CYSCREEN) div 2, 0, 0, 0, 0, HInstance, nil);

SetWindowPos(xParkingWindow, 0, 0, 0, 0, 0, SWP_NOACTIVATE or SWP_NOREDRAW

or SWP_NOZORDER or SWP_SHOWWINDOW);

Result := xParkingWindow;

end;