ReadProgramError() works in V6.01 but not in V6.02

[BarJo]

Hello a team,

I have detected a disfonctionnements on previous version 6.01 and the last 6.02.

the bug is present on function ReadProgramError.

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...

This code is functional on 6.01 and not functional on 6.02:

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)

[mk-soft]

Work here fine

PB: v6.02
OS: Windows 10 22H2

[fryquez]

You have to compile it as Console, to see that it prints "ReadProgramError.c:29] NbAvailableBytes = 0".

BTW: AvailableProgramOutput() only check the stdout pipe, there is no counterpart for stderr.
So AvailableProgramOutput() is useless, if one expects data for ReadProgramError().