Class: Server

Inherits:
Qt::Dialog show all
Defined in:
ext/ruby/qtruby/examples/network/fortuneserver/server.rb

Overview

** ** Copyright © 2004-2006 Trolltech AS. All rights reserved. ** ** This file is part of the example classes of the Qt Toolkit. ** ** This file may be used under the terms of the GNU General Public ** License version 2.0 as published by the Free Software Foundation ** and appearing in the file LICENSE.GPL included in the packaging of ** this file. Please review the following information to ensure GNU ** General Public Licensing requirements will be met: ** www.trolltech.com/products/qt/opensource.html ** ** If you are unsure which license is appropriate for your use, please ** review the following information: ** www.trolltech.com/products/qt/licensing.html or contact the ** sales department at [email protected]. ** ** This file is provided AS IS with NO WARRANTY OF ANY KIND, INCLUDING THE ** WARRANTY OF DESIGN, MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE. **

** Translated to QtRuby by Richard Dale

Instance Method Summary collapse

Methods inherited from Qt::Dialog

#exec

Methods inherited from Qt::Base

#%, #&, #*, #**, #+, #-, #-@, #/, #<, #<<, #<=, #==, #>, #>=, #>>, #QCOMPARE, #QEXPECT_FAIL, #QFAIL, #QSKIP, #QTEST, #QVERIFY, #QVERIFY2, #QWARN, #^, ancestors, #is_a?, #methods, private_slots, #protected_methods, #public_methods, q_classinfo, q_signal, q_slot, signals, #singleton_methods, slots, #|, #~

Constructor Details

#initialize(parent = nil) ⇒ Server

Returns a new instance of Server.



30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
# File 'ext/ruby/qtruby/examples/network/fortuneserver/server.rb', line 30

def initialize(parent = nil)
    super(parent)
    @statusLabel = Qt::Label.new
    @quitButton = Qt::PushButton.new(tr("Quit"))
    @quitButton.autoDefault = false

    @tcpServer = Qt::TcpServer.new(self)
    if !@tcpServer.listen
        Qt::MessageBox.critical(self, tr("Fortune Server"),
            tr("Unable to start the server: %s." % @tcpServer.errorString))
        close()
        return
    end

    @statusLabel.text = tr("The server is running on port %d.\nRun the Fortune Client example now." %
                         @tcpServer.serverPort)

    @fortunes = []
    @fortunes << tr("You've been leading a dog's life. Stay off the furniture.") <<
             tr("You've got to think about tomorrow.") <<
             tr("You will be surprised by a loud noise.") <<
             tr("You will feel hungry again in another hour.") <<
             tr("You might have mail.") <<
             tr("You cannot kill time without injuring eternity.") <<
             tr("Computers are not intelligent. They only think they are.")

    connect(@quitButton, SIGNAL(:clicked), self, SLOT(:close))
    connect(@tcpServer, SIGNAL(:newConnection), self, SLOT(:sendFortune))

    buttonLayout = Qt::HBoxLayout.new do |b|
        b.addStretch(1)
        b.addWidget(@quitButton)
    end

    self.layout = Qt::VBoxLayout.new do |m|
        m.addWidget(@statusLabel)
        m.addLayout(buttonLayout)
    end

    self.windowTitle = tr("Fortune Server")
end

Instance Method Details

#sendFortune ⇒ Object 



72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
 
# File 'ext/ruby/qtruby/examples/network/fortuneserver/server.rb', line 72

def sendFortune
    block = Qt::ByteArray.new
    outf = Qt::DataStream.new(block, Qt::IODevice::WriteOnly)
    outf.version = Qt::DataStream::Qt_4_0
    outf << 0  # Write a 4 byte integer
    outf << @fortunes[rand(@fortunes.length)]
    outf.device.seek(0)
    outf << (block.length - 4)  # 4 bytes is the size of an integer

    clientConnection = @tcpServer.nextPendingConnection()
    connect(clientConnection, SIGNAL(:disconnected),
            clientConnection, SLOT(:deleteLater))

    clientConnection.write(block)
    clientConnection.disconnectFromHost
end