|  | Home · Overviews · Examples

# COM App Example (ActiveQt)

The COM App example shows how to use ActiveQt to develop a Qt application that can be automated via COM. Different QObject based classes are exposed as COM objects that communicate with the GUI of the running Qt application. The APIs of those COM objects has been designed to resemble the APIs of standard COM applications; i.e. those from Microsoft Office.
The following code example is written in c++.

    class Application : public QObject
    {
        Q_OBJECT

        Q_CLASSINFO("ClassID", "{b50a71db-c4a7-4551-8d14-49983566afee}")
        Q_CLASSINFO("InterfaceID", "{4a427759-16ef-4ed8-be79-59ffe5789042}")
        Q_CLASSINFO("RegisterObject", "yes")

        Q_PROPERTY(DocumentList* documents READ documents)
        Q_PROPERTY(QString id READ id)
        Q_PROPERTY(bool visible READ isVisible WRITE setVisible)

    public:
        Application(QObject *parent = 0);
        DocumentList *documents() const;

        QString id() const { return objectName(); }

        void setVisible(bool on);
        bool isVisible() const;

        QTabWidget *window() const { return ui; }

    public slots:
        void quit();

    private:
        DocumentList *docs;

        QTabWidget *ui;
    };

The first class `Application` represents the application object. It exposes read-only properties `documents` and `id` to get access to the list of documents, and an identifier. A read/write property `visible` controls whether the QTabWidget-based user interface of the application should be visible, and a slot `quit()` terminates the application.

The RegisterObject attribute is set to make sure that instances of this class are registered in COM's running object table (ROT) - this allows COM clients to connect to an already instantiated COM object.
The following code example is written in c++.

    class DocumentList : public QObject
    {
        Q_OBJECT

        Q_CLASSINFO("ClassID", "{496b761d-924b-4554-a18a-8f3704d2a9a6}")
        Q_CLASSINFO("InterfaceID", "{6c9e30e8-3ff6-4e6a-9edc-d219d074a148}")

        Q_PROPERTY(Application* application READ application)
        Q_PROPERTY(int count READ count)

    public:
        DocumentList(Application *application);

        int count() const;
        Application *application() const;

    public slots:
        Document *addDocument();
        Document *item(int index) const;

    private:
        QList<Document*> list;
    };

The `DocumentList` class stores a list of documents. It provides an API to read the number of documents, to access each document by index and to create a new document. The `application` property returns the root object.
The following code example is written in c++.

    class Document : public QObject
    {
        Q_OBJECT

        Q_CLASSINFO("ClassID", "{2b5775cd-72c2-43da-bc3b-b0e8d1e1c4f7}")
        Q_CLASSINFO("InterfaceID", "{2ce1761e-07a3-415c-bd11-0eab2c7283de}")

        Q_PROPERTY(Application *application READ application)
        Q_PROPERTY(QString title READ title WRITE setTitle)

    public:
        Document(DocumentList *list);
        ~Document();

        Application *application() const;

        QString title() const;
        void setTitle(const QString &title);

    private:
        QWidget *page;
    };

The `Document` class finally represents a document in the application. Each document is represented by a page in the application's tab widget, and has a title that is readable and writable through the document's API. The `application` property again returns the root object.
The following code example is written in c++.

    Document::Document(DocumentList *list)
    : QObject(list)
    {
        QTabWidget *tabs = list->application()->window();
        page = new QWidget(tabs);
        page->setWindowTitle("Unnamed");
        tabs->addTab(page, page->windowTitle());

        page->show();
    }

    Document::~Document()
    {
        delete page;
    }

    Application *Document::application() const
    {
        return qobject_cast<DocumentList*>(parent())->application();
    }

    QString Document::title() const
    {
        return page->windowTitle();
    }

    void Document::setTitle(const QString &t)
    {
        page->setWindowTitle(t);

        QTabWidget *tabs = application()->window();
        int index = tabs->indexOf(page);
        tabs->setTabText(index, page->windowTitle());
    }

The implementation of the `Document` class creates a new page for the tab widget, and uses the title of that page for the title property. The page is deleted when the document is deleted.
The following code example is written in c++.

    DocumentList::DocumentList(Application *application)
    : QObject(application)
    {
    }

    Application *DocumentList::application() const
    {
        return qobject_cast<Application*>(parent());
    }

    int DocumentList::count() const
    {
        return list.count();
    }

    Document *DocumentList::item(int index) const
    {
        if (index >= list.count())
            return 0;

        return list.at(index);
    }

    Document *DocumentList::addDocument()
    {
        Document *document = new Document(this);
        list.append(document);

        return document;
    }

The `DocumentList` implementation is straightforward.
The following code example is written in c++.

    Application::Application(QObject *parent)
    : QObject(parent), ui(0)
    {
        ui = new QTabWidget;

        setObjectName("From QAxFactory");
        docs = new DocumentList(this);
    }

    DocumentList *Application::documents() const
    {
        return docs;
    }

    void Application::setVisible(bool on)
    {
        ui->setShown(on);
    }

    bool Application::isVisible() const
    {
        return ui->isVisible();
    }

    void Application::quit()
    {
        delete docs;
        docs = 0;

        delete ui;
        ui = 0;
        QTimer::singleShot(0, qApp, SLOT(quit()));
    }

    #include "main.moc"

The `Application` class initializes the user interface in the constructor, and shows and hides it in the implementation of `setVisible()`. The object name (accessible through the `id` property) is set to `"From`QAxFactory" to indicate that this COM object has been created by COM. Note that there is no destructor that would delete the QTabWidget - this is instead done in the `quit()` slot, before calling QApplication::quit() through a single-shot-timer, which is necessary ensure that the COM call to the slot is complete.
The following code example is written in c++.

    QAXFACTORY_BEGIN("{edd3e836-f537-4c6f-be7d-6014c155cc7a}", "{b7da3de8-83bb-4bbe-9ab7-99a05819e201}")
       QAXCLASS(Application)
       QAXTYPE(Document)
       QAXTYPE(DocumentList)
    QAXFACTORY_END()

The classes are exported from the server using the QAxFactory macros. Only `Application` objects can be instantiated from outside - the other APIs can only be used after accessing the respective objects throught the `Application` API.
The following code example is written in c++.

    int main(int argc, char **argv)
    {
        QApplication app(argc, argv);
        app.setQuitOnLastWindowClosed(false);

        // started by COM - don't do anything
        if (QAxFactory::isServer())
            return app.exec();

        // started by user
        Application appobject(0);
        appobject.setObjectName("From Application");

        QAxFactory::startServer();
        QAxFactory::registerActiveObject(&appobject);

        appobject.setVisible(true);

        QObject::connect(qApp, SIGNAL(lastWindowClosed()), &appobject, SLOT(quit()));

        return app.exec();
    }

The main() entry point function creates a QApplication, and just enters the event loop if the application has been started by COM. If the application has been started by the user, then the `Application` object is created and the object name is set to "From Application". Then the COM server is started, and the application object is registered with COM. It is now accessible to COM clients through the client-specific APIs.

Application exiting is controlled explicitly - if COM started the application, then the client code has to call quit(); if the user started the application, then the application terminates when the last window has been closed.

Finally, the user interface is made visible, and the event loop is started.

A simple Visual Basic application could now access this Qt application. In VB, start a new "Standard Exe" project and add a project reference to the comappLib type library. Create a form with a listbox "DocumentList", a static label "DocumentsCount" and a command button "NewDocument". Finally, implement the code for the form like this:

            Private Application As comappLib.Application
            Private MyApp As Boolean

            Private Sub UpdateList()
                DocumentList.Clear
                DocumentsCount.Caption = Application.documents.Count
                For Index = 0 To Application.documents.Count - 1
                   DocumentList.AddItem (Application.documents.Item(Index).Title)
                Next
            End Sub

            Private Sub Form_Load()
                On Error GoTo CreateNew
                Set Application = GetObject(, "comapp.Application")
                MyApp = False
                GoTo Initialized
            CreateNew:
                On Error GoTo InitializeFailed
                Set Application = New Application
                Application.Visible = True
                MyApp = True
            Initialized:
                Caption = Application.id
                UpdateList
            InitializeFailed:
            End Sub

            Private Sub Form_Unload(Cancel As Integer)
                If MyApp Then
                    Application.quit
                End If
            End Sub

            Private Sub NewDocument_Click()
                Application.documents.addDocument
                UpdateList
            End Sub

To build the example you must first build the QAxServer library. Then run `qmake` and your make tool in `examples\activeqt\comapp`.