ComPort Hex

[ramonibk]

No se si es la forma mas ortodoxa pero lo he echo de esta manera

Código Delphi [-]
Var
 Buffer : String;
 Str : String;
 I : Integer;
 N : Integer;
begin
 Str := '';
 Buffer := chr($0F)+chr($21)+chr($0E)+chr($01)+chr($5C); // Inicio del Paquete Fijo
   for I := 1 to length (Edit3.Text) do
    Begin
      N := ord(Edit3.Text[i]);
      Buffer := Buffer + Chr($+N);
   End;
 Buffer := Buffer + chr($20)+chr($20)+chr($03)+chr($08); // Fin del paquete Fijo
 ComPort1.WriteStr(Buffer);

Un saludo.