<!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 >
