XProfan

Italia

Klemens
Funke

Hallo Profaner

Ich benötige ein einfaches Programmierbeispiel wie ich mittels PIPE.PCU
Daten zwischen zwei oder drei Profanprogrammen austauschen kann.
Der Datenaustausch sollte in beide Richtungen possibile sein
Leider corre das Beispielprogramm aus dem Download nicht auf meinem Rechner.
(WIN XP 1,8Ghz/AMD)

Da ich mit dem PreCompiler XPE überhaupt nicht vertraut bin ,sollte das Programm
mit XProfan lauffähig sein

Saluto

Klemens

14.08.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

Kompilieren Markieren Separieren

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 Markieren Separieren

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

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