CreateOleObject выдает "неизвестное исключение". Почему?
Здрасьте, олл.
У меня такая ситуация. Прога-клиент вызывает, соответственно, прогу-сервак, ProgID которой TFW32.SERVER. Так вот, я пишу:
OleVariant TF;
try{TF = GetActiveOleObject("TFW32.SERVER");}
catch(...){TF = CreateOleObject("TFW32.SERVER");};
Во время выполнения try...catch, если программу запустить в билдере, вылезает окно с ассемблерным кодом и ругательства по поводу неизвестного исключения. Если запустить просто экзешник - вылезает мессага "неизвестное исключение бла-бла-бла". Может, кто сталкивался и знает, как с этим бороться?
Маленькая поправка: прога-клиент консольная с поддержкой VCL. В обычном билдеровском приложении (File->New Application) все работает нормально.
У меня такая ситуация. Прога-клиент вызывает, соответственно, прогу-сервак, ProgID которой TFW32.SERVER. Так вот, я пишу:
OleVariant TF;
try{TF = GetActiveOleObject("TFW32.SERVER");}
catch(...){TF = CreateOleObject("TFW32.SERVER");};
Во время выполнения try...catch, если программу запустить в билдере, вылезает окно с ассемблерным кодом и ругательства по поводу неизвестного исключения. Если запустить просто экзешник - вылезает мессага "неизвестное исключение бла-бла-бла". Может, кто сталкивался и знает, как с этим бороться?
Маленькая поправка: прога-клиент консольная с поддержкой VCL. В обычном билдеровском приложении (File->New Application) все работает нормально.
Пардон, туплю не по-детски. Забыл просто COM проинициализировать (CoInitialize).