BDV001 Protokoll und CheckSum

[SvB]

Danke für Eure Hilfe.

@Muetze1
Irgendwie habe ich ein Brett vor dem Kopf. Ich komme nicht drauf, wie ich Deine funktion benutzen soll, wie rufe ich die auf? Mit Pointern usw. habe ich es nicht so.
Ich habe mal alle Bytes als Bits (0+1) nacheinander in ein Memo gestellt.
10000001000010100000101100100000000000001011000000 00010100000000

Die Funktion rufe ich dann wie folgt auf:
Edit1.Text := IntToStr(CalcChecksum(PChar(Memo1.Lines[0]), Length(Memo1.Lines[0]))) Kann man das so machen? Als Ergebnis kommt dann dezimal 88 raus. Beim Beispiel 1 ist die Prüfsumme aber dezimal 149.

Ich werde mal einen Kollegen anhauen, der das Protokoll besorgt hat, der soll da mal nachfragen.

Sven