Probleme mit CRC CCITT Prüfsumme

[Deep-Sea]

Zitat von willyxv:

Denke schon, im Programm wird die Prüfsumme auch aus dem Namen der zu bestimmenden Werte gebildet.

Und die Stings sind auch ganz sicher ASCII und nicht vlt. als UTF-16 codiert?!

Zitat von willyxv:

Wo finde bzw setzte ich hier den Start_Val aus dem C programm?

Na bei Result := High(Result);
Man kann natürlich auch Result := Word(-1); schreiben, wenn es einem mehr gefällt

[willyxv]

Hmm jetzt weiß ich auch nicht mehr weiter, werd mich mal direkt an die firma richten, danke für die Hilfe.

Zitat von Deep-Sea:

Zitat von willyxv:

Denke schon, im Programm wird die Prüfsumme auch aus dem Namen der zu bestimmenden Werte gebildet.

Und die Stings sind auch ganz sicher ASCII und nicht vlt. als UTF-16 codiert?!

Aus der Anleitung:
"Within the name, parameters, only ASCII characters (ASCII 32 to 126) are allowed, i. e. ä, ü and µ are invalid characters and will cause a failure."

[gammatester]

Mit dem zweiten Datensatz (Beispiel 2: Wert: "385183474" Prüfsumme: "45942") liefert mein Pascal-Code den richtigen Wert, hier die komplette Funktion:

Delphi-Quellcode:

function GenerateCRC16(const s: ansistring): word;
var
  crc16: word;
  i: integer;
begin
  crc16 := $FFFF;
  for i:=1 to length(s) do begin
    crc16 := ((ord(s[i]) and $ff) xor ((crc16 and $ff) shl 8)) xor Crc16Tab[crc16 shr 8];
  end;
  result := crc16;
end;

Den ersten Datensatz solltest Du halt noch mal kontrollieren.

[willyxv]

Hi,

danke es funktioniert jetzt, der Erste Datensatz steht zwar so in der Anleitung, aber die Maschiene tut.

Vielen Dank