You can not select more than 25 topics Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
tqt3/doc/html/qaxcontainer-example-qutloo...

244 lines
13 KiB

<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<!-- /home/espenr/tmp/qt-3.3.8-espenr-2499/qt-x11-free-3.3.8/extensions/activeqt/examples/qutlook/qutlook.doc:1 -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
<title>In Sync with Outlook</title>
<style type="text/css"><!--
fn { margin-left: 1cm; text-indent: -1cm; }
a:link { color: #004faf; text-decoration: none }
a:visited { color: #672967; text-decoration: none }
body { background: #ffffff; color: black; }
--></style>
</head>
<body>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
<tr bgcolor="#E5E5E5">
<td valign=center>
<a href="index.html">
<font color="#004faf">Home</font></a>
| <a href="classes.html">
<font color="#004faf">All&nbsp;Classes</font></a>
| <a href="mainclasses.html">
<font color="#004faf">Main&nbsp;Classes</font></a>
| <a href="annotated.html">
<font color="#004faf">Annotated</font></a>
| <a href="groups.html">
<font color="#004faf">Grouped&nbsp;Classes</font></a>
| <a href="functions.html">
<font color="#004faf">Functions</font></a>
</td>
<td align="right" valign="center"><img src="logo32.png" align="right" width="64" height="32" border="0"></td></tr></table><h1 align=center>In Sync with Outlook</h1>
This example is a modified version of the standard
<a href="addressbook-example.html">TQt addressbook</a> example.
<p> It demonstrates the use of <a href="qaxobject.html">TQAxObject</a> and querySubObject to instantiate and
navigate the Outlook Object Model, and the use of the TQt property system to
read and write values of items in the Outlook contact folder.
<p>
The modifications in the class declaration of the central widget are
a forward declaration of the TQAxObject class and the IDispatch interface,
and a new <a href="qlistviewitem.html">TQListViewItem</a> subclass <tt>ABListViewItem</tt> that implements a
constructor and a destructor and has a member <tt>contact_item</tt> of type
<a href="qaxobject.html">TQAxObject</a>.
<pre> class TQAxObject;
struct IDispatch;
class ABListViewItem : public <a href="qlistviewitem.html">TQListViewItem</a>
{
public:
ABListViewItem( <a href="ntqlistview.html">TQListView</a> *listview, TQString firstName, TQString lastName, TQString address, TQString eMail, TQAxObject *contact );
~ABListViewItem();
<a href="qaxobject.html">TQAxObject</a> *contactItem() const;
private:
<a href="qaxobject.html">TQAxObject</a> *contact_item;
};
</pre>
<p> The ABCentralWidget gets a destructor, a new protected function <tt>setupOutlook</tt>,
a new protected slot <tt>updateOutlook</tt>, and also three members of type <a href="qaxobject.html">TQAxObject</a>.
<pre> void findEntries();
void updateOutlook();
protected:
void setupTabWidget();
void setupListView();
void setupOutlook();
<a href="qaxobject.html">TQAxObject</a> *outlook, *outlookSession, *contactItems;
<a href="qgridlayout.html">TQGridLayout</a> *mainGrid;
</pre>
<p>
The implementation of the ABListViewItem class is trivial:
<pre> ABListViewItem::ABListViewItem( <a href="ntqlistview.html">TQListView</a> *listview,
<a href="ntqstring.html">TQString</a> firstName,
<a href="ntqstring.html">TQString</a> lastName,
<a href="ntqstring.html">TQString</a> address,
<a href="ntqstring.html">TQString</a> eMail,
<a href="qaxobject.html">TQAxObject</a> *contact )
: <a href="qlistviewitem.html">TQListViewItem</a>( listview, firstName, lastName, address, eMail ), contact_item( contact )
{
}
ABListViewItem::~ABListViewItem()
{
delete contact_item;
}
TQAxObject *ABListViewItem::contactItem() const
{
return contact_item;
}
</pre>The ABCentralWidget constructor initializes the <a href="qaxobject.html">TQAxObject</a> pointers to zero and
calls the <tt>setupOutlook</tt> function. The ABCentralWidget destructor calls the
Logoff method of the outlookSession object.
<pre> ABCentralWidget::ABCentralWidget( <a href="ntqwidget.html">TQWidget</a> *parent, const char *name )
: <a href="ntqwidget.html">TQWidget</a>( parent, name ), outlook( 0 ), outlookSession( 0 ), contactItems( 0 )
{
mainGrid = new <a href="qgridlayout.html">TQGridLayout</a>( this, 2, 1, 5, 5 );
setupTabWidget();
setupListView();
setupOutlook();
<a name="x2722"></a> mainGrid-&gt;<a href="qgridlayout.html#setRowStretch">setRowStretch</a>( 0, 0 );
mainGrid-&gt;<a href="qgridlayout.html#setRowStretch">setRowStretch</a>( 1, 1 );
}
ABCentralWidget::~ABCentralWidget()
{
if ( outlookSession )
outlookSession-&gt;dynamicCall( "Logoff()" );
}
</pre>The <tt>setupOutlook</tt> implementation creates a TQAxObject to wrap the
Outlook.Application COM object.
<pre> void ABCentralWidget::setupOutlook()
{
outlook = new <a href="qaxobject.html">TQAxObject</a>( "Outlook.Application", this );
</pre>The call to <tt>querySubObject</tt> returns a new <a href="qaxobject.html">TQAxObject</a> wrapper around the
"Session" object of the Outlook Object hierarchy. If the call fails for
some reason setupOutlook returns, otherwise it calls the "Logon" method
of the Session object.
<pre> // Get a session object
<a name="x2721"></a> outlookSession = outlook-&gt;<a href="qaxbase.html#querySubObject">querySubObject</a>( "Session" );
if ( !outlookSession )
return;
// Login; doesn't hurt if you are already running and logged on...
outlookSession-&gt;dynamicCall( "Logon()" );
</pre>The following call to <tt>querySubObject</tt> returns a new TQAxObject wrapper
around the default folder for "contacts".
<pre> // Get the default folder for contacts
<a href="qaxobject.html">TQAxObject</a> *defFolder = outlookSession-&gt;querySubObject( "GetDefaultFolder(OlDefaultFolders)", "olFolderContacts" );
</pre><tt>querySubObject</tt> is then used again to get the list of all items in the
folder. The <tt>connect</tt> statement connects the new ABCentralWidget slot
to the signals provided by the "Items" COM object. Finally, it calls the
<tt>updateOutlook</tt> function to populate the listview.
<pre> // Get all items
if ( defFolder ) {
contactItems = defFolder-&gt;<a href="qaxbase.html#querySubObject">querySubObject</a>( "Items" );
<a href="tqobject.html#connect">connect</a>( contactItems, TQ_SIGNAL(ItemAdd(IDispatch*)), this, TQ_SLOT(updateOutlook()) );
<a href="tqobject.html#connect">connect</a>( contactItems, TQ_SIGNAL(ItemChange(IDispatch*)), this, TQ_SLOT(updateOutlook()) );
<a href="tqobject.html#connect">connect</a>( contactItems, TQ_SIGNAL(ItemRemove()), this, TQ_SLOT(updateOutlook()) );
}
updateOutlook();
}
</pre>
<p> The implementation of the <tt>updateOutlook</tt> slot clears the listview, and uses
<tt>querySubObject</tt> to iterate through the list of items. For every item provided a new
ABListViewItem object is created and filled with the properties of the item
object. The object returned by <tt>querySubObject</tt> is a child of the callee (ie. "contactItems"),
but the list view item should take ownership to provide a cleaner relation between
entries, so the item has to be removed from its parent object.
<pre> void ABCentralWidget::updateOutlook()
{
<a name="x2725"></a> listView-&gt;<a href="ntqlistview.html#clear">clear</a>();
if ( !contactItems )
return;
<a href="qaxobject.html">TQAxObject</a> *item = contactItems-&gt;querySubObject( "GetFirst()" );
while ( item ) {
<a name="x2729"></a> <a href="ntqstring.html">TQString</a> firstName = item-&gt;<a href="tqobject.html#property">property</a>( "FirstName" ).toString();
<a href="ntqstring.html">TQString</a> lastName = item-&gt;<a href="tqobject.html#property">property</a>( "LastName" ).toString();
<a href="ntqstring.html">TQString</a> address = item-&gt;<a href="tqobject.html#property">property</a>( "HomeAddress" ).toString();
<a href="ntqstring.html">TQString</a> email = item-&gt;<a href="tqobject.html#property">property</a>( "Email1Address" ).toString();
(void)new ABListViewItem( listView, firstName, lastName, address, email, item );
// the listviewitem takes ownership
<a name="x2727"></a> item-&gt;<a href="qlistviewitem.html#parent">parent</a>()-&gt;removeChild( item );
item = contactItems-&gt;querySubObject( "GetNext()" );
}
}
</pre>
<p> The <tt>addEntry</tt> implementation calls the CreateItem method of the Outlook.Application
object to create a new contact item, and creates a new ABListViewItem if the call
succeeds.
<pre> void ABCentralWidget::addEntry()
{
<a name="x2724"></a> if ( !iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() || !iLastName-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() ||
!iAddress-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() || !iEMail-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() ) {
<a href="qaxobject.html">TQAxObject</a> *contactItem = outlook-&gt;<a href="qaxbase.html#querySubObject">querySubObject</a>( "CreateItem(OlItemType)", "olContactItem" );
if ( contactItem ) {
<a name="x2730"></a> contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "FirstName", iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "LastName", iLastName-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "HomeAddress", iAddress-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "Email1Address", iEMail-&gt;<a href="ntqlineedit.html#text">text</a>() );
<a name="x2720"></a> contactItem-&gt;<a href="qaxbase.html#dynamicCall">dynamicCall</a>( "Save()" );
new ABListViewItem( listView, iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>(),
iLastName-&gt;<a href="ntqlineedit.html#text">text</a>(), iAddress-&gt;<a href="ntqlineedit.html#text">text</a>(), iEMail-&gt;<a href="ntqlineedit.html#text">text</a>(), contactItem );
}
}
<a name="x2723"></a> iFirstName-&gt;<a href="ntqlineedit.html#setText">setText</a>( "" );
iLastName-&gt;<a href="ntqlineedit.html#setText">setText</a>( "" );
iAddress-&gt;<a href="ntqlineedit.html#setText">setText</a>( "" );
iEMail-&gt;<a href="ntqlineedit.html#setText">setText</a>( "" );
}
</pre>
<p> The <tt>changeEntry</tt> implementation updates the values in the contact item of the current
listview item as well as the values of the listview item itself.
<pre> void ABCentralWidget::changeEntry()
{
<a name="x2726"></a> ABListViewItem *item = (ABListViewItem*)listView-&gt;<a href="ntqlistview.html#currentItem">currentItem</a>();
if ( item &amp;&amp;
( !iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() || !iLastName-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() ||
!iAddress-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() || !iEMail-&gt;<a href="ntqlineedit.html#text">text</a>().isEmpty() ) ) {
<a href="qaxobject.html">TQAxObject</a> *contactItem = item-&gt;contactItem();
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "FirstName", iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "LastName", iLastName-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "HomeAddress", iAddress-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="tqobject.html#setProperty">setProperty</a>( "Email1Address", iEMail-&gt;<a href="ntqlineedit.html#text">text</a>() );
contactItem-&gt;<a href="qaxbase.html#dynamicCall">dynamicCall</a>( "Save()" );
<a name="x2728"></a> item-&gt;<a href="qlistviewitem.html#setText">setText</a>( 0, iFirstName-&gt;<a href="ntqlineedit.html#text">text</a>() );
item-&gt;<a href="qlistviewitem.html#setText">setText</a>( 1, iLastName-&gt;<a href="ntqlineedit.html#text">text</a>() );
item-&gt;<a href="qlistviewitem.html#setText">setText</a>( 2, iAddress-&gt;<a href="ntqlineedit.html#text">text</a>() );
item-&gt;<a href="qlistviewitem.html#setText">setText</a>( 3, iEMail-&gt;<a href="ntqlineedit.html#text">text</a>() );
}
}
</pre>
<p> To build the example you must first build the <a href="qaxcontainer.html">TQAxContainer</a>
library. Then run your make tool in <tt>examples/qutlook</tt> and run the resulting <tt>qutlok.exe</tt>.
<p>See also <a href="qaxcontainer-examples.html">The TQAxContainer Examples</a>.
<!-- eof -->
<p><address><hr><div align=center>
<table width=100% cellspacing=0 border=0><tr>
<td>Copyright &copy; 2007
<a href="troll.html">Trolltech</a><td align=center><a href="trademarks.html">Trademarks</a>
<td align=right><div align=right>TQt 3.3.8</div>
</table></div></address></body>
</html>