Ha, you can send data to the process like this.
Seems like you can do one or the other, but not both.
main.bmx:
process.bmx:
Seems like you can do one or the other, but not both.
main.bmx:
Type TMultiProcess Field process:TProcess Method ReceiveMessage() EndMethod Function Create:TMultiProcess(path$) Local multiprocess:TMultiProcess multiprocess=New TMultiProcess multiprocess.process=CreateProcess(path) If Not multiprocess.process Return Return multiprocess EndFunction Method Free() process.Close() process=Null EndMethod EndType Local multiprocess:TMultiProcess multiprocess=TMultiProcess.Create("process.exe") Delay 5000 For n=1 To 100 'If multiprocess.process.pipe.ReadAvail() 'Print String(multiprocess.process.pipe.ReadByte()) WriteByte multiprocess.process.pipe,100+n 'EndIf Next Delay 50000 End
process.bmx:
StandardIOStream=New TCStandardIO Local n Repeat 'StandardIOStream.WriteByte(n) n:+1 'If StandardIOStream.ReadAvail() Notify "Process: "+StandardIOStream.ReadByte() 'EndIf Forever