急...DAX error 最终解决方法能吗???

[fhren]

DAX error 最终解决方法能吗???

....

急...

[fhren]

.

[bsj2002]

我遇到同样问题，帮你顶。分不够，我来赞助。

[bboonnee]

fix DAX error

when using InternetExplorer in Wink2,WinXp,ActiveFormor ActiveX control raise

DAX error:access violationat address000

reason:

delphi'socx use same parking window procedure.

one ocx must use individual parking window proc.

fix error.

edit delphi VCL sourcer out inein 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;

ifResult<>0thenExit;

//fixDaxerror:accessviolation(win2k,winxp)

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

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

if not GetClassInfo(HInstance,PChar(ParkingName),TempClass)then//fixDaxerror:accessviolation(win2k,winxp)

begin

TempClass.hInstance:=HInstance;

TempClass.lpfnWndProc:=@ParkingWindowProc;

TempClass.lpszClassName:=PChar(ParkingName);//fixDaxerror:accessviolation(win2k,winxp)

ifWindows.RegisterClass(TempClass)=0then

raise EOutOfResources.Create(SWindowClass);

end;

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

WS_POPUP,GetSystemMetrics(SM_CXSCREEN)div2,

GetSystemMetrics(SM_CYSCREEN)div2,0,0,0,0,HInstance,nil);

SetWindowPos(xParkingWindow,0,0,0,0,0,SWP_NOACTIVATEorSWP_NOREDRAW

orSWP_NOZORDERorSWP_SHOWWINDOW);

Result:=xParkingWindow;

end;