Cuantos ComPortRxChar?

[JoseFco]

Hola amigos.

Tengo una preguntica:

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);

Se pueden hacer mas de un procedure como este en un mismo programa?

Un Saludo.

[[egostar]]

Empezado por JoseFco

Hola amigos.

Tengo una preguntica:

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; Count: Integer);

Se pueden hacer mas de un procedure como este en un mismo programa?

Un Saludo.

Podrias comentarnos que es lo que quieres hacer, porque me imagino que lo necesitas para actuar en consecuencia en base a las cadenas que te llegan, ¿si?......

Salud OS

[JoseFco]

Hola egostar.

La cosa es que ya tengo ese procedure en mi programita y trabaja bien.Cuando recibo una cadena de bytes y la comparo.Pero la estoy tratando de usar en otro boton, que hace otra cosa y se me complico el asunto.
Me explico. Yo tengo un boton donde mando al serial port unos bytes(4) para ser mas claro y tengo que esperar un byte de retorno,compararlo y si es = al que espero , entonces mandar otros dos bytes y esperar otro bytes de regreso.El problema es que ese byte es un 01 y se repite tres veces en ese procedure del boton.
A todo lo largo de mi programita estare empleando ComPort.ReadStr(Str, Count); puedo llenar de "else" el procedure pero el problema es que cuando tengo tres como en este caso.No en todos los 01 que espero tomare la misma decision, depende de cuando y porque me lo estan mandando.

Un Saludo.

[[Caral]]

Hola
Lo mas seguro es que me equivoque pero pienso en voz alta.
Por que no crear un procedimiento aislado al que se le llame desde este procedimiento y que contenga una variable que guarde ese valor.
No conozco el ComPortRxChar, supongo que vendra de los chart o de algun componente determinado, pero si es necesario que envie el resultado con un dato string y otro integer, cual seria el problema de hacerlo con otro procedimiento o funcion?, asi no se necesitaría duplicar el procedimiento.
Bueno, solo opino, ya sabéis, así aprendo.
Saludos

[[FGarcia]]

No puedes usar mas de un OnRxChar puesto que solo tienes un punto de entrada al puerto serie. On RxChar revisa caracter a caracter lo que entra al puerto. Si necesitas que tu programa reaccione a un caracter o caracteres especiales deberas de programar una rutina para tratar cada uno de ellos.

Código Delphi [-]
procedure TForm1.ComPortRxChar(Sender: TObject; count:integer);
begin
   {AQUI EL COMPONENTE LEE LO QUE RECIBE POR EL PUERTO COM}
  ComPort.ReadStr(Str, Count);
 
   if Str = 'DELPHI' then
      ShowMessage('Bienvenido')
   else if Str = 01 then
      ShowMessage('OK')
   else if Str = 2 then
      UnProcedimiento
   else if Str = 3 then
      OtroProcedimiento
   else
      LoQueSea;
end;

Ahora bien si necesitas capturar alguna conjunto de caracteres o "paquetes" bien definidos entonces es mejor usar el ComDataPacket el cual te permitira colocar tantos como necesites para un solo puerto.

Código Delphi [-]
//Suponemos que necesitamos recibir una cadena que al final cierra con CR
 
//declaramos una constante
const Terminador = #13  //ASCII 13 o CR
 
//En la creacion del formulario declaramos
procedure TForm1.Create(Sender: TObject);
begin
   ComDataPacket.StopString := Terminador;
end;
 
//Este procedimiento se ejecutaria cada vez que aparezca CR
procedure TForm1.ComPortDataPacket(str: string; count: integer);
begin
   ShowMessage('Cadena Recibida: ' + Str);
end;

Si necesitas recibir el caracter 01 varias veces y bajo diversas circunstancias tal vez la mejor manera de tratarlo seria usando OnRxChar y llamar a un procedimiento que procese acorde a la circunstancia en que lo esperas. Esto es una sugerencia tal vez hay mejor manera; crear un Type por ejemplo llamado Modo y que tenga declarados los diversos modos que tu necesitas por ejemplo:

Código Delphi [-]
Type Modo = (Leer, Escribir, Borrar);
 
//Redeclarando el evento OnRxChar
procedure TForm1.ComPortRxChar(Sender: TObject; count:integer);
begin
   {AQUI EL COMPONENTE LEE LO QUE RECIBE POR EL PUERTO COM}
  ComPort.ReadStr(Str, Count);
 
   if Str = 'DELPHI' then
      ShowMessage('Bienvenido')
   else if Str = 01 then
      if Modo = Leer then
         ShowMessage('OK')
      else if Modo = Escribir then
          ProcedimientoEscribir
      else
          ProcedimientoBorrar
   else if Str = 2 then
      UnProcedimiento
   else if Str = 3 then
      OtroProcedimiento
   else
      LoQueSea;
end;

[[egostar]]

Mas claro ni el agua,

Salud OS