XPSE

' Hauptprogramm

Declarar hFileMap&
Declarar Austauschpuffer#
Dim Austauschpuffer#, 1000

' el Tauschpuffer se bajo el Namen "Tauscher" ya antes el Prozessen creado.
hFileMap& = Crear("FileMap", "Tauscher", 1000)
' Austauschdatei con Puffer verbinden
Austauschpuffer# = FileMap("Map", hFileMap&)
' Daten hinein
String Austauschpuffer#,0 = "Init"
' y a
FileMap("Cerrar", hFileMap&)


' Dann voluntad Prozesse comenzó, el auch nProcs beinhalten puede
Shell "prozesse.exe  -p1"
'Shell "prozesse.exe  -p2 -p3"

' Luego se una Bucle aufgebaut y en él el Senden y Empfangen gesteuert.
Cls


Mientras que 1
   Case Abbruchkriterium% : BREAK
   If DatenEmpfangen%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      Imprimir "Empfang: "; String$(Austauschpuffer#,0)
      FileMap("Cerrar", hFileMap&)
   EndIf
   If DatenSenden%
      hFileMap& = FileMap("Open", "Tauscher")
      Austauschpuffer# = FileMap("Map", hFileMap&)
      String Austauschpuffer#,0 = "Init"
      FileMap("Cerrar", hFileMap&)
   EndIf
EndWhile
Disponer Austauschpuffer#
End

' prozesse

' el Parámetro verarbeiten
Declarar 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

' ........Ejemplo sólo una Prozess........

' una Puffer aufbauen
Declarar hFM&
Declarar Puffer#
Dim Puffer#, 1000

Declarar Daten$

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

If p1%
   Daten$ = nProc1()
ElseIf p2%
   Daten$ = nProc2()
ElseIf p3%
   Daten$ = nProc3()
Más
   Daten$ = "Si usted no Prozess angibst, bekommst' auch no Daten."
ENDPROC
String Puffer#,0 = Daten$   ' Datos Senden
FileMap("Cerrar", hFM&)

nProc proz1
' ...
ENDPROC

nProc proz2
' ...
ENDPROC

nProc proz3
' ...
ENDPROC

Disponer Puffer#
End