IOStream ReadAvail() ?

BlitzMax Forums/BlitzMax Programming/IOStream ReadAvail() ?

Hezkore

(Posted 2013) [#1]

I'm trying to read brl.standardio.StandardIOStream with ReadLine() and it's working just fine, except for the fact that the whole application pauses until there actually is something to read.
So basically I'm in need for ReadAvail() in brl.standardio.StandardIOStream, anyone know a solution for this?

GfK	(Posted 2013) [#2]

I presume you're trying to read a file from a remote server?

SocketReadAvail() is probably what you need, but if you're not using sockets already then you'll need to do a little work to convert your current code. 'Fraid I don't know the ins and outs of sockets to be offering a code example, though.

Hezkore

(Posted 2013) [#3]

It's actually from the standard IO stream I'm trying to read, nothing network related.
I'm starting this application via TFreeProcess and writes to its pipe, and now I'm trying to read it in the launched app via brl.standardio.StandardIOStream.ReadLine() but it halts until there is something to read.

Last edited 2013

Henri

(Posted 2013) [#4]

Hello,

I have something of the sort. Modify it to suit your needs

Function startProcess:Int(command:String,id:String="<NULL>")	
	
	Const TIMEOUT_LIMIT:Int = 300
	Local timeout:Int
	
	DebugLog "Command="+command
	If command = "" Then Notify "Error: Command is empty",True ; Return
	
	Local process:TProcess = CreateProcess(command,1)
	
	While process.Status() = 1	'While process is working
		Local s:String
	
		If Process.pipe.ReadAvail() > 0 Then	'If the pipe has data
			'StandardIOStream.WriteString(process.pipe.ReadString(process.pipe.ReadAvail()))	'We send the data as text to the standardiostream
			s = process.pipe.ReadString(process.pipe.ReadAvail())
			'lineerro:String = process.err.ReadString().Trim()
			'StandardIOStream.Flush()  'We flush the stream
		End If	
		Delay(10)
		PollSystem()
		timeout:+1
		
		If timeout > TIMEOUT_LIMIT
			If Confirm("Process seems to be taking a long time to finish~nDo you wan't to skip file ~q"+id+"~q ?",True)
				Return False
			Else
				timeout = 0
			EndIf
		EndIf
	Wend
	
	Return True

End Function

-Henri

Last edited 2013