Basierend auf folgendem Code: Monitor-Module
Code: Alles auswählen
DeclareModule BufferQueue
EnableExplicit
DebugLevel 0
CompilerIf Not #PB_Compiler_Thread
CompilerError "Please activate the thread safe option!"
CompilerEndIf
#STRING_BUFFER_SIZE = 64
Interface BufferQueue
free.i()
popAscii.a()
popByte.b()
popUnicode.u()
popWord.w()
popCharacter.c()
popLong.l()
popFloat.f()
popDouble.d()
popQuad.q()
popInteger.i()
popString.s(format.i = -1)
popMemory.i(*buffer, length.i)
pushAscii(a.a)
pushByte(b.b)
pushUnicode(u.u)
pushWord(w.w)
pushCharacter(c.c)
pushLong(l.l)
pushFloat(f.f)
pushDouble(d.d)
pushQuad(q.q)
pushInteger(i.i)
pushString(s.s, format.i = -1)
pushMemory(*buffer, length.i)
EndInterface
Declare.i newBufferQueue(size.i = 4096)
EndDeclareModule