Buenos días señores/as.
tengo un problema que seguro que para los eruditos de este foro sera nimia. pero para mi me esta costando horrores.
estoy intentando comunicar con un tele-indicador. el cual hay que mandarle los datos en Hex. en formato
Código Delphi
[-]
ComPort1.WriteStr(chr($61)+chr($62).....)
bueno hasta aquí todo bien.
el problema me viene cuando intento mandar el testo de un Edit. he intentado varios métodos pero no consigo que el formato adecuado.
Código Delphi
[-]
function StringToHex(S: String): string;
var
I: Integer;
begin
Result:= '';
for I := 1 to length (S) do
Result:= Result + IntToHex(ord(S[i]),2);
end;
procedure TForm1.Button5Click(Sender: TObject);
Var
Buffer : String;
begin
Buffer := chr($0F)+chr($21)+chr($0E)+chr($01)+chr($5C); Buffer := Buffer + StringToHex(Edit1.Text); Buffer := Buffer + chr($20)+chr($20)+chr($03)+chr($08); ComPort1.WriteStr(Buffer);
end;
lo único que me pinta son los números correspondientes a cada carácter. y si en el Result le fuerso a pintar chr($. me lo pinta literalmente.
hay algún método para hacerlo.
un saludo.