Binär Datei über RS232 versenden Delphi

[gammatester]

Sehr merkwürdig. Nimmst Du eventuell noch die letzten CRC-Bytes F0 FC mit in die Berechnung? Hier der Code, der mit allen Delphiversion $F0FC liefert:

Delphi-Quellcode:

program xx;
uses sysutils;
{$apptype console}

function CalculateXYZModemCRC16(const Data; Length: Longint): Word;
{hier Deine Funktion}
{..}
end;

const tv: array[0..127] of byte = ($18,$f0,$9f,$e5,$18,$f0,$9f,$e5,
                                   $18,$f0,$9f,$e5,$18,$f0,$9f,$e5,
                                   $18,$f0,$9f,$e5,$00,$00,$00,$00,
                                   $18,$f0,$9f,$e5,$18,$f0,$9f,$e5,
                                   $40,$00,$00,$60,$20,$02,$00,$60,
                                   $44,$02,$00,$60,$70,$02,$00,$60,
                                   $8c,$02,$00,$60,$00,$00,$00,$00,
                                   $8c,$03,$00,$60,$54,$03,$00,$60,
                                   $40,$15,$9f,$e5,$b0,$00,$d1,$e1,
                                   $ff,$00,$80,$e3,$b0,$00,$c1,$e1,
                                   $b4,$00,$d1,$e1,$ff,$00,$80,$e3,
                                   $b4,$00,$c1,$e1,$b8,$00,$d1,$e1,
                                   $ff,$00,$80,$e3,$b8,$00,$c1,$e1,
                                   $1b,$13,$a0,$e3,$18,$05,$9f,$e5,
                                   $b0,$00,$c1,$e1,$b4,$00,$c1,$e1,
                                   $10,$05,$9f,$e5,$b8,$00,$c1,$e1);
var
  crc: word;
begin
  crc:= CalculateXYZModemCRC16(tv, sizeof(tv));
  writeln(IntToHex(crc,4));
end.

Gammatester