Einzelnen Beitrag anzeigen

willyxv

Registriert seit: 25. Okt 2010
29 Beiträge
 
Delphi XE Enterprise
 
#10

AW: Probleme mit CRC CCITT Prüfsumme

  Alt 9. Jun 2011, 11:08
Sicher, dass die Beispiele Strings darstellen?
Denke schon, im Programm wird die Prüfsumme auch aus dem Namen der zu bestimmenden Werte gebildet.

Beispiel: Prüfsumme aus: "MustermannMax01011980pid006342KaliumCalciumHbLact atGlucose"


Delphi-Quellcode:
function GenerateCRC16(const AValue: AnsiString): Word;
var
  LChar: AnsiChar;
begin
  Result := High(Result);
  For LChar in AValue do
    Result := Ord(LChar) xor (Result shl 8) xor CRC16_TABLE[Result shr 8];
end;


Wo finde bzw setzte ich hier den Start_Val aus dem C programm?
Code:
#define CRC_START_VAL ((TDS_CRC)-1)
  Mit Zitat antworten Zitat