Форум программистов
 

Восстановите пароль или Зарегистрируйтесь на форуме, о проблемах и с заказом рекламы пишите сюда - alarforum@yandex.ru, проверяйте папку спам!

Вернуться   Форум программистов > C/C++ программирование > Общие вопросы C/C++
Регистрация

Восстановить пароль

Купить рекламу на форуме - 42 тыс руб за месяц

Ответ
 
Опции темы Поиск в этой теме
Старый 11.05.2010, 22:18   #1
Maks1978
Пользователь
 
Аватар для Maks1978
 
Регистрация: 25.05.2008
Сообщений: 53
Вопрос Kompas.Application.5

Есть такой код:
Код:
void __fastcall TFPlottingOfCircuitsOfLifts1LT::Button1Click(TObject *Sender)
{
  try
  {
	kompas=GetActiveOleObject("Kompas.Application.5");
  }
  catch (...)
  {
	try
	{
	  kompas=CreateOleObject("Kompas.Application.5");
	}
	catch (...)
	{
	  MessageBox(FPlottingOfCircuitsOfLifts1LT->Handle,
		"Ошибка подключения или запуска приложения КОМПАС LT",
		"Сообщение об ошибке", MB_OK);
	  return;
	}
  }
  kompas.OlePropertySet("Visible", true);
}
У меня стоят два КОМПАСА: КОМПАС-3D LT V11 и КОМПАС-3D V10.
1) При сработке:
Код:
...
	  kompas=CreateOleObject("Kompas.Application.5");
...
запускается КОМПАС-3D V10.
2) При работающих одновременно КОМПАС-3D LT V11 и КОМПАС-3D V10, и сработке
Код:
...
	kompas=GetActiveOleObject("Kompas.Application.5");
...
подключается к КОМПАС-3D V10.
Вопрос: Можно ли с помощью CreateOleObject\GetActiveOleObject запускать\подключаться к нужному мне в данный момент КОМПАСу и как это сделать?
Maks1978 вне форума Ответить с цитированием
Старый 12.05.2010, 15:20   #2
Maks1978
Пользователь
 
Аватар для Maks1978
 
Регистрация: 25.05.2008
Сообщений: 53
По умолчанию

Покопался в реестре через выражение "KOMPAS.Application". Обнаружил кроме KOMPAS.Application.5 ещё и KOMPAS.Application.7. Попробовал через него - тоже самое. Стал искать в реестре тогда через "KOMPAS" и наткнулся на KOMPASLT.Application.5. Попробовал теперь через него и всё сработало. Вопрос снимаю.
Maks1978 вне форума Ответить с цитированием
Ответ


Купить рекламу на форуме - 42 тыс руб за месяц



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
APPLICATION c++ 4ika Общие вопросы C/C++ 1 14.04.2010 20:43
Application eror beemoto Работа с сетью в Delphi 5 17.04.2009 20:25
application.ProcessMessages; UROKSAN Общие вопросы Delphi 2 10.04.2008 13:32
Application.terminate GAGARIN-NEW Общие вопросы Delphi 11 09.03.2008 19:32
Application.ProcessMessages =LeonZone= Общие вопросы Delphi 11 27.01.2008 21:31