Hex werte schreiben

[Baeuerle]

Hallo,

kann mir jemand sagen wie ich einzelne Hexwerte in eine Datei schreiben kann?

z.b:
möchte ich folgende hexwerte schreiben

50 4B 05 06 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00

fs.write($50,1) -> geht nicht!

Danke im vorraus
Baeuerle

[Lernnix]

Hallo Baeuerle!

Funktion IntToHex nehmen! Mit F1 zu diser Funktion findest Du die erforderliche Parameterliste.

Lernnix

[Kroko1999]

Delphi-Quellcode:

write (fs,'$'+IntToHex($50,2));

[marabu]

Vielleicht willst du eher das hier?

Delphi-Quellcode:

procedure WriteHex(fs: TFileStream; hex: string);
var
  buf: array of byte;
  i: integer;
begin
  SetLength(buf, Length(hex) shr 1);
  for i := Low(buf) to high(buf) do
    buf[i] := StrToInt('$' + Copy(hex, Succ(i shl 1), 2));
  fs.Write(buf[0], Length(buf));
end;

begin
  WriteHex(fs, '313233'); // schreibt '123'
end;

Grüße vom marabu

[Baeuerle]

THX @ marabu thats it :thumb: