TProcess to slow?

The forum is locked. These are the original blitzbasic.com forums, kept so they can still be read. No new topics, replies or edits can be made here. To join in, head over to the Blitz3D+ forums.

MacSven

Yes i do. Here is the Codesample:

If ButtonState(erase)= True Then
SetButtonState(erase,False)
Process:TProcess = CreateProcess(AppDir$+"/MacAVR.app/contents/MacOS/avrdude -q -C"+avrconfig+" -c"+prog$[id]+" -p"+parta$[chip]+" -e")
While Process.Status()
If Process.err.ReadAvail() Or Process.pipe.ReadAvail() Then
linepipe = Process.pipe.ReadLine().Trim()
lineerro = Process.err.ReadLine().Trim()
If linepipe <> "" Then
AddTextAreaText(textarea , linepipe+Chr$(13))
EndIf
If lineerro <> "" Then
AddTextAreaText(textarea , lineerro+Chr$(13))
EndIf
EndIf
Wend
EndIf

If ButtonState(fusebit)=True Then
SetButtonState(fusebit,False)

' read efuse

fmode1="-Uefuse:r:"
filename$="-"
Process:TProcess = CreateProcess(AppDir$+"/MacAVR.app/contents/MacOS/avrdude -q -C"+avrconfig+" -c"+prog$[id]+" -p"+parta$[chip]+" "+fmode1+filename$+":h")
While Process.Status()
PollSystem()
If Process.err.ReadAvail() Or Process.pipe.ReadAvail() Then
linepipe = Process.pipe.ReadLine().Trim()
lineerro = Process.err.ReadLine().Trim()
If linepipe <> "" Then
Print linepipe
AddTextAreaText(textarea , linepipe+Chr$(13))
EndIf
If lineerro <> "" Then
Print lineerro
AddTextAreaText(textarea , lineerro+Chr$(13))
EndIf
EndIf
Wend

' read lfuse

fmode1="-Ulfuse:r:"
filename$="-"
Process:TProcess = CreateProcess(AppDir$+"/MacAVR.app/contents/MacOS/avrdude -q -C"+avrconfig+" -c"+prog$[id]+" -p"+parta$[chip]+" "+fmode1+filename$+":h")
While Process.Status()
PollSystem()
If Process.err.ReadAvail() Or Process.pipe.ReadAvail() Then
linepipe = Process.pipe.ReadLine().Trim()
lineerro = Process.err.ReadLine().Trim()
If linepipe <> "" Then
Print linepipe
AddTextAreaText(textarea , linepipe+Chr$(13))
EndIf
If lineerro <> "" Then
Print lineerro
AddTextAreaText(textarea , lineerro+Chr$(13))
EndIf
EndIf
Wend

' read hfuse

fmode1="-Uhfuse:r:"
filename$="-"
Process:TProcess = CreateProcess(AppDir$+"/MacAVR.app/contents/MacOS/avrdude -q -C"+avrconfig+" -c"+prog$[id]+" -p"+parta$[chip]+" "+fmode1+filename$+":h")
While Process.Status()
PollSystem()
If Process.err.ReadAvail() Or Process.pipe.ReadAvail() Then
linepipe = Process.pipe.ReadLine().Trim()
lineerro = Process.err.ReadLine().Trim()
If linepipe <> "" Then
Print linepipe
AddTextAreaText(textarea , linepipe+Chr$(13))
EndIf
If lineerro <> "" Then
Print lineerro
AddTextAreaText(textarea , lineerro+Chr$(13))
EndIf
EndIf
Wend

' read ffuse

fmode1="-Uffuse:r:"
filename$="-"
Process:TProcess = CreateProcess(AppDir$+"/MacAVR.app/contents/MacOS/avrdude -q -C"+avrconfig+" -c"+prog$[id]+" -p"+parta$[chip]+" "+fmode1+filename$+":h")
While Process.Status()
PollSystem()
If Process.err.ReadAvail() Or Process.pipe.ReadAvail() Then
linepipe = Process.pipe.ReadLine().Trim()
lineerro = Process.err.ReadLine().Trim()
If linepipe <> "" Then
AddTextAreaText(textarea , linepipe+Chr$(13))
Print linepipe
EndIf
If lineerro <> "" Then
AddTextAreaText(textarea , lineerro+Chr$(13))
Print lineerro
EndIf
EndIf
Wend
EndIf

Any idea?