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.
243 lines
9.5 KiB
243 lines
9.5 KiB
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
|
|
<html>
|
|
<head>
|
|
<meta http-equiv="Content-Type" content="text/html; charset=ISO-8859-1">
|
|
<title>A simple mail client</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 Classes</font></a>
|
|
| <a href="mainclasses.html">
|
|
<font color="#004faf">Main Classes</font></a>
|
|
| <a href="annotated.html">
|
|
<font color="#004faf">Annotated</font></a>
|
|
| <a href="groups.html">
|
|
<font color="#004faf">Grouped 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>A simple mail client</h1>
|
|
|
|
|
|
<p>
|
|
<p> This example shows how to use the <a href="tqsocket.html">TQSocket</a> class. The client can only be
|
|
used to send mails. The interesting part is the implementation of the
|
|
SMTP protocol.
|
|
<p> <hr>
|
|
<p> Header file (smtp.h):
|
|
<p> <pre>/****************************************************************************
|
|
** $Id: qt/smtp.h 3.3.8 edited Jan 11 14:37 $
|
|
**
|
|
** Copyright (C) 1992-2007 Trolltech ASA. All rights reserved.
|
|
**
|
|
** This file is part of an example program for TQt. This example
|
|
** program may be used, distributed and modified without limitation.
|
|
**
|
|
*****************************************************************************/
|
|
|
|
#ifndef SMTP_H
|
|
#define SMTP_H
|
|
|
|
#include <<a href="tqobject-h.html">tqobject.h</a>>
|
|
#include <<a href="tqstring-h.html">tqstring.h</a>>
|
|
|
|
class TQSocket;
|
|
class TQTextStream;
|
|
class TQDns;
|
|
|
|
class Smtp : public <a href="tqobject.html">TQObject</a>
|
|
{
|
|
<a href="metaobjects.html#TQ_OBJECT">TQ_OBJECT</a>
|
|
|
|
public:
|
|
Smtp( const <a href="tqstring.html">TQString</a> &from, const <a href="tqstring.html">TQString</a> &to,
|
|
const <a href="tqstring.html">TQString</a> &subject, const <a href="tqstring.html">TQString</a> &body );
|
|
~Smtp();
|
|
|
|
signals:
|
|
void status( const <a href="tqstring.html">TQString</a> & );
|
|
|
|
private slots:
|
|
void dnsLookupHelper();
|
|
void readyRead();
|
|
void connected();
|
|
|
|
private:
|
|
enum State {
|
|
Init,
|
|
Mail,
|
|
Rcpt,
|
|
Data,
|
|
Body,
|
|
Quit,
|
|
Close
|
|
};
|
|
|
|
<a href="tqstring.html">TQString</a> message;
|
|
<a href="tqstring.html">TQString</a> from;
|
|
<a href="tqstring.html">TQString</a> rcpt;
|
|
<a href="tqsocket.html">TQSocket</a> *socket;
|
|
<a href="tqtextstream.html">TQTextStream</a> * t;
|
|
int state;
|
|
<a href="tqstring.html">TQString</a> response;
|
|
<a href="tqdns.html">TQDns</a> * mxLookup;
|
|
};
|
|
|
|
#endif
|
|
</pre>
|
|
|
|
<p> <hr>
|
|
<p> Implementation (smtp.cpp):
|
|
<p> <pre>/****************************************************************************
|
|
** $Id: qt/smtp.cpp 3.3.8 edited Jan 11 14:37 $
|
|
**
|
|
** Copyright (C) 1992-2007 Trolltech ASA. All rights reserved.
|
|
**
|
|
** This file is part of an example program for TQt. This example
|
|
** program may be used, distributed and modified without limitation.
|
|
**
|
|
*****************************************************************************/
|
|
|
|
#include "smtp.h"
|
|
|
|
#include <<a href="tqtextstream-h.html">tqtextstream.h</a>>
|
|
#include <<a href="tqsocket-h.html">tqsocket.h</a>>
|
|
#include <<a href="tqdns-h.html">tqdns.h</a>>
|
|
#include <<a href="tqtimer-h.html">tqtimer.h</a>>
|
|
#include <<a href="tqapplication-h.html">tqapplication.h</a>>
|
|
#include <<a href="tqmessagebox-h.html">tqmessagebox.h</a>>
|
|
#include <<a href="tqregexp-h.html">tqregexp.h</a>>
|
|
|
|
|
|
<a name="f297"></a>Smtp::Smtp( const <a href="tqstring.html">TQString</a> &from, const <a href="tqstring.html">TQString</a> &to,
|
|
const <a href="tqstring.html">TQString</a> &subject,
|
|
const <a href="tqstring.html">TQString</a> &body )
|
|
{
|
|
socket = new <a href="tqsocket.html">TQSocket</a>( this );
|
|
<a name="x714"></a> <a href="tqobject.html#connect">connect</a> ( socket, TQ_SIGNAL( <a href="tqsocket.html#readyRead">readyRead</a>() ),
|
|
this, TQ_SLOT( readyRead() ) );
|
|
<a name="x711"></a> <a href="tqobject.html#connect">connect</a> ( socket, TQ_SIGNAL( <a href="tqsocket.html#connected">connected</a>() ),
|
|
this, TQ_SLOT( connected() ) );
|
|
|
|
<a name="x717"></a><a name="x715"></a> mxLookup = new <a href="tqdns.html">TQDns</a>( to.<a href="tqstring.html#mid">mid</a>( to.<a href="tqstring.html#find">find</a>( '@' )+1 ), TQDns::Mx );
|
|
<a name="x707"></a> <a href="tqobject.html#connect">connect</a>( mxLookup, TQ_SIGNAL(<a href="tqdns.html#resultsReady">resultsReady</a>()),
|
|
this, TQ_SLOT(dnsLookupHelper()) );
|
|
|
|
<a name="x716"></a> message = TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "From: " ) + from +
|
|
TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\nTo: " ) + to +
|
|
TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\nSubject: " ) + subject +
|
|
TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\n\n" ) + body + "\n";
|
|
message.replace( TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\n" ),
|
|
TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\r\n" ) );
|
|
message.replace( TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\r\n.\r\n" ),
|
|
TQString::<a href="tqstring.html#fromLatin1">fromLatin1</a>( "\r\n..\r\n" ) );
|
|
|
|
this->from = from;
|
|
rcpt = to;
|
|
|
|
state = Init;
|
|
}
|
|
|
|
|
|
Smtp::~Smtp()
|
|
{
|
|
delete t;
|
|
delete socket;
|
|
}
|
|
|
|
|
|
void <a name="f298"></a>Smtp::dnsLookupHelper()
|
|
{
|
|
<a name="x706"></a> <a href="tqvaluelist.html">TQValueList</a><TQDns::MailServer> s = mxLookup-><a href="tqdns.html#mailServers">mailServers</a>();
|
|
<a name="x720"></a> if ( s.<a href="tqvaluelist.html#isEmpty">isEmpty</a>() ) {
|
|
<a name="x705"></a> if ( !mxLookup-><a href="tqdns.html#isWorking">isWorking</a>() )
|
|
emit status( <a href="tqobject.html#tr">tr</a>( "Error in MX record lookup" ) );
|
|
return;
|
|
}
|
|
|
|
<a name="x719"></a> emit status( <a href="tqobject.html#tr">tr</a>( "Connecting to %1" ).arg( s.<a href="tqvaluelist.html#first">first</a>().name ) );
|
|
|
|
<a name="x710"></a> socket-><a href="tqsocket.html#connectToHost">connectToHost</a>( s.<a href="tqvaluelist.html#first">first</a>().name, 25 );
|
|
t = new <a href="tqtextstream.html">TQTextStream</a>( socket );
|
|
}
|
|
|
|
|
|
void <a name="f299"></a>Smtp::connected()
|
|
{
|
|
<a name="x712"></a> emit status( <a href="tqobject.html#tr">tr</a>( "Connected to %1" ).arg( socket-><a href="tqsocket.html#peerName">peerName</a>() ) );
|
|
}
|
|
|
|
void <a name="f300"></a>Smtp::readyRead()
|
|
{
|
|
// SMTP is line-oriented
|
|
<a name="x709"></a> if ( !socket-><a href="tqsocket.html#canReadLine">canReadLine</a>() )
|
|
return;
|
|
|
|
<a href="tqstring.html">TQString</a> responseLine;
|
|
do {
|
|
<a name="x713"></a> responseLine = socket-><a href="tqsocket.html#readLine">readLine</a>();
|
|
response += responseLine;
|
|
} while( socket-><a href="tqsocket.html#canReadLine">canReadLine</a>() && responseLine[3] != ' ' );
|
|
<a name="x718"></a> responseLine.<a href="tqstring.html#truncate">truncate</a>( 3 );
|
|
|
|
if ( state == Init && responseLine[0] == '2' ) {
|
|
// banner was okay, let's go on
|
|
*t << "HELO there\r\n";
|
|
state = Mail;
|
|
} else if ( state == Mail && responseLine[0] == '2' ) {
|
|
// HELO response was okay (well, it has to be)
|
|
*t << "MAIL FROM: <" << from << ">\r\n";
|
|
state = Rcpt;
|
|
} else if ( state == Rcpt && responseLine[0] == '2' ) {
|
|
*t << "RCPT TO: <" << rcpt << ">\r\n";
|
|
state = Data;
|
|
} else if ( state == Data && responseLine[0] == '2' ) {
|
|
*t << "DATA\r\n";
|
|
state = Body;
|
|
} else if ( state == Body && responseLine[0] == '3' ) {
|
|
*t << message << ".\r\n";
|
|
state = Quit;
|
|
} else if ( state == Quit && responseLine[0] == '2' ) {
|
|
*t << "QUIT\r\n";
|
|
// here, we just close.
|
|
state = Close;
|
|
emit status( <a href="tqobject.html#tr">tr</a>( "Message sent" ) );
|
|
} else if ( state == Close ) {
|
|
<a href="tqobject.html#deleteLater">deleteLater</a>();
|
|
return;
|
|
} else {
|
|
// something broke.
|
|
<a name="x708"></a><a name="x704"></a> TQMessageBox::<a href="tqmessagebox.html#warning">warning</a>( tqApp-><a href="tqapplication.html#activeWindow">activeWindow</a>(),
|
|
<a href="tqobject.html#tr">tr</a>( "TQt Mail Example" ),
|
|
<a href="tqobject.html#tr">tr</a>( "Unexpected reply from SMTP server:\n\n" ) +
|
|
response );
|
|
state = Close;
|
|
}
|
|
|
|
response = "";
|
|
}
|
|
</pre>
|
|
|
|
<p>See also <a href="network-examples.html">Network Examples</a>.
|
|
|
|
<!-- eof -->
|
|
<p><address><hr><div align=center>
|
|
<table width=100% cellspacing=0 border=0><tr>
|
|
<td>Copyright © 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>
|