XProfan

Français

Klemens
Funke

allô Profaner

je besoin un simple Programmierbeispiel comment je mittels PIPE.PCU
données entre deux ou bien trois Profanprogrammen austauschen peux.
qui Datenaustausch sollte dans beide Richtungen possible son
malheureusement fonctionne cela Beispielprogramm aus dem Télécharger pas sur meinem calculateur.
(WIN XP 1,8Ghz/AMD)

là je avec dem PreCompiler XPE pas du tout vertraut suis ,sollte cela Programme
avec XProfan courir son

Salut

Klemens

14.08.2006 ▲

Vollständiges citation

Absatzweise Citation Zeilenweise Citation

Kompilieren Marque Séparation

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 Marque Séparation

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