Posted: Tue Jul 10, 2001 5:19 pm
Restored from previous forum. Originally posted by wavemaker.
Hello:
I wrote this program trying to get the STDIN string to write a CGI program -handling forms data, etc.- in PB Windows, but I can't even get SetConsoleMode_ working. Any help?
InitWindow(0)
temporal.s = " "
numero.l = 0
If OpenWindow(0, 100, 100, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")
resultado = GetStdHandle_(#STD_INPUT_HANDLE)
If SetConsoleMode_(resultado,#ENABLE_LINE_INPUT | #ENABLE_ECHO_INPUT | #ENABLE_PROCESSED_INPUT)
Repeat
EventID.l = WaitWindowEvent()
If ReadConsoleInput_(resultado,@temporal,1000,@numero)
MessageRequester("Stdin:",temporal,0)
EndIf
If EventID = #PB_EventCloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
EndIf
End
Thanks
Juan Calderón Alonso
Registered user
Hello:
I wrote this program trying to get the STDIN string to write a CGI program -handling forms data, etc.- in PB Windows, but I can't even get SetConsoleMode_ working. Any help?
InitWindow(0)
temporal.s = " "
numero.l = 0
If OpenWindow(0, 100, 100, 195, 260, #PB_Window_SystemMenu | #PB_Window_MinimizeGadget | #PB_Window_MaximizeGadget, "PureBasic Window")
resultado = GetStdHandle_(#STD_INPUT_HANDLE)
If SetConsoleMode_(resultado,#ENABLE_LINE_INPUT | #ENABLE_ECHO_INPUT | #ENABLE_PROCESSED_INPUT)
Repeat
EventID.l = WaitWindowEvent()
If ReadConsoleInput_(resultado,@temporal,1000,@numero)
MessageRequester("Stdin:",temporal,0)
EndIf
If EventID = #PB_EventCloseWindow
Quit = 1
EndIf
Until Quit = 1
EndIf
EndIf
End
Thanks
Juan Calderón Alonso
Registered user