Hi Rich, You could try this:
100 rem ram1_test_bas
105 open#0,con_:cls#0
110 OPEN#4,'pipe_essai_100' :rem open named pipe
115 TestVar=2
120 PRINT #4;TestVar :rem send data to pipe
125 eX 'ram1_Double_bas',,#4 :rem or ex 'ram1_Double_obj',,#4 if qliberated
130 rem this works fine too: eX 'ram1_Double_bas' or ex 'ram1_Double_obj' if qliberated
135 rem open named pipe created in ram1_double_bas for input
140 open_in#3,pipe_retour :input#3,R
145 PRINT#0, testVar;' doubled =';R :rem close#4
150 PAUSE :rem pause should be avoided in compiled progs IIRC
100 rem ram1_double_bas 105 ChIN=0:ChOUT=1 110 open_in#chin,pipe_essai :rem open named pipe for input from test_bas 115 rem REPeat loop 120 INPUT #ChIN;value :rem fetch value in pipe 125 value=value*2 :r=value 130 open#ChOUT,pipe_retour:print#chout,r ::close#chout:stop 135 rem END REPeat loop
I hope I understood correctly what you are(were) trying to achieve. If not sorry for the disturbance.
FranÃois Van Emelen
Rich Mellor wrote:
Just for the record, I thought that my findings may be of some interest.
<snip>
_______________________________________________ QL-Users Mailing List http://www.q-v-d.demon.co.uk/smsqe.htm
