Hola ramonibk
Según tu código esta parte solo te devuelve dentro de buffer exactamente la misma cadena que ya tienes en Edit3.text, sin ningún tipo de modificación
Cita:
Empezado por ramonibk
Código Delphi [-]
for I := 1 to length (Edit3.Text) do
Begin
N := ord(Edit3.Text[i]);
Buffer := Buffer + Chr($+N);
End;
|
por lo que si te funciona con ese código, entonces te debería también de funcionar de esta otra forma:
Código Delphi
[-] Buffer := chr($0F)+chr($21)+chr($0E)+chr($01)+chr($5C); Buffer := Edit3.text+ chr($20)+chr($20)+chr($03)+chr($08);
y aquí el código un poco mas optimizado:
Código Delphi
[-]const
PckIni: string = #$0F#$21#$0E#$01#$5C;
PckEnd: string = #$20#$20#$03#$08;
procedure enviar(const value: string)
begin
ComPort1.WriteStr(PckIni + value + PckEnd);
end;
Un saludo