Opened by Gast at 2004-08-14 10:12
User since
2003-08-15
692 Artikel
BenutzerIn
![[Homepage]](/battie/theme/default/homepage.gif)
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-08-15
692 Artikel
BenutzerIn
So läuft's bei mir. Ich muß aber auch nur senden. Es war eine schwere Geburt. Deswegen habe ich auch die Fehlermeldungen so detailliert gemacht, daß ich noch 'nen Durchblick habe, was da wirklich passiert.
Ich denke mal, wenn es mal geht und mal nicht, liegt es vielleicht daran, daß irgendwelche Zeichen im Puffer liegen und Du so durcheinander kommst. Das passiert meist auch dann, wenn irgendwann ein BREAK erkannt wurde. Es könnte sein, daß Dir die Zeilen dann schon helfen.\n\n
<!--EDIT|steffenw|1092516678-->
Code: (dl
)
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
use Win32API::CommPort qw(:PARAM :STAT 0.19);
use Win32::SerialPort;
my $comm_port = 'COM1';
# serielle Schnittstelle initialisieren
my $serial_port = new Win32::SerialPort($comm_port) or do
{ log_write error => qq~Kann "$comm_port" nicht öffnen.~;
exit;
};
$serial_port->handshake('rts');
$serial_port->baudrate(9600);
$serial_port->databits(7);
$serial_port->parity('even');
$serial_port->parity_enable(1); # Paritätsprüfung einschalten
$serial_port->stopbits(2);
$serial_port->buffers(4096, 4096);
$serial_port->error_char(0xff); # zum Paritätsfehler erkennen
$serial_port->write_settings or do
{ log_write error => qq~Kann Settingdaten nicht zu "$comm_port" schreiben.~;
exit;
};
# alle Puffer löschen
$serial_port->purge_all;
$serial_port->reset_error;
# Portstatus
for (@nc_prog) # NC-Programme übertrage ich da
{ # Zeilenende formatieren
s/\n/\x0D\x0A\x0D/g;
my $start = time;
while (length $_)
{ my ($blocking_flags, $in_bytes, $out_bytes, $latch_error_flags) = $serial_port->status
or do
{ log_write error => qq~Portstatus "Status von $comm_port" konnte nicht gelesen werden.~;
exit;
};
if (time > $start + TIMEOUT_COM_T)
{ # Timeout
$blocking_flags & BM_fCtsHold and return qq~"$comm_port" blockiert: wartet wegen CTS.~;
$blocking_flags & BM_fDsrHold and return qq~"$comm_port" blockiert: wartet wegen DSR.~;
$blocking_flags & BM_fRlsdHold and return qq~"$comm_port" blockiert: wartet wegen Rlsd.~;
$blocking_flags & BM_fXoffHold and return qq~"$comm_port" blockiert: wartet wegen Xoff.~;
$blocking_flags & BM_fXoffSent and return qq~"$comm_port" blockiert: Xoff gesendet.~;
$blocking_flags & BM_fEof and return qq~"$comm_port" blockiert: Eof.~;
$blocking_flags & BM_fTxim and return qq~"$comm_port" blockiert: Txim.~;
$blocking_flags and return qq~"$comm_port" blockiert.~;
return "Konnte Daten nicht innerhalb von @{[TIMEOUT_COM_T]} s zur Maschine senden.";
}
$latch_error_flags & CE_RXOVER and return qq~RXOVER-Fehler: "$comm_port".~;
$latch_error_flags & CE_OVERRUN and return qq~OVERRUN-Fehler: "$comm_port".~;
$latch_error_flags & CE_TXFULL and return qq~TXFULL-Fehler: "$comm_port".~;
$latch_error_flags & CE_MODE and return qq~MODE-Fehler: "$comm_port".~;
$latch_error_flags & CE_RXPARITY and return qq~Paritäts-Fehler: "$comm_port".~;
$latch_error_flags & CE_FRAME and return qq~Frame-Fehler: "$comm_port".~;
$latch_error_flags & CE_BREAK and return qq~Break-Fehler: "$comm_port".~;
$latch_error_flags and return qq~Übertragungsfehler: "$comm_port".~;
# Timeoutzeit verstreichen lassen
redo if $blocking_flags;
# Daten senden und gesendete Anzahl abschneiden
substr $_, 0, $serial_port->write($_), '';
}
}
Ich denke mal, wenn es mal geht und mal nicht, liegt es vielleicht daran, daß irgendwelche Zeichen im Puffer liegen und Du so durcheinander kommst. Das passiert meist auch dann, wenn irgendwann ein BREAK erkannt wurde. Es könnte sein, daß Dir die Zeilen dann schon helfen.\n\n
<!--EDIT|steffenw|1092516678-->
$SIG{USER} = sub {love 'Perl' or die};