rs232 abfrage... leidiges thema (Allgemeines zu Perl)

[thread]7363[/thread]

rs232 abfrage... leidiges thema

popcorn5

2005-10-17 19:26

User since
2003-09-24
60 Artikel
BenutzerIn
[default_avatar]

hallo,

ich habe ein problem mit einer rs232 abfrage bei einer cnc-maschine etwas älteren baujahres. ich übermittele einen string an einen pc (rs232 9600 baud geht leider nicht schneller) und erwarte einen längeren text zurück. dieser text ist meist zwischen 1 und 60kb gross. mein problem liegt darin, dass mein script nicht wartet bis alles übermittelt wurde, sondern bricht vorher ab :(

mit der suche kam ich nicht weiter und die doku von win32:serialport bzw. API gab auch nicht viel her.
Uns sonst scheinen wohl alle leute ihre rs232 nur zur ansteuerung von lcd's zu nutzen :/

hier ein paar codeschnipsel:

Code: (dl )

my $ob = Win32::SerialPort->new ($port1) || die "Can't open $port1:$!";
$ob->baudrate (9600) || die "fail setting baudrate";
$ob->parity ("even") || die "fail setting parity";
$ob->databits (7) || die "fail setting databits";
$ob->stopbits (1) || die "fail setting stopbits";
$ob->handshake ("xoff") || die "fail setting handshake";
$ob->write_settings || die "no settings";

my $tx="L1234567890 -k .033 -0 -8.516,0 -7 .0025%\r";

$ob->write("$tx") or die ("Could not write to PC: $!");

sleep 3;

my $return;
$return = $ob->input;
undef $ob;

das ist die kurzfassung, ist aber alles relevante dabei.
vielleicht fällt jemandem was ein, danke

View all threads created 2005-10-17 19:26.