Ver Mensaje Individual
  #4  
Antiguo 28-02-2008
[FGarcia] FGarcia is offline
Miembro Premium
 
Registrado: sep 2005
Ubicación: Cordoba, Veracruz, México
Posts: 1.123
Reputación: 20
FGarcia Va por buen camino
Hola!
Por el nombre del evento supongo que usas el Componente TComPort de la biblioteca CPortLib de Djan Cernilla.
El evento RxChar te permite capturar todo lo que entre por el puerto serie caracter a caracter por lo que tu tendrias que evaluar cuantos caracteres crees que vas a recibir o si esperas un caracter en especial interceptarlo y ejecutar un procedimiento o funcion.

Código Delphi [-]
procedure TMiForm.ComPortRxChar(Sender: TObject; Count: Integer);
var
  Cadena: string;
begin
  Cadena := '';
  {AQUI EL COMPONENTE LEE LO QUE RECIBE POR EL PUERTO COM}
  ComPort.ReadStr(Str, Count);
  
  {Aqui copiamos lo capturado.}
  
  //POR EJEMPLO EN UNA VARIABLE
  Cadena := Cadena + Str;
  
  //POR EJEMPLO EN UN MEMO
  Memo.Text := Memo.Text + Str;  }
end;

Sin embargo si conoces las caracteristicas de lo que vas a capturar, por ejemplo su longitud o un caracter terminador en especial es mejor usar el componente ComDataPacket el cual te permite capturar datos que entran como paquetes de longitud fija o limitados por un caracter de inicio y final. por ejemplo:

Cita:
LONGITUD FIJA:

+ 12.3 //9 CARACTERES
CLUB DELPHI //11 CARACTERES

LIMITADOS POR UNO O DOS CARACTERES

- 12.3<CR> //LIMITADO POR EL CARACTER ASCII CR (Carriage Return)
<STX>- 12.3<ETX> //LIMITADO POR CARACTER DE INICIO Y FINAL ASCII STX (Start of Transmition) y ETX (End OF Transmition)
Ambos RxChar y ComDataPacket son excluyentes, es decir que usas uno u otro pero no ambos.
En el ComDataPacket si usas una longitud de cadena fija y usas un caracter limitador final lo que ocurra primero determinara la ejecucion del mismo. Por ejemplo:

Cita:
- 12.3KGM<CR> //LIMITADO POR EL CARACTER ASCII CR (Carriage Return)

ComDataPacket.Length := 8;
ComDataPacket.StopString := #10;
Aqui el evento OnPacket se dispara cuando llegan los primeros 8 caracteres por lo que si te interesaba los otros 3 esos no se capturan.
Espero te sirvan estos comentarios para tus desarrollos.
Responder Con Cita