c-quelltext nach Delphi portieren

[Muetze1]

Zitat von angos:

Also hier eine Liste mit Strings und den dazugehörigen CRCs. Hierbei kann ich sicher sein, dass diese korrekt sind.

Zitat:

----String ---------------------------------------- CRC
CHR($05) + CHR($02) + CHR($00) | CHR($5E) + CHR($9F)
CHR($01) + CHR($02) + CHR($00) + CHR($9F) | CHR($DE) + CHR($0D)
CHR($02) + CHR($02) + CHR($00) | CHR($9F) + CHR($2E)

Mein Code funktioniert, und dein CRC vom 2. ist falsch. Wenn das wirklich 4 Zeichen sein sollen, dann ist der CRC16 davon 0x8F1F.

Mein Code klappt auf Anhieb - hier der TestCode und die Ausgabe:

Zitat:

erster (0x5e9f) : 0x5E9F
zweiter (0xde0d) : 0x8F1F
dritter (0x9f2e) : 0x9F2E

Und hier der Code:

Delphi-Quellcode:

program Project3;
{$APPTYPE CONSOLE}
uses
  sysutils,
  windows;

const
  ccittrev_tbl: array[byte] of word = (
    $0000, $C0C1, $C181, $0140, $C301, $03C0, $0280, $C241,
    $C601, $06C0, $0780, $C741, $0500, $C5C1, $C481, $0440,
    $CC01, $0CC0, $0D80, $CD41, $0F00, $CFC1, $CE81, $0E40,
    $0A00, $CAC1, $CB81, $0B40, $C901, $09C0, $0880, $C841,
    $D801, $18C0, $1980, $D941, $1B00, $DBC1, $DA81, $1A40,
    $1E00, $DEC1, $DF81, $1F40, $DD01, $1DC0, $1C80, $DC41,
    $1400, $D4C1, $D581, $1540, $D701, $17C0, $1680, $D641,
    $D201, $12C0, $1380, $D341, $1100, $D1C1, $D081, $1040,
    $F001, $30C0, $3180, $F141, $3300, $F3C1, $F281, $3240,
    $3600, $F6C1, $F781, $3740, $F501, $35C0, $3480, $F441,
    $3C00, $FCC1, $FD81, $3D40, $FF01, $3FC0, $3E80, $FE41,
    $FA01, $3AC0, $3B80, $FB41, $3900, $F9C1, $F881, $3840,
    $2800, $E8C1, $E981, $2940, $EB01, $2BC0, $2A80, $EA41,
    $EE01, $2EC0, $2F80, $EF41, $2D00, $EDC1, $EC81, $2C40,
    $E401, $24C0, $2580, $E541, $2700, $E7C1, $E681, $2640,
    $2200, $E2C1, $E381, $2340, $E101, $21C0, $2080, $E041,
    $A001, $60C0, $6180, $A141, $6300, $A3C1, $A281, $6240,
    $6600, $A6C1, $A781, $6740, $A501, $65C0, $6480, $A441,
    $6C00, $ACC1, $AD81, $6D40, $AF01, $6FC0, $6E80, $AE41,
    $AA01, $6AC0, $6B80, $AB41, $6900, $A9C1, $A881, $6840,
    $7800, $B8C1, $B981, $7940, $BB01, $7BC0, $7A80, $BA41,
    $BE01, $7EC0, $7F80, $BF41, $7D00, $BDC1, $BC81, $7C40,
    $B401, $74C0, $7580, $B541, $7700, $B7C1, $B681, $7640,
    $7200, $B2C1, $B381, $7340, $B101, $71C0, $7080, $B041,
    $5000, $90C1, $9181, $5140, $9301, $53C0, $5280, $9241,
    $9601, $56C0, $5780, $9741, $5500, $95C1, $9481, $5440,
    $9C01, $5CC0, $5D80, $9D41, $5F00, $9FC1, $9E81, $5E40,
    $5A00, $9AC1, $9B81, $5B40, $9901, $59C0, $5880, $9841,
    $8801, $48C0, $4980, $8941, $4B00, $8BC1, $8A81, $4A40,
    $4E00, $8EC1, $8F81, $4F40, $8D01, $4DC0, $4C80, $8C41,
    $4400, $84C1, $8581, $4540, $8701, $47C0, $4680, $8641,
    $8201, $42C0, $4380, $8341, $4100, $81C1, $8081, $4040 );

function ComputeCRC16(const AData: Pointer; ADataLen: integer): word; //char *msg, int len)
var
  lCheckSum: Word;   // chksum
  lDataPtr: PByte;   // *msgchk
begin
  lCheckSum := $ffff;
  lDataPtr := AData;

  while ( ADataLen > 0 ) do
  begin
    lCheckSum := Hi(lCheckSum) xor ccittrev_tbl[Lo(lCheckSum) xor lDataPtr^];
   
    Inc(lDataPtr);
    Dec(ADataLen);
  end;

  result := not lCheckSum;
end;

var
  lData: array of byte;

begin
  SetLength(lData, 3);
  lData[0] := $05;
  lData[1] := $02;
  lData[2] := $00;

  WriteLn('erster (0x5e9f) : 0x', IntTohex(ComputeCRC16(@lData[0], length(lData)), 4));

  SetLength(lData, 4);
  lData[0] := $01;
  lData[1] := $02;
  lData[2] := $00;
  lData[3] := $9f;

  WriteLn('zweiter (0xde0d) : 0x', IntTohex(ComputeCRC16(@lData[0], length(lData)), 4));

  SetLength(lData, 3);
  lData[0] := $02;
  lData[1] := $02;
  lData[2] := $00;

  WriteLn('dritter (0x9f2e) : 0x', IntTohex(ComputeCRC16(@lData[0], length(lData)), 4));

  //CHR($05) + CHR($02) + CHR($00)              |    CHR($5E) + CHR($9F)
  //CHR($01) + CHR($02) + CHR($00) + CHR($9F)   |    CHR($DE) + CHR($0D)
  //CHR($02) + CHR($02) + CHR($00)              |    CHR($9F) + CHR($2E)

  readln;
end.

[angos]

Vielen vielen Dank... ich habe mein problem erkannt.

Erstens: Der eine Falsche crc den ich dir gegeben habe, lag daran:

der eigentliche Befehl ist: CHR($01) + CHR($02) + CHR($00);
daraus folgt der crc: CHR($9F) + CHR($DE);
und ich braucht noch ein abschließendes Carriage Return: CHR($0D) ; // -.-


zweitens: ich habe bei meinen tests die letzten Tage, deine funktion sagen wir "erweitert" (also zu testzwecken teilweiser umgebaut)

daher konnte ich gar nicht die gleichen CRCs wie du herausbekommen.


Also nochmals vielen Dank, problem ist gelöst