Ver Mensaje Individual
  #7  
Antiguo 07-02-2008
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Reputación: 28
jachguate Va por buen camino
Supongo que queres enviar caracteres de control (o secuencias de escape) mezcladas con caracteres imprimibles.

Lamentablemente en un Edit no se puede introducir caracteres no imprimibles (menores a ascii 32), no es un asunto de hexadecimal o no hexadecimal.

Cuándo he enfrentado esta situación, he encontrado dos soluciones.

Una, poner otro edit donde se ingrese el valor numérico del caracter que se quiere introducir, (por ejemplo 6) y con un botón, añadir ese caracter a la cadena del edit "a enviar", algo como:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  if trim(eCaracter.Text) <> ''
    eDatosEnviar.Text := eDatosEnviar.Text + Chr(StrToInt(eCaracter.Text));
end;

Otra solución es poner un "tablero" de botones que envíen ciertos comandos preestablecidos. Por ejemplo, un botón cuyo caption sea "Encender luz", y cuya implementación podría ser:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
begin
  EnviarComando(#6#32 + eParametros.Text);
end;

Por ejemplo...

Hasta luego.

__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita