XProfan

English

GDL

Hi,

coming today by chance hereon, that following routine of course whom Receive buffer ausliest, but not leert.
only if I whom ausgeremten part dazunehme Gibts none Pufferüberlauf.
Compile Mark Separation

declare comi1&,erfolg%,comwert$
cls
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)

proc lesen

    comwert$=@ReadCom$(comi1&,1)
    @ComError(comi1&)

    whilenot comwert$=

        comwert$=@ReadCom$(comi1&,1)
        @ComError(comi1&)

    wend

    closecom(comi1&)
    comi1&=opencom(Com1:,4096,4096)
    erfolg%=SetCom(COM1:9600,N,8,1)

endproc

whilenot 0

    lesen

wend

closecom(

)

I took always on, that The Number of gelesenen characters, whom Puffer circa this worth again freigibt.
knows of you someone a commands to that Puffer delete?

Hello
Georg

Windows7 Xprofan 8,9,10 [...]

[...]

03/08/07 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hi,
have whom code now with Using Frank Steinberg modifiziert.now GEHTS.
Compile Mark Separation

declare comi1&,erfolg%,comwert$,SSuccess&
DEF @PurgeComm(2) !KERNEL32,PurgeComm
cls
comi1&=opencom(Com1:,4096,4096)
erfolg%=SetCom(COM1:9600,N,8,1)

proc lesen

    comwert$=@ReadCom$(comi1&,1)
    @ComError(comi1&)

    whilenot comwert$=

        comwert$=@ReadCom$(comi1&,1)
        @ComError(comi1&)

    wend

    closecom(comi1&)
    comi1&=opencom(Com1:,4096,4096)
    erfolg%=SetCom(COM1:9600,N,8,1)
    LET SSuccess& = @PurgeComm(comi1&,8)
    drawtext 20,50,Erfolg : +str$(ssuccess&)

endproc

whilenot 0

    lesen

wend

closecom(i1&)