XPSE

' Hauptprogramm

Declare hFileMap&
Declare Austauschpuffer#
Dim Austauschpuffer#, 1000

' der Tauschpuffer wird unter dem Namen "Tauscher" schon vor den Prozessen angelegt.
hFileMap& = Create("FileMap", "Tauscher", 1000)
' Austauschdatei mit Puffer verbinden
Austauschpuffer# = FileMap("Map", hFileMap&)
' Daten hinein
String Austauschpuffer#,0 = "Init"
' und zu
FileMap("Close", hFileMap&)


' Dann werden Prozesse gestartet, die auch nProcs beinhalten können
Shell "prozesse.exe  -p1"
'Shell "prozesse.exe  -p2 -p3"

' dann wird eine Schleife aufgebaut und darin das Senden und Empfangen gesteuert.
Cls


While 1
   Case Abbruchkriterium% : BREAK
   If DatenEmpfangen%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      Print "Empfang: "; String$(Austauschpuffer#,0)
      FileMap("Close", hFileMap&)
   EndIf
   If DatenSenden%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      String Austauschpuffer#,0 = "Init"
      FileMap("Close", hFileMap&)
   EndIf
EndWhile
Dispose Austauschpuffer#
End

' prozesse

' die Parameter verarbeiten
Declare p$, p1%, p2%, p3%
p1% = 0
p2% = 0
p3% = 0
WhileLoop 0, %ParCount
   p$ = Par$(&Loop)
   Case Upper(p$) = "-P1" : p1% = 1
   Case Upper(p$) = "-P2" : p2% = 1
   Case Upper(p$) = "-P3" : p3% = 1
EndWhile

' ........Beispiel nur mit einem Prozess........

' einen Puffer aufbauen
Declare hFM&
Declare Puffer#
Dim Puffer#, 1000

Declare Daten$

hFM& = FileMap("Open", "Tauscher")
Puffer# = FileMap("Map", hFM&)
// While 1
//    If Abbruchkriterium% : BREAK
//    ' Daten aufnehmen
//    String Puffer#,0 = nProc1() 'Daten zum Senden
// EndWhile

If p1%
   Daten$ = nProc1()
ElseIf p2%
   Daten$ = nProc2()
ElseIf p3%
   Daten$ = nProc3()
Else
   Daten$ = "Wenn Du keinen Prozess angibst, bekommst' auch keine Daten."
EndProc
String Puffer#,0 = Daten$   ' Daten zum Senden
FileMap("Close", hFM&)

nProc proz1
' ...
EndProc

nProc proz2
' ...
EndProc

nProc proz3
' ...
EndProc

Dispose Puffer#
End