Hallo Zusammen,
mit Bitschiebereinen habe ich recht wenig zu tun.
Für eine RS232 Kommunikation muss ich eine Checksum über einen beliebig langen String bilden.
Möglicherweise hat das schon mal jemand gemacht und kann mir damit aushelfen.
Es werden genau sieben Bits durch den kompletten String Quer mit XOR verknüpft.
Die Bits müssen also aufgefüllt werden. Aus <ETX> = $3 = 11 wird also 0000011
Delphi-Quellcode:
Ein Beispiel:
Der String AB34<ETX> ergibt als BCC $7
A B 3 4 <ETX> BCC
1 1 0 0 0 0
0 0 1 1 0 0
0 0 1 1 0 0
0 0 0 0 0 0
0 0 0 1 0 1
0 1 1 0 1 1
1 0 1 0 1 1
Der String
01#DR#1#Testdruck#<ETX> ergibt nach dem Muster ein $78
Dankeschon
Gruß Kostas