XProfan

English

Klemens
Funke

Hello Profaner

I need one simple Programmierbeispiel How I through PIPE.PCU
data between two or three Profanprogrammen replace can.
The Datenaustausch ought to in both directions possible his
unfortunately runs the Beispielprogramm from the Download not on my computer.
(WIN XP 1,8Ghz/AMD)

Since I with the PreCompiler XPE not at all intimate be ,ought to the program
with XProfan run his

Greeting

Klemens

08/14/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

Compile Mark Separation

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

Compile Mark Separation

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 hardship found."

ENDIF

END

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