FiveTech Support Forums

// exe_1.exe

Function Main1()
    local aArray1 := winexec("exe_2.exe",3)
    msginfo(aArray[1]+"   "+aArray[2])
Return nil

// exe_2.exe

Function Main2()
    local aArray2:={"data1","data2"}
Return aArray2

Static Function SaveArr2File( A_, cFilNam )
Local Success := .F., Handle := Fcreate( cFilNam )
If Handle != -1
    Success := ElementOut( Handle, A_ )
    Fclose( Handle )
EndIf
Return( Success )
*----*
Function ElementOut( Handle, A_ )
Local Success := .T., i, Buffer, Cnt := Len( A_ )
Fwrite( Handle, I2Bin( Cnt ) )
For i =1To Cnt
    If ( A_[i] = NIL ) .OR. ( ValType( A_[i] ) = "B" )
        Buffer := "Z" + I2Bin(1) + "Z"
    Else
        Buffer := ValType( A_[i] )
        Do Case
            Case Buffer = "C"
                Buffer += I2Bin( Len( A_[i] ) )
                Buffer += A_[i]
            Case Buffer = "D"
                Buffer += I2Bin(8)
                Buffer += DtoC( A_[i] )
            Case Buffer = "L"
                Buffer += I2Bin(1)
                Buffer += If( A_[i], "T", "F" )
            Case Buffer = "N"
                Buffer += I2Bin( Len( Ltrim( Str( A_[i] ) ) ) )
                Buffer += Ltrim( Str( A_[i] ) )
        OtherWise
        EndCase
    EndIf
    If Fwrite( Handle, Buffer, Len( Buffer) ) != Len( Buffer )
        Success := .F.
        Exit
    EndIf
    If Left( Buffer,1) == "A"
        ElementOut( Handle, A_[i] )
    EndIf
Next i
Return( Success )
*----*

Static Function RestArr2Mem( cFilNam )
Local Handle, A_ := {}
If ( Handle := Fopen( cFilNam ) ) != -1
     ElementIn( Handle, A_ )
EndIf
Fclose( Handle )
Return( A_ )
*----*
Static Function ElementIn( Handle, A_ )
Local Buffer, i, Cnt, iLen, iType
Buffer := Space( 2 )
If Fread( Handle, @Buffer, 2 ) = 2
    Cnt := Bin2w( Buffer )
    For i = 1 To Cnt
        If ( iType := FreadStr( Handle, 1 ) ) = "A"
            AaDd( A_, {} )
            ElementIn( Handle, A_[ Len( A_ ) ] )
        Else
            Buffer := Space( 2 )
            If Fread( Handle, @Buffer, 2 ) = 2
                iLen := Bin2w( Buffer )
                Buffer := Space( iLen )
                If Fread( Handle, @Buffer, iLen ) = iLen
                    Do Case
                        Case ( iType = "B") .OR. ( iType = "Z" )
                            AaDd( A_, NIL )
                        Case iType = "C"
                            AaDd( A_, Buffer )
                        Case iType = "D"
                            AaDd( A_, CtoD( Buffer ) )
                        Case iType = "L"
                            AaDd( A_, ( Buffer == "T" ) )
                        Case iType = "N"
                            AaDd( A_, Val( Buffer ) )
                    EndCase
                EndIf
            EndIf
        EndIf
    Next i
EndIf
Return( NIL )
*----*