Wichtig:
Es wird Profan ab 7.0 DRINGEND benötigt,
wegen der User-Messages, mindestens jedoch ein 32 BIT
Profan ......
Ältere Versionen, unter 7.0, würde zwars auch
Funktionieren, das Programm müste dann aber in
regelmässigen abständen die Bereichsvariable prüfen,
ist dort ein String grösser als NULL, diesen Auslesen
und in Variable sichern, den Bereich wieder auf NULL
setzen, den String dann auswerten, und wieder von
neuem überprüfen.
Ab 7.0 ist es natürlich einfacher, indem die Usermessage
einfach ausgewertet wird. Bsp:
UserMessages $2654
WaitInput
If %Usermessage = $2564
Print "Es wurde etwas auf TCP empfangen ..."
print string(tcpbuffer1#,0)
Endif
Hier, wie es mit Profan unter 7.0 (also 6.6, 6.5 opder gar
5.0) Funktioniert, jedoch nicht empfohlen.
32 BIT Profan MUSS es jedoch sein !!!!!!!
SetTimer 1000 'jede secunde Testen ...
While equ(ende%,0)
WaitInput
testvar$ = trim$(String$(tcpbuffer1#,0))
IfNot equ$(testvar$,"")
Clear tcpbuffer1#
String tcpbuffer1#,0=""
Print "Es wurde etwas auf TCP empfangen ..."
print testvar$
Endif
Wend
Thorsten
|