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

解决方案 »

  1.   

    fix DAX errorwhen using InternetExplorer in Wink2,WinXp,ActiveFormor ActiveX control raiseDAX error:access violationat address000reason:delphi'socx use same parking window procedure.one ocx must use individual parking window proc.fix error.edit delphi VCL sourcer out inein axctrls.pasand compile axctrls.pascopy axctrls.dcu to lib directory.axctrls.pasfunction ParkingWindow:HWND;varTempClass:TWndClass;ParkingName:String;beginResult:=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)beginTempClass.hInstance:=HInstance;TempClass.lpfnWndProc:=@ParkingWindowProc;TempClass.lpszClassName:=PChar(ParkingName);//fixDaxerror:accessviolation(win2k,winxp)ifWindows.RegisterClass(TempClass)=0thenraise 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_NOREDRAWorSWP_NOZORDERorSWP_SHOWWINDOW);Result:=xParkingWindow;end;