VPF::ActiveX DAX Error - Форум программистов

sinij

Дата 9.6.2006, 17:17 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 89
Регистрация: 5.10.2005
Где: Украина, Киев

Репутация: нет
Всего: нет

Есть компонент ocx который собран на Делфи 5 (мной),
он должен загрузится на клиента в КАБ архиве с DLL,
И после загрузки вызвать dll

Но во время загрузки выскакивает ошибка на DAX

Вот ссылка на ОФ сайт Борланда
http://codecentral.borland.com/Item.aspx?id=18656

Но перекомпиляция ничего недала.

Albinos_x

Дата 9.6.2006, 17:39 (ссылка)

(нет голосов)

Загрузка ...

Evil Skynet

Профиль
Группа: Комодератор
Сообщений: 3288
Регистрация: 28.5.2004
Где: X-6120400 Y-1 4624650

Репутация: 15
Всего: 108

Цитата

При использовании Интернетовского Исследователя в Wink2, WinXp, ActiveForm или ActiveX управляют повышением

DAX ошибка: нарушение доступа в адресе 000

Причина:
ocx delphi's использует ту же самую процедуру окна стоянки.

Один ocx должен использовать индивидуальное окно стоянки proc.

Установите ошибку.

Редактируйте delphi VCL исходная рутина в axctrls.pas
И соберите axctrls.pas
Копируйте axctrls.dcu к справочнику lib.

axctrls.pas

function ParkingWindow: HWND;
var
TempClass: TWndClass;
ParkingName : String;
begin
Result := xParkingWindow;
if Result <> 0 then Exit;
ParkingName := 'DAXParkingWindow_' + Format('%p', [@ParkingWindowProc]);
FillChar(TempClass, sizeof(TempClass), 0);
if not GetClassInfo(HInstance, PChar(ParkingName), TempClass) then // устанавливает ошибку
begin
TempClass.hInstance := HInstance;
TempClass.lpfnWndProc := @ParkingWindowProc;
TempClass.lpszClassName := PChar(ParkingName);
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;

сделал как там говорилось?

--------------------

"Кто владеет информацией, тот владеет миром"
Уинстон Черчилль

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: ActiveX/СОМ/CORBA \| Следующая тема »