XProfan

Hm hier habs veces zusammengepinselt, el debería para una erste Orientierung ausreichen:
Kompilieren Marca Separación

 {$cleq}
def $apptitle ClemensVorlage
cls
 $U pipe.pcu = pipe.
 $U thread.pcu = thread.
declare pipe&

if %parcount

    encode

else

    declare ex&
    app

endif

pipe.close pipe&
end

proc app

    print app
    case pipe.is(myClemensPipe) : error Pipe already exists, abort.
    pipe&:=pipe.create(myClemensPipe)
    declare fle$
    fle$:=dfokk.bmp
    casenot fileexists(fle$) : error File +fle$+ doesnt exist, abort.
    pipe.push pipe&,>+fle$
    shell par$(0)+ -
    thread.start 1,3
    usermessages 1

    whilenot ex&

        waitinput

    wend

    thread.stop 1
    print Tjoar fertig :P [taste]
    waitkey

endproc

proc encode

    print encoder
    casenot pipe.is(myClemensPipe) : error Pipe doesnt exists, abort.
    pipe&:=pipe.create(myClemensPipe)
    declare fle$
    fle$:=del$(pipe.pop(pipe&),1,1)
    casenot fileexists(fle$) : error File +fle$+ doesnt exist, abort.
    declare mem#,siz&
    siz&:=filesize(fle$)
    casenot siz& : error File +fle$+ is without content.
    print File: +fle$
    dim mem#,siz&
    blockread(fle$,mem#,0,siz&)
    declare i&,s$,c&
    for i&:=0 to siz& do begin
    c&+
    s$:=s$+.hexx(byte(mem#,i&))

    if c&>=512

        c&:=0
        pipe.push pipe&,<+s$
        s$:=

    endif

    end
    case len(s$) : pipe.push pipe&,<+s$
    pipe.push pipe&,.//bye

    proc .hexx

        parameters b&
        case b&<16 : return 0+hex$(b&)
        return hex$(b&)

    endproc

endproc

proc thread.do

    parameters n&
    declare s$
    s$:=mid$(pipe.get(pipe&),1,1)

    if n&==1

        if (s$==<)

            print pipe.pop(pipe&)

        elseif (s$==.)

            print done.
            ex&+
            sendmessage(%hwnd,1,0,0)

        endif

    endif

endproc

proc error

    parameters s$
    messagebox s$,$apptitle,0
    end

ENDPROC

Das Demo zeigt auch, el Usted sehrwohl auch mehere Prozesse beauftragen kannst, Usted Usted entonces aber auch una propio Protokoll schaffen musst a Inputs a koordinieren.

Clemens
Meier

Que el Pipe me está klar y una Threadid es para el Protokol con el eigenständigen Prozessen reserviert. Diese Prozesse debería permanent en el Hintergrund laufen. Via Pipe y una Handle pro Prozess verläuft el Kommunikation. Doch como es lo con el Prozessen incluso. Gibt lo Problemas, si yo el Prozess como oben angegeben aufrufe, also mehrere Profaninstanzen en el Speicher habe.

Oder se Yo más en una Aufruf como bajo [...]

bauen? Como se aber sólo una exe aufgerufen. Yo voluntad pero no verschiedene exe anbieten, pero möglichst como umbenannte prc-Archivos,

Also: mein Hauptprogramm heißt programm.exe
In diesem Programa voluntad zwei Prozesse comenzó
el una hieß prozess1.prc y fue zuvor umbenannt a p1.ttt. Dieses se con
programm.exe p1.ttt comenzó voluntad
el zweite hieß prozess2.prc y fue zuvor umbenannt a p2.ttt. Dieses se entonces con
programm.exe p2.ttt comenzó voluntad.
Beide Prozesse haben kein propio Ventana, lo son also auch no Fehlermeldungen oder Messages. Alles se via Protokol a el Hauptprogramm gemeldet, así dass dieses darauf reagieren kann, si nötig.

Gäbe lo así Problemas? Welches Verfahren es para el Aufruf el PRC-Archivos a empfehlen? Yo hoffe, mein Problema es ahora klar geworden (trotzdem danke IF)

XProfan 9.1; XP SP2; FF; Editpad

Gibt lo Problemas, si yo el Prozess como oben angegeben aufrufe, also mehrere Profaninstanzen en el Speicher habe.

Pauschal nein.

Gäbe lo así Problemas?

Pauschal nein.

Oder se Yo más en una Aufruf como bajo...

Steht Usted frei.

Welches Verfahren es para el Aufruf el PRC-Archivos a empfehlen?

Siehe Source.

PS: Es unwichtig como Su Exen heissen, y wieviele exen (oder prcs) Usted erstellst, y wieviele Prozesse laufen. Mein Source oben demonstriert: Un Exe, Zwei Prozesse, Ein Source.