XProfan

Italia

GDL

Hallo

writecom(handle&,string$)

lässt unter WinME und Win98 ständig das Programm abschmieren.
XP geht einwandfrei.

Getestet mit der letzten Subscriptionslieferung von Xprofan 10
Kompilieren Markieren Separieren

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&)

Servus
Georg

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

[...]

02.06.2006 ▲

Vollständiges Zitat

Absatzweise Citazione Zeilenweise Citazione

GDL

Hallo Roland,

habe folgenden Code auf allen mir bekannten Rechnern mit NICHT WinXP Betriebssystem und mit Profan 8 bis zur letzten Subscribtionslieferung von X10 getestet.
In allen Fällen hängt sich das Programm bei writecom auf.Die Schnittstelle wird aber ohne Fehler (erfolg%=0) geöffnet.
Auf Rechnern mit WinXP läufts einwandfrei.Das ganze fiel mir bis jetzt nicht auf, da ich immer nur mit der RS232 eingelesen habe.Einlesen geht auch unter 95,98,ME.
Kompilieren Markieren Separieren

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&an>