Lectura Hexadecimal desde el puerto serie

[djemix]

Si eso lo he entendido muy bien.... pero el problema es cuando el caracter ETX esta dentro de la cadena DATOS... no se si me explico...

La cosa es que no puedo asegurar que el STX y el ETX sean unicos en la trama ya que se pueden repetir en su interior...

[[egostar]]

Empezado por djemix

Si eso lo he entendido muy bien.... pero el problema es cuando el caracter ETX esta dentro de la cadena DATOS... no se si me explico...

La cosa es que no puedo asegurar que el STX y el ETX sean unicos en la trama ya que se pueden repetir en su interior...

Creo que sería buenos que captures lo que te envia el dispositivo y lo muestres aquí, no veo otra manera de ayudarte.

Salud OS

[BetoAlonso]

Saludos

Una consulta
alguno de uds. podria decirme en ke momento entra al "ApdComPort1TriggerAvail" estoy probando los ejemplos de ese componente, pero en ningun momento entra ahi.

gracias

[djemix]

El trigger se dispara automaticamente cuando se recibe cualquier tipo de dato por el puerto com que esté configurado en el componente.

Si no recibes nada es por alguna razon:

- No tengas el cable bien puesto o bien soldado o que los hilos no coincidan.

- Que el que emita los datos no los esté emitiendo.

- Que alguno de los puertos series que entran en comunicacion estén rotos.

- O que el puerto com seleccionado no sea en el que está puesto el cable (esto suele ser lo mas comun).

Yo te recomiendo que uses el hiperterminal de windows para asegurarte de que entran datos.

Saludos

[BetoAlonso]

Gracias por tus comentarios djemix

ahora el Datapacket me devuelve lo siguiente :

uuu11uu30u0vvvvvvvvvvvvvvvvvvvx.

pero yo solo kiero los datos numericos osea solo 11300.

como podria filtrarlos.

gracias

[djemix]

Weno, el tema del filtrado no creo que se pueda hacer desde el componente, ya tendrias que hacer una función que te haga el filtro. Esta funcion podria ser algo asi... (esto lo escribo directamente en el post... sin compilar nada, a lo mejor tiene fallos...):

Código Delphi [-]
Function FiltrarCaracteres ( dato : string ) : string;
var
  temp : string;
  i : integer;
begin
  for i:=1 to Length(dato) do
    if dato[i] in ('0'..'9') then
      temp := temp + dato[i]
 
  result := temp;
end;

Seria una cosa asi el filtrado, pruebalo a ver si te funciona.

Saludossss!