xor Verknupfungen

[js747a]

Hallo, erstmal Danke für die Antworten.
Aber wie kann ich das ohne die TByte machen.
In Delphi 7



function BuildCommand(ACommand: Byte; AData: const array of Byte): TBytes;
var
CheckSum, B: Byte;
begin
SetLength(Result, 2 + Length(AData));
CheckSum := ACommand;
Result[0] := ACommand;
for var n := 0 to High(AData) do
begin
B := AData[n];
CheckSum := CheckSum xor B;
Result[1 + n] := B;
end;
Checksum := CheckSum xor $FF;
Result[High(Result)] := CheckSum;
end;

Wenn ich das Richtig verstehe dann ..


wenn ich nur 2 Byte sende.

Ein TByte ist also ein Array of Bytes.
- CheckSum := ACommand; ist OPCODE 0x83
- Result[0] := ACommand; ist das erste im Array also bei mit OPCODE 0x83
- Checksum := CheckSum xor $FF;
- Result[1] := Checksum ;
InterfacePort.WriteStr(Chr(Result[0])+Chr(Result[1]));


wenn ich mehr als 2 Byte sende.

- CheckSum := ACommand; ist OPCODE 0x83
- Result[0] := ACommand; ist das erste im Array also bei mit OPCODE 0x83

dann wird für jedes Byte in AData
- B = n Byte in AData
- CheckSum := CheckSum xor B;
- Result[n] = B

- Checksum := CheckSum xor $FF;
- Result[High(Result)] := CheckSum; - Letzte Byte in Result := CheckSum
InterfacePort.WriteStr(Chr(Result[0])+Chr(Result[n])+Chr(Result[n]));

[KodeZwerg]

Zitat von js747a:

Aber wie kann ich das ohne die TByte machen

Gar nicht. Aber definiere es einfach selbst und fertig ist.

Delphi-Quellcode:

type
  TBytes = array of Byte;

[Kurt Wallander]

Hi
ich habe zu deinem Problem ein paar Fragen. Wieviel Byte umfaßt ein Datentransfer?
die dezimale Darstellung von 0x83 ist 131 anstatt 130.
Ein Checkbyte mit 0x00 zu belegen und ein anderes Byte (OP...) mit xor Checkbyte zu verknüpfen macht keinen Sinn: es kommt als Ergebnis wieder OP... heraus.
Du mußt also Byte1 xor Byte2 xor Byte3 ... bilden.
Falls das höherwertige bit des Bytex den wert 1 hat (Bytex>=128 oder Bytex>=0x80) sollen nur die niederwertigen Bytes berücksichtigt werden: Bytex and 0x7F bzw Bytex and 127.
Die Checksumme ist zum Schluß bitweise zu negieren: CheckSum:= not (Ergebnis aller xor-Verknüpfungen)
Good luck