CPort Hex Zahlen senden

[Wal]

Ich mach das so um ein Atmel zu steuern:

Delphi-Quellcode:

var
Buffer       : PACKED ARRAY[0..9] OF UCHAR;

procedure TMainForm.SetElev(Elv: Byte);
begin
  Buffer[0]    := $66;
  Buffer[1]    := $30;
  Buffer[2]    := Elv;
  Buffer[3]    := $00;
  Buffer[4]    := $00;
  Buffer[5]    := $00;
  Buffer[6]    := $00;
  Buffer[7]    := $00;
  Buffer[8]    := $00;
  Buffer[9]    := $66;
  if Com then
    ComPort.Write(Buffer, SizeOf(Buffer));
end;

gruß
wal