Продолжаем анализ экскрементов.

При загрузке под ХР.
   Независимо от того, с какими правами грузится компонента, она регистрирует как ProgID и CLSID, так и Typelib в HKCU. После чего нормально грузится.

При загрузке под Вистой.

Если 1С запускается под обычным пользователем, либо не от имени администратора. То компонента нормально регистрирует ProgID и CLSID в HKCU, но при попытке зарегистрировать TypeLib происходит следующее:
Цитата:

То есть регистрация Typelib обламывается, но далее все нормально загружается, не смотря на TypeLib. Причем нормально загружается, даже если Typelib уже зарегистрирован.

Если же 1С запускать от имени администратора, то компонента регистрируется в HKCU, но Typelib, почему то, регистрируется в HKLM. А при загрузке возникает обычное сообщение "отсутствует интерфейс IInitDone". ПРИЧЕМ! Если компонента зарегистрирована как в HKCU, так и в HKLM, то она грузится нормально. (См. код ниже.)

Если же не выполнять регистрацию Typelib, то возникает та же ошибка: "отсутствует интерфейс IInitDone".

Короче, сейчас катит такой вариант:

STDAPI DllRegisterServer(void)
{
	// registers object, typelib and all interfaces in typelib

	HRESULT hr = _Module.RegisterServer(TRUE);
	MessageBox("Регистрация сервера = %ld", hr);
	RedirectHKCR(TRUE);
	hr = _Module.RegisterServer(TRUE);
	MessageBox("Регистрация сервера = %ld", hr);
	RedirectHKCR(FALSE);
	return hr;
} 

Но как он поведет себя в многопользовательской среде с разными версиями 1С++ - не знаю.

Михаил, жду от тебя разъяснений анализа экскрементов.  

Еще один вариант:

STDAPI DllRegisterServer(void)
{
	// registers object, typelib and all interfaces in typelib

	HRESULT hr = _Module.RegisterServer(TRUE);
	MessageBox("Регистрация сервера = %ld", hr);
	bHKLM_IsOK = (hr == 0);
	if (bHKLM_IsOК)
		return hr;

	RedirectHKCR(TRUE);
	hr = _Module.RegisterServer(FALSE);
	MessageBox("Регистрация сервера = %ld", hr);
	RedirectHKCR(FALSE);
	return hr;
} 

Также bHKLM_IsOk можно учесть и в RedirectHKCR().

Получается нескольо красивее, но ничем не лучше при работе в многопользовательской среде.

К сожалению, последний приведенный код (пост 197) не катит. Зато работает код из поста 195. Но выглядит он, как видите, странно.

Сейчас залит код № 195. Какие будут предложения?

JohnyDeath писал(а) 26. Октября 2007 :: 12:48:

ага, для меня это тоже проблема...

Voland писал(а) 08. Августа 2008 :: 10:40:

Пришел самый умный чел и всем все объяснил
Товарищ, почитай ветку с начала и поймешь, что эту прописную истину все знают.
Здесь речь как раз о регистрации ВК для пользователей с ограниченными правами

Может немного оступление от обсуждения, в общем пишу сейчас компоненту на делфи. И тоже возникла ошибка с clsid. После долгих мытарств с virtualbox и откатом на чистый реестр, а так же его diff-ом нашел проблему.
Ветка HKLM\Software\Classes\ .. здесь у меня AddIn.Steep1
Которое регается путем

TComObjectFactory.Create(ComServer, TAddInSteep, Class_AddInSteep, 'Steep1','', ciMultiInstance, tmApartment);
 

Так вот вся задница была с тем что надо вместо Steep1 было сделать AddInSteep, т.е. имя класса.

TComObjectFactory.Create(ComServer, TAddInSteep, Class_AddInSteep, 'AddInSteep','', ciMultiInstance, tmApartment);
 

Иначе мучает что не найден CLSID.
А для регистрации в HKCU накопал такую вещь

...
exports
  DllGetClassObject,
  DllCanUnloadNow,
  DllRegisterServer,
  DllUnregisterServer;
begin
  ComServer.PerUserRegistration := True;
end.
 

Проверено под правами обычного пользователя - работает!

P.S. Просьба модератору удалить мое сообщение если оно вам бесполезно. Просто хотел помочь, может наведет на какие мысли.