Sign in to follow this  
Followers 0
Uten

Demo: Stdin, Stdout Io Between Parent And Child Processes

1 post in this topic

This script is supposed to be a working sample of communication through stdin and stdout between parent and child processes.

If you want to run the child as a script sample you have to compile this IOChatter to a a3x file.

You can run this sample directly from scite with ALT+F5

The script is attached below.

; FILENAME: IOChatter.au3
; PURPOSE: Demonstrate usage of stdin and stdout communication between 
;         Parent and child process in AutoIt.
;         This is demonstrated through this simple chat script.
;         The script was created and tested on: @AutoItVersion:= 3.1.1.116
; 
; CREATED BY: Uten: http://www.autoitscript.com/forum/index.php?showuser=7836
;
#include <GuiConstants.au3>
#include <constants.au3>

dim $a3x = "IOChatter.a3x"
Dim $gChildPid
Dim $gParent = 0
Dim $data
Dim $GUI_Handle = GuiCreate("IO chat Base", 426, 251,(@DesktopWidth-426)/2, _
                                                    (@DesktopHeight-251)/2)

Dim $input1 = GuiCtrlCreateInput("Message from", 10, 10, 350, 20)
Dim $edit1 = GuiCtrlCreateEdit("Started: " & @HOUR & ":" & @Min & ":" & @SEC , 10, 40, 350, 180)
Dim $label1 = GUICtrlCreateLabel("INIT: ", 10,222, 350, 28)
Dim $buttonSend = GuiCtrlCreateButton("Send", 370, 10, 50, 30)
DIm $checkRunIntern = GUICtrlCreateCheckbox("Script", 370, 45, 50, 30)
GUICtrlSetTip($checkRunIntern, "If checked the childe will be started with:" & _
                @CRLF & "   @AutoitExe /AutoIt3ExecuteScript " & $a3x)
Dim $buttonRunChild = GuiCtrlCreateButton("Run Child", 370, 80, 50, 30)


GuiSetState()
While 1
    $msg = GuiGetMsg()
    Switch $msg
        case $GUI_EVENT_CLOSE
            ExitLoop
        case $buttonSend
            buttonSend_Event()
        case $buttonRunChild
            buttonRunChild_Event()
        Case Else
        ;Read IO
            $data = ReadIO($gChildPid)
            if $data <> "" Then 
                GUICtrlSetData($edit1, (GUICtrlRead($edit1) & @CRLF &  $data))
            Endif
            sleep(50)
    EndSwitch
WEnd
Exit 
; ============================================
Func buttonRunChild_Event()
    $gParent = 1
    if GUICtrlRead($checkRunIntern) = $GUI_CHECKED Then 
        if FileExists(@AutoItExe) AND FileExists(@ScriptDir &  "\" & $a3x) Then 
            LogMsg("cmd run( " & @AutoItExe & " /AutoIt3ExecuteScript " & _
                    @ScriptDir &  "\" & $a3x & ")")
            $gChildPid = run(@AutoItExe & " /AutoIt3ExecuteScript " & @ScriptDir &  _
                    "\" & $a3x, '', _
                    @SW_SHOW,  $STDOUT_CHILD + $STDIN_CHILD);$STDERR_CHILD +
        Else
        ; Give error message, this is not suposed to happen
            msgbox(16, "ERROR:", "could not locate: " & @CRLF & @AutoItExe & _
                " OR " & @CRLF & _
                @ScriptDir &  "\" & $a3x & @CRLF & @CRLF & _
                "Did jo remember to compile the " &  $a3x & " file??")
        Endif
    Else
        If @Compiled Then 
            LogMsg("Running: " & @AutoItExe)
            $gChildPid = run(@AutoItExe,"",@SW_SHOW,  $STDOUT_CHILD + $STDIN_CHILD) 
        ; $STDERR_CHILD nit handeled
        Else 
            $gChildPid = run(@AutoItExe & " " & @ScriptFullPath,"",@SW_SHOW,  $STDOUT_CHILD + $STDIN_CHILD) 
        endif 
    EndIf
EndFunc

Func buttonSend_Event()
    WriteIO($gChildPid, GUICtrlRead($input1))
EndFunc 
; ===========================================
; Read from the IO stream between the processes
; ============================================
Func ReadIO($childPid)
    Local $bytes 
    Local $data = ""
; Determine if we are a master or a child
    If $childPid <> 0 Then 
    ; Peek to see how many bytes to read
        $bytes = StdoutRead($childPid,'',true )
        LogMsg(" NOTE: StdoutRead returned $bytes:=" & $bytes )                 
        if $bytes > 0 then 
        ; Read bytes in the stream
            $data = StdoutRead($childPid, $bytes)
        Endif
    Else
    ; Peek to see how many bytes to read
        $bytes = ConsoleRead( '', true)
        LogMsg(" NOTE: ConsoleRead returned $bytes:=" & $bytes )                    
        if $bytes > 0 then 
            $data = ConsoleRead($bytes)
        Endif
    ; Expect @error = -1; EOF or not set.
    EndIf
    If @error <> 0 then LogMsg( " ERROR: Read: @error:=" & @error &  _
                            "@ScriptLineNumber:=" & @ScriptLineNumber)      
    Return $data
EndFunc
; ======================================
; Write to the IO stream between the processes
; =======================================
Func WriteIO($childPid = 0, $data = "")
    Local $bytes
    if $data <> "" Then 
        If $childPid <> 0 Then 
        ; Peek to see how many bytes to read
            StdinWrite($childPid, $data)
        Else
            ConsoleWrite($data)
        EndIf   
        If @error <> 0 then 
            LogMsg(" ERROR: Write: @error:=" & @error &  _
                    "@ScriptLineNumber:=" & @ScriptLineNumber)
        Else
            LogMsg(" WARNING: Nothing to write")
        Endif
    EndIf
EndFunc 
Func LogMsg($msg)
        GUICtrlSetData($label1, @MIN & ":" & @SEC & $msg )
EndFunc

IOChatter.au3

Share this post


Link to post
Share on other sites



Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!


Register a new account

Sign in

Already have an account? Sign in here.


Sign In Now
Sign in to follow this  
Followers 0