XProfan

English

GDL

Hello

writecom(handle&,string$)

can under WinME and Win98 constantly the program abschmieren.
XP goes correct.

Getestet with the last Subscriptionslieferung of XProfan 10
Compile Mark Separation

cls
declare comi&,erfolg%,text&[60],daten$,name$,fehler%
==================================================================

proc empfangen

    name$=@ReadCom$(comi&, 1)
    @ComError(comi&)
    casenot name$="":return

    WhileNot name$ = ""

        name$=@ReadCom$(comi&, 1)
        @ComError(comi&)

    EndWhile

endproc

==================================================================

proc senden

    Folgenden Befehl Remen, dann kein Absturz unter WinME und Win98
    fehler%=WriteCom(comi&,daten$)
    ComError(comi&)

endproc

======================================================================
comi&=opencom("Com2:",4096,4096)
erfolg%=SetCom("COM2:9600,N,8,1")
daten$=chr$(255)

WhileLoop 50

    daten$=chr$(255)
    senden
    empfangen

EndWhile

waitinput
closecom>(comi&)

Hello
Georg

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

[...]

06/02/06 ▲

Vollständiges Quote

Absatzweise Quote Zeilenweise Quote

GDL

Hello Roland,

have subesquent code on all me known Rechnern with NOT WinXP Betriebssystem and Profan 8 To to last Subscribtionslieferung of X10 tested.
In all Make depends itself the program with writecom on.The interface becomes but without Error (success%=0) opened.
On Rechnern with WinXP runs correct.the whole fell me yet not, I always only with the RS232 read have.reading goes too under 95,98,ME.
Compile Mark Separation

cls
declare komi&,erfolg%,daten$,fehler%
komi&=opencom("Com2:",2048,2048)
erfolg%=SetCom("COM2:9600,N,8,1")
print erfolg%
fehler%=WriteCom(komi&,"W")
print fehler%
ComError(komi&)
waitinput
closecom(komi&on>