Move() von PAnsiChar in ein Array Of Byte

[H4ndy]

Folgendes Problem:

Ich habe einen X Byte langes PAnsiChar.
Dieses will ich einmal direkt auf Festplatte schreiben und einmal in ein lesbares Format konvertieren und dann ausgeben.

Das Schreiben auf Platte funktioniert gut und wuppt meiner Meinung nach auch korrekte Daten auf Festplatte.
thisEvent.Sysex: PAnsiChar , thisEvent.SysexLength: Integer

Delphi-Quellcode:

  fsSysex := TFileStream.Create(GetNextDumpFileName, fmCreate, fmShareDenyWrite);
  try
    fsSysex.Write(thisEvent.Sysex^, thisEvent.SysexLength);
  finally
    fsSysex.Free;
  end;

Nun moechte ich die gleichen Daten auch lesbar ausgeben (Hex).
SysExArray: Array of Byte;

Delphi-Quellcode:

  SetLength(SysExArray, thisEvent.SysexLength);
  Move(thisEvent.Sysex^, SysExArray[0], thisEvent.SysexLength);
  DbgOut(ByteArrayToHexString(SysExArray))

ByteArrayToHexString sieht so aus:

Delphi-Quellcode:

function TfrmMain.ByteArrayToHexString(const InArr: array of Byte): string;
var
  tmpStrList: TStringList;
  i: Integer;
begin
  tmpStrList := TStringList.Create;
  try
    for I := Low(InArr) to High(InArr) do
    begin
      tmpStrList.Append(IntToHex(InArr[i], 2));
    end;
    tmpStrList.Delimiter := ' ';
    Result := tmpStrList.DelimitedText;
  finally
    tmpStrList.Free;
  end;
end;

Frage ist jetzt: Was mach ich bei Move() falsch?

Ein Hexeditor zeigt mir die Datei so an:

Code:

F0 7E 00 06 01 F7

Mein ByteToArrayToHexString spuckt aber aus:

Code:

40 6A AF 00 A0 D9

Ersteres ist richtig (gueltige MIDI SysEx-Nachricht), zweiteres nur Müll.
Hab jetzt schon mit CopyMemory & Co. experimentiert, aber irgendwie klappts net