Vorgehensweise beim einlesen eines Telegramms variabler Länge

[Andre_S]

Ich nutze immer folgendes Schema:

Do
   If Ischarwaiting() = 1 Then
      Gosub Empfangen
   End If
loop
end
Empfangen:
    B = Inkey()
    If B = 13  Then                      'CR
        Gosub Auswerten
    Else
        Bb = Len(seingang) 'Noch Platz im Eingangspuffer?
        If Bb < 26 Then
            Seingang = Seingang + Chr(b)
        Else
            Seingang = ""
        end if
    End If
Return

Auswerten:
   If Len(seingang) >= 1 Then                               'Überhaupt was Verwertbares?
   ...
   ...
   ...
   end if

Hallo Peter!

Das geht doch aber nur, wenn Du sicherstellen kannst, dass der Datenstrom keine binären Daten enthält.


Gruß André