1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
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
|
package Receiver;
use strict;
use warnings;
use QtCore4;
use QtGui4;
use QtNetwork4;
use QtCore4::isa qw( Qt::Dialog );
use QtCore4::slots
processPendingDatagrams => [];
sub statusLabel() {
return this->{statusLabel};
}
sub quitButton() {
return this->{quitButton};
}
sub udpSocket() {
return this->{udpSocket};
}
sub NEW
{
my ($class, $parent) = @_;
$class->SUPER::NEW($parent);
this->{statusLabel} = Qt::Label(this->tr('Listening for broadcasted messages'));
this->{quitButton} = Qt::PushButton(this->tr('&Quit'));
# [0]
this->{udpSocket} = Qt::UdpSocket(this);
this->udpSocket->bind(45454);
# [0]
# [1]
this->connect(this->udpSocket, SIGNAL 'readyRead()',
this, SLOT 'processPendingDatagrams()');
# [1]
this->connect(this->quitButton, SIGNAL 'clicked()', this, SLOT 'close()');
my $buttonLayout = Qt::HBoxLayout();
$buttonLayout->addStretch(1);
$buttonLayout->addWidget(this->quitButton);
$buttonLayout->addStretch(1);
my $mainLayout = Qt::VBoxLayout();
$mainLayout->addWidget(this->statusLabel);
$mainLayout->addLayout($buttonLayout);
this->setLayout($mainLayout);
this->setWindowTitle(this->tr('Broadcast Receiver'));
}
sub processPendingDatagrams
{
# [2]
while (this->udpSocket->hasPendingDatagrams()) {
my $datagram = '';
my $datagramSize = this->udpSocket->pendingDatagramSize();
this->udpSocket()->readDatagram(\$datagram, $datagramSize);
this->statusLabel->setText(sprintf this->tr('Received datagram: "%s"'),
$datagram);
}
# [2]
}
1;
|
