I have detected a disfonctionnements on previous version 6.01 and the last 6.02.
the bug is present on function ReadProgramError.
This code is functional on 6.01 and not functional on 6.02:err:
[C:/purebasic/svn/v5.80/Libraries/Process/Windows/ReadProgramError.c:29] NbAvailableBytes = 0
err:
[C:/purebasic/svn/v5.80/Libraries/Process/Windows/ReadProgramError.c:29] NbAvailableBytes = 0
err:
[C:/purebasic/svn/v5.80/Libraries/Process/Windows/ReadProgramError.c:29] NbAvailableBytes = 0
err:
Press any key to continue...
Code: Select all
Define timeout, Start, pid, RetSTD.s, RetERR.s, racine.s
timeout = 10
Start = Date() + timeout
racine = GetEnvironmentVariable("comspec")
If OpenConsole()
pid = RunProgram(racine, " /s /c dir *.*","" , #PB_Program_Hide | #PB_Program_Open | #PB_Program_Error | #PB_Program_Read)
While ProgramRunning(pid)
If AvailableProgramOutput(pid)
;RetSTD + ReadProgramString(pid) + Chr(13)
RetERR + ReadProgramError(pid) + Chr(13)
EndIf
;PrintN("std:" + RetSTD)
PrintN("err:" + RetERR)
If Date() > Start
Break
EndIf
Delay(100)
Wend
PrintN("Press any key to continue...")
While Inkey() = ""
Delay(10)
Wend
CloseConsole()
EndIf
Barjo.
// Moved from "Bugs - Windows" to "Coding Questions"; Subject adjusted (Kiffi)