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

[itblumi]

Ich hab den Übeltäter gefunden, es war eine ander Datei mit dem selben Namen und mit der gleichen Funktionsnamen, aber unterschiedlichem Inhalt.

Ich Danke euch allen für eure Hilfe vllt. kann ja diese Funktion noch anderen helfen.

Viele Grüße
itblumi