Opened by popcorn5 at 2005-10-17 19:26
User since
2003-09-24
60 Artikel
BenutzerIn
![[default_avatar]](/battie/theme/default/default_avatar.gif)
2003-09-24
60 Artikel
BenutzerIn
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:
das ist die kurzfassung, ist aber alles relevante dabei.
vielleicht fällt jemandem was ein, danke
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
)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
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