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.
577 lines
14 KiB
577 lines
14 KiB
/****************************************************************************
|
|
**
|
|
** Implementation of TQSocketDevice class.
|
|
**
|
|
** Created : 970521
|
|
**
|
|
** Copyright (C) 1992-2008 Trolltech ASA. All rights reserved.
|
|
**
|
|
** This file is part of the network module of the TQt GUI Toolkit.
|
|
**
|
|
** This file may be used under the terms of the GNU General
|
|
** Public License versions 2.0 or 3.0 as published by the Free
|
|
** Software Foundation and appearing in the files LICENSE.GPL2
|
|
** and LICENSE.GPL3 included in the packaging of this file.
|
|
** Alternatively you may (at your option) use any later version
|
|
** of the GNU General Public License if such license has been
|
|
** publicly approved by Trolltech ASA (or its successors, if any)
|
|
** and the KDE Free TQt Foundation.
|
|
**
|
|
** Please review the following information to ensure GNU General
|
|
** Public Licensing requirements will be met:
|
|
** http://trolltech.com/products/qt/licenses/licensing/opensource/.
|
|
** If you are unsure which license is appropriate for your use, please
|
|
** review the following information:
|
|
** http://trolltech.com/products/qt/licenses/licensing/licensingoverview
|
|
** or contact the sales department at sales@trolltech.com.
|
|
**
|
|
** This file may be used under the terms of the Q Public License as
|
|
** defined by Trolltech ASA and appearing in the file LICENSE.TQPL
|
|
** included in the packaging of this file. Licensees holding valid TQt
|
|
** Commercial licenses may use this file in accordance with the TQt
|
|
** Commercial License Agreement provided with the Software.
|
|
**
|
|
** This file is provided "AS IS" with NO WARRANTY OF ANY KIND,
|
|
** INCLUDING THE WARRANTIES OF DESIGN, MERCHANTABILITY AND FITNESS FOR
|
|
** A PARTICULAR PURPOSE. Trolltech reserves all rights not granted
|
|
** herein.
|
|
**
|
|
**********************************************************************/
|
|
|
|
#include "ntqsocketdevice.h"
|
|
#ifndef TQT_NO_NETWORK
|
|
|
|
#include "ntqwindowdefs.h"
|
|
#include <string.h>
|
|
|
|
|
|
//#define TQSOCKETDEVICE_DEBUG
|
|
|
|
|
|
class TQSocketDevicePrivate
|
|
{
|
|
public:
|
|
TQSocketDevicePrivate( TQSocketDevice::Protocol p )
|
|
: protocol(p)
|
|
{ }
|
|
|
|
TQSocketDevice::Protocol protocol;
|
|
};
|
|
|
|
|
|
/*!
|
|
\class TQSocketDevice ntqsocketdevice.h
|
|
\brief The TQSocketDevice class provides a platform-independent low-level socket API.
|
|
\if defined(commercial)
|
|
It is part of the <a href="commercialeditions.html">TQt Enterprise Edition</a>.
|
|
\endif
|
|
|
|
\ingroup io
|
|
\module network
|
|
|
|
This class provides a low level API for working with sockets. Users of
|
|
this class are assumed to have networking experience. For most users the
|
|
TQSocket class provides a much easier and high level alternative, but
|
|
certain things (like UDP) can't be done with TQSocket and if you need a
|
|
platform-independent API for those, TQSocketDevice is the right choice.
|
|
|
|
The essential purpose of the class is to provide a TQIODevice that
|
|
works on sockets, wrapped in a platform-independent API.
|
|
|
|
When calling connect() or bind(), TQSocketDevice detects the
|
|
protocol family (IPv4, IPv6) automatically. Passing the protocol
|
|
family to TQSocketDevice's constructor or to setSocket() forces
|
|
creation of a socket device of a specific protocol. If not set, the
|
|
protocol will be detected at the first call to connect() or bind().
|
|
|
|
\sa TQSocket, TQSocketNotifier, TQHostAddress
|
|
*/
|
|
|
|
|
|
/*!
|
|
\enum TQSocketDevice::Protocol
|
|
|
|
This enum type describes the protocol family of the socket. Possible values
|
|
are:
|
|
|
|
\value IPv4 The socket is an IPv4 socket.
|
|
\value IPv6 The socket is an IPv6 socket.
|
|
\value Unknown The protocol family of the socket is not known. This can
|
|
happen if you use TQSocketDevice with an already existing socket; it
|
|
tries to determine the protocol family, but this can fail if the
|
|
protocol family is not known to TQSocketDevice.
|
|
|
|
\sa protocol() setSocket()
|
|
*/
|
|
|
|
/*!
|
|
\enum TQSocketDevice::Error
|
|
|
|
This enum type describes the error states of TQSocketDevice.
|
|
|
|
\value NoError No error has occurred.
|
|
|
|
\value AlreadyBound The device is already bound, according to bind().
|
|
|
|
\value Inaccessible The operating system or firewall prohibited
|
|
the action.
|
|
|
|
\value NoResources The operating system ran out of a resource.
|
|
|
|
\value InternalError An internal error occurred in TQSocketDevice.
|
|
|
|
\value Impossible An attempt was made to do something which makes
|
|
no sense. For example:
|
|
\code
|
|
::close( sd->socket() );
|
|
sd->writeBlock( someData, 42 );
|
|
\endcode
|
|
The libc ::close() closes the socket, but TQSocketDevice is not aware
|
|
of this. So when you call writeBlock(), the impossible happens.
|
|
|
|
\value NoFiles The operating system will not let TQSocketDevice open
|
|
another file.
|
|
|
|
\value ConnectionRefused A connection attempt was rejected by the
|
|
peer.
|
|
|
|
\value NetworkFailure There is a network failure.
|
|
|
|
\value UnknownError The operating system did something
|
|
unexpected.
|
|
*/
|
|
|
|
/*!
|
|
\enum TQSocketDevice::Type
|
|
|
|
This enum type describes the type of the socket:
|
|
\value Stream a stream socket (TCP, usually)
|
|
\value Datagram a datagram socket (UDP, usually)
|
|
*/
|
|
|
|
|
|
/*!
|
|
Creates a TQSocketDevice object for the existing socket \a socket.
|
|
|
|
The \a type argument must match the actual socket type; use \c
|
|
TQSocketDevice::Stream for a reliable, connection-oriented TCP
|
|
socket, or \c TQSocketDevice::Datagram for an unreliable,
|
|
connectionless UDP socket.
|
|
*/
|
|
TQSocketDevice::TQSocketDevice( int socket, Type type )
|
|
: fd( socket ), t( type ), p( 0 ), pp( 0 ), e( NoError ),
|
|
d(new TQSocketDevicePrivate(Unknown))
|
|
{
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice: Created TQSocketDevice %p (socket %x, type %d)",
|
|
this, socket, type );
|
|
#endif
|
|
init();
|
|
setSocket( socket, type );
|
|
}
|
|
|
|
/*!
|
|
Creates a TQSocketDevice object for a stream or datagram socket.
|
|
|
|
The \a type argument must be either \c TQSocketDevice::Stream for a
|
|
reliable, connection-oriented TCP socket, or \c
|
|
TQSocketDevice::Datagram for an unreliable UDP socket.
|
|
|
|
The socket is created as an IPv4 socket.
|
|
|
|
\sa blocking() protocol()
|
|
*/
|
|
TQSocketDevice::TQSocketDevice( Type type )
|
|
: fd( -1 ), t( type ), p( 0 ), pp( 0 ), e( NoError ),
|
|
d(new TQSocketDevicePrivate(IPv4))
|
|
{
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice: Created TQSocketDevice object %p, type %d",
|
|
this, type );
|
|
#endif
|
|
init();
|
|
setSocket( createNewSocket(), type );
|
|
}
|
|
|
|
/*!
|
|
Creates a TQSocketDevice object for a stream or datagram socket.
|
|
|
|
The \a type argument must be either \c TQSocketDevice::Stream for a
|
|
reliable, connection-oriented TCP socket, or \c
|
|
TQSocketDevice::Datagram for an unreliable UDP socket.
|
|
|
|
The \a protocol indicates whether the socket should be of type IPv4
|
|
or IPv6. Passing \c Unknown is not meaningful in this context and you
|
|
should avoid using (it creates an IPv4 socket, but your code is not easily
|
|
readable).
|
|
|
|
The argument \a dummy is necessary for compatibility with some
|
|
compilers.
|
|
|
|
\sa blocking() protocol()
|
|
*/
|
|
TQSocketDevice::TQSocketDevice( Type type, Protocol protocol, int )
|
|
: fd( -1 ), t( type ), p( 0 ), pp( 0 ), e( NoError ),
|
|
d(new TQSocketDevicePrivate(protocol))
|
|
{
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice: Created TQSocketDevice object %p, type %d",
|
|
this, type );
|
|
#endif
|
|
init();
|
|
setSocket( createNewSocket(), type );
|
|
}
|
|
|
|
/*!
|
|
Destroys the socket device and closes the socket if it is open.
|
|
*/
|
|
TQSocketDevice::~TQSocketDevice()
|
|
{
|
|
close();
|
|
delete d;
|
|
d = 0;
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice: Destroyed TQSocketDevice %p", this );
|
|
#endif
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns TRUE if this is a valid socket; otherwise returns FALSE.
|
|
|
|
\sa socket()
|
|
*/
|
|
bool TQSocketDevice::isValid() const
|
|
{
|
|
return fd != -1;
|
|
}
|
|
|
|
|
|
/*!
|
|
\fn Type TQSocketDevice::type() const
|
|
|
|
Returns the socket type which is either \c TQSocketDevice::Stream
|
|
or \c TQSocketDevice::Datagram.
|
|
|
|
\sa socket()
|
|
*/
|
|
TQSocketDevice::Type TQSocketDevice::type() const
|
|
{
|
|
return t;
|
|
}
|
|
|
|
/*!
|
|
Returns the socket's protocol family, which is one of \c Unknown, \c IPv4,
|
|
or \c IPv6.
|
|
|
|
TQSocketDevice either creates a socket with a well known protocol family or
|
|
it uses an already existing socket. In the first case, this function
|
|
returns the protocol family it was constructed with. In the second case, it
|
|
tries to determine the protocol family of the socket; if this fails, it
|
|
returns \c Unknown.
|
|
|
|
\sa Protocol setSocket()
|
|
*/
|
|
TQSocketDevice::Protocol TQSocketDevice::protocol() const
|
|
{
|
|
if ( d->protocol == Unknown )
|
|
d->protocol = getProtocol();
|
|
return d->protocol;
|
|
}
|
|
|
|
/*!
|
|
Returns the socket number, or -1 if it is an invalid socket.
|
|
|
|
\sa isValid(), type()
|
|
*/
|
|
int TQSocketDevice::socket() const
|
|
{
|
|
return fd;
|
|
}
|
|
|
|
|
|
/*!
|
|
Sets the socket device to operate on the existing socket \a
|
|
socket.
|
|
|
|
The \a type argument must match the actual socket type; use \c
|
|
TQSocketDevice::Stream for a reliable, connection-oriented TCP
|
|
socket, or \c TQSocketDevice::Datagram for an unreliable,
|
|
connectionless UDP socket.
|
|
|
|
Any existing socket is closed.
|
|
|
|
\sa isValid(), close()
|
|
*/
|
|
void TQSocketDevice::setSocket( int socket, Type type )
|
|
{
|
|
if ( fd != -1 ) // close any open socket
|
|
close();
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice::setSocket: socket %x, type %d", socket, type );
|
|
#endif
|
|
t = type;
|
|
fd = socket;
|
|
d->protocol = Unknown;
|
|
e = NoError;
|
|
setFlags( IO_Sequential );
|
|
resetStatus();
|
|
open( IO_ReadWrite );
|
|
fetchConnectionParameters();
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
Opens the socket using the specified TQIODevice file \a mode. This
|
|
function is called from the TQSocketDevice constructors and from
|
|
the setSocket() function. You should not call it yourself.
|
|
|
|
\sa close().
|
|
*/
|
|
bool TQSocketDevice::open( int mode )
|
|
{
|
|
if ( isOpen() || !isValid() )
|
|
return FALSE;
|
|
#if defined(TQSOCKETDEVICE_DEBUG)
|
|
tqDebug( "TQSocketDevice::open: mode %x", mode );
|
|
#endif
|
|
setMode( mode & IO_ReadWrite );
|
|
setState( IO_Open );
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
The current TQSocketDevice implementation does not buffer at all,
|
|
so this is a no-op.
|
|
*/
|
|
void TQSocketDevice::flush()
|
|
{
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
The size is meaningless for a socket, therefore this function returns 0.
|
|
*/
|
|
TQIODevice::Offset TQSocketDevice::size() const
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
The read/write index is meaningless for a socket, therefore this
|
|
function returns 0.
|
|
*/
|
|
TQIODevice::Offset TQSocketDevice::at() const
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
The read/write index is meaningless for a socket, therefore this
|
|
function does nothing and returns TRUE.
|
|
*/
|
|
bool TQSocketDevice::at( Offset )
|
|
{
|
|
return TRUE;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
Returns TRUE if no data is currently available at the socket;
|
|
otherwise returns FALSE.
|
|
*/
|
|
bool TQSocketDevice::atEnd() const
|
|
{
|
|
return bytesAvailable() <= 0;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
\warning getch() is implemented as a one-byte readBlock(), so it
|
|
may be very slow if you call it more than a few times.
|
|
|
|
\sa putch() readBlock()
|
|
*/
|
|
int TQSocketDevice::getch()
|
|
{
|
|
char buf[2];
|
|
return readBlock(buf,1) == 1 ? buf[0] : -1;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
\warning putch() is implemented as a one-byte writeBlock(), so it
|
|
may be very slow if you call it more than a few times.
|
|
|
|
\sa getch()
|
|
*/
|
|
int TQSocketDevice::putch( int ch )
|
|
{
|
|
char buf[2];
|
|
buf[0] = ch;
|
|
return writeBlock(buf, 1) == 1 ? ch : -1;
|
|
}
|
|
|
|
|
|
/*!
|
|
\reimp
|
|
|
|
This implementation of ungetch returns -1 (error). A socket is a
|
|
sequential device and does not allow any ungetch operation.
|
|
*/
|
|
int TQSocketDevice::ungetch( int )
|
|
{
|
|
return -1;
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns TRUE if the address of this socket can be used by other
|
|
sockets at the same time, and FALSE if this socket claims
|
|
exclusive ownership.
|
|
|
|
\sa setAddressReusable()
|
|
*/
|
|
bool TQSocketDevice::addressReusable() const
|
|
{
|
|
return option( ReuseAddress );
|
|
}
|
|
|
|
|
|
/*!
|
|
Sets the address of this socket to be usable by other sockets too
|
|
if \a enable is TRUE, and to be used exclusively by this socket if
|
|
\a enable is FALSE.
|
|
|
|
When a socket is reusable, other sockets can use the same port
|
|
number (and IP address), which is generally useful. Of course
|
|
other sockets cannot use the same
|
|
(address,port,peer-address,peer-port) 4-tuple as this socket, so
|
|
there is no risk of confusing the two TCP connections.
|
|
|
|
\sa addressReusable()
|
|
*/
|
|
void TQSocketDevice::setAddressReusable( bool enable )
|
|
{
|
|
setOption( ReuseAddress, enable );
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns the size of the operating system receive buffer.
|
|
|
|
\sa setReceiveBufferSize()
|
|
*/
|
|
int TQSocketDevice::receiveBufferSize() const
|
|
{
|
|
return option( ReceiveBuffer );
|
|
}
|
|
|
|
|
|
/*!
|
|
Sets the size of the operating system receive buffer to \a size.
|
|
|
|
The operating system receive buffer size effectively limits two
|
|
things: how much data can be in transit at any one moment, and how
|
|
much data can be received in one iteration of the main event loop.
|
|
|
|
The default is operating system-dependent. A socket that receives
|
|
large amounts of data is probably best with a buffer size of
|
|
49152.
|
|
*/
|
|
void TQSocketDevice::setReceiveBufferSize( uint size )
|
|
{
|
|
setOption( ReceiveBuffer, size );
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns the size of the operating system send buffer.
|
|
|
|
\sa setSendBufferSize()
|
|
*/
|
|
int TQSocketDevice::sendBufferSize() const
|
|
{
|
|
return option( SendBuffer );
|
|
}
|
|
|
|
|
|
/*!
|
|
Sets the size of the operating system send buffer to \a size.
|
|
|
|
The operating system send buffer size effectively limits how much
|
|
data can be in transit at any one moment.
|
|
|
|
The default is operating system-dependent. A socket that sends
|
|
large amounts of data is probably best with a buffer size of
|
|
49152.
|
|
*/
|
|
void TQSocketDevice::setSendBufferSize( uint size )
|
|
{
|
|
setOption( SendBuffer, size );
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns the port number of this socket device. This may be 0 for a
|
|
while, but is set to something sensible as soon as a sensible
|
|
value is available.
|
|
|
|
Note that TQt always uses native byte order, i.e. 67 is 67 in TQt;
|
|
there is no need to call htons().
|
|
*/
|
|
TQ_UINT16 TQSocketDevice::port() const
|
|
{
|
|
return p;
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns the address of this socket device. This may be 0.0.0.0 for
|
|
a while, but is set to something sensible as soon as a sensible
|
|
value is available.
|
|
*/
|
|
TQHostAddress TQSocketDevice::address() const
|
|
{
|
|
return a;
|
|
}
|
|
|
|
|
|
/*!
|
|
Returns the first error seen.
|
|
*/
|
|
TQSocketDevice::Error TQSocketDevice::error() const
|
|
{
|
|
return e;
|
|
}
|
|
|
|
|
|
/*!
|
|
Allows subclasses to set the error state to \a err.
|
|
*/
|
|
void TQSocketDevice::setError( Error err )
|
|
{
|
|
e = err;
|
|
}
|
|
#endif //TQT_NO_NETWORK
|
|
|