Die Aufsummierung der Zeichen erledige ich zum Testen mit folgendem Code:
Aufruf mit den betroffenen Zeichen aus dem Beispiel:
Label1.Caption := CreateCheckSum('01/00044/O/01/01720123445/2323//3/54657374/');
Funktion:
Delphi-Quellcode:
function TForm1.CreateCheckSum(InStr: String): String;
var rCount,
Sum : Integer;
begin
Sum := 0;
for rCount := 1 to Length(InStr) do
begin
Sum := Sum + Ord(InStr[rCount]);
end;
Result := IntToStr(Sum) + ' (' + IntToHex(Sum, 2) + ')';
end;
Der ganze Frame ist:
<stx>01/00044/O/01/01720123445/2323//3/54657374/<chksum><etx>
lg,
Andi