XProfan

Hm here habs time zusammengepinselt, the ought to for a first orientation suffice:
Compile Mark Separation

 {$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

the demonstration shows too, the You sehrwohl too mehere processes beauftragen can, You you then but too one own log create must around the Inputs To koordinieren.

Clemens
Meier

That the Pipe is me clear and a Threadid is for the Protokol with the eigenständigen Prozessen reserved. These processes should permanent in the background walk. Via Pipe and a handle per Process verläuft The communication. still what's the score with the Prozessen self. gives it Problems, if I whom Process as stated above aufrufe, means several Profaninstanzen in memory have.

or should I sooner on a appeal How under [...]

building? there becomes but only a exe called. i will but not different exe offer, separate possible as umbenannte prc-Files,

means: my Hauptprogramm is Program.exe
in this Program go two processes launched
the a hieß prozess1.prc and was before umbenannt To p1.ttt. this should with
Program.exe p1.ttt launched go
the second hieß prozess2.prc and was before umbenannt To p2.ttt. this should then with
Program.exe p2.ttt launched go.
both processes having no own Window, there's means too no Fehlermeldungen or Messages. everything becomes via Protokol on the Hauptprogramm gemeldet, so that this hereon react can, if necessary.

Gäbe it so Problems? which take action is for Calling the PRC-Files recommend? I hope, my trouble is now clear become (nevertheless thanks iF)

XProfan 9.1; XP SP2; FF; Editpad

gives it Problems, if I whom Process as stated above aufrufe, means several Profaninstanzen in memory have.

blanket No.

Gäbe it so Problems?

blanket No.

or should I sooner on a appeal How under...

standing you spare.

which take action is for Calling the PRC-Files recommend?

See Source.

PS: its unwichtig How your Exen heissen, and wieviele exen (or prcs) You erstellst, and wieviele processes walk. my Source supra demonstrating: an Exe, two processes, One Source.