Receiving binary data via UDP

[bob-g4bby]

Hi Attila, How are you? I'm revisiting Punyforth with the help of the glossary I wrote, if you remember. I'm successful in sending binary data from Punyforth to a PC - the data is read by a LabVIEW program just fine:-

\ UDP sender - array example

-UDP
marker: -UDP

1024 constant: arraysize

arraysize array: myarray		\ an array of 32 bit 'longs'

: !myarray					( -- ) \ initialise mybuffer with random data
	arraysize 0 do
		random i myarray !
	loop
;

"BOB-PC" 	constant: SERVER_IP
8005		constant: SERVER_PORT

: UDPsender
SERVER_PORT SERVER_IP UDP netcon-connect
begin
	!myarray										\ fill the array with random data
	dup 0 myarray arraysize 4 * netcon-send-buf	\ start address + byte count
	50 ms
	readchar-nowait 27 =							\ send it again until ESC pressed
until
netcon-dispose
;

UDPsender

What I can't seem to do is receive the same binary data from the PC with this code:-

 \ NETCON load beforehand

-UDP
marker: -UDP

"192.168.1.3" 	constant: HOST
1024 constant: datasize
8000 constant: PORT
datasize array: data

: UDPreceiver

PORT HOST netcon-udp-server
begin
	dup datasize 4 * 0 data netcon-read
	print: 'received bytes: ' . cr
	10 ms
	readchar-nowait 27 =
until
netcon-dispose
;

UDPreceiver

netcon-read never seems to return? Is that the right word to use with binary data or does it only accept ascii?

I can successfully read ascii data from the PC, using this:-

\ NETCON load beforehand

-UDP
marker: -UDP

"192.168.1.3" 	constant: HOST
128 constant: datasize
8000 constant: PORT
datasize buffer: data

: UDPreceiver

PORT HOST netcon-udp-server
begin
	dup datasize data netcon-readln
	print: 'received bytes: ' . cr
	data type cr
	10 ms
	readchar-nowait 27 =
until
netcon-dispose
;

UDPreceiver