XProfan

Español

Klemens
Funke

¡Hola Profaner

Yo necesidad una einfaches Programmierbeispiel Yo mittels PIPE.PCU
Daten zwischen zwei oder drei Profanprogrammen austauschen kann.
Der Datenaustausch debería en beide Richtungen posible ser
Leider se ejecuta el Beispielprogramm de el Descargar no en mi Rechner.
(WIN XP 1,8Ghz/AMD)

Desde que con el PreCompiler XPE überhaupt no vertraut bin ,debería el Programa
con XProfan lauffähig ser

Saludo

Klemens

14.08.2006 ▲

Vollständiges Zitat

Absatzweise Cita Zeilenweise Cita

Kompilieren Marca Separación

server
DECLARE H&,A&
 $U PIPE.PCU=PIPE.
 $U THREAD.PCU=THREAD.
DECIMALS 0
A&=0
H&=PIPE.CREATE("test")

IF (H&)

    WINDOWSTYLE ( 512 | 8 )
    CLS
    THREAD.START 1

    WHILENOT %KEY=2

        WAITINPUT

    WEND

    THREAD.STOP 1

ELSE

    ERRORING "Problem during pipecreating"

ENDIF

END

PROC ERRORING

    PARAMETERS S$
    MESSAGEBOX S$,"",4096

ENDPROC

PROC THREAD.DO

    PARAMETERS N&

    IF N&=1

        IFNOT PIPE.STACK(H&)

            PIPE.PUSH H&,"shake|"+STR$(A&)
            INC A&
            SETTEXT %HWND,"shake "+STR$(A&)

        ENDIF

    ENDIF

ENDPROC

Kompilieren Marca Separación

client
DECLARE H&,A&
 $U PIPE.PCU=PIPE.
 $U THREAD.PCU=THREAD.
H&=PIPE.OPEN("test")
A&=0

IF (H&)

    WINDOWSTYLE ( 512 | 8 )
    CLS
    THREAD.START 1

    WHILENOT %KEY=2

        WAITINPUT

    WEND

    THREAD.STOP 1

ELSE

    ERRORING "Pipe not found."

ENDIF

FIN

PROC ERRORING

    PARAMETERS S$
    MESSAGEBOX S$,"",4096

ENDPROC

PROC THREAD.DO

    PARAMETERS N&

    IF N&=1

        IF PIPE.STACK(H&)

            SETTEXT %HWND,"Hand "+STR$(A&)+" "+PIPE.POP(H&)
            INC A&

        ELSE

            SETTEXT %HWND,STR$(&GETTICKCOUNT)

        ENDIF

    ENDIF

ENDPROC