Cita:
Empezado por vejerf
Pues ante esto sólo me resta rendirme ante la evidencia. Soy un poco reacio a cambiar de componentes cuando ya más o menos sé el comportamiento de cada uno, pero supongo que por echar una ojeada a los que recomendáis no pierdo nada.
Muchas gracias otra vez a los dos!!!
|
Sin saber como funciona tu componente y viendo que no te gusta mucho la idea, te pongo un pequeño código con lo que yo haría, digamos que es el esquema general de la lectura de puertos que normalmente yo realizo, es obvio que puede tener fallos, pero lo que quiero mostrar es que no necesitas tanto código para lo que quieres.
Código Delphi
[-]
procedure TSimuladorThorcomForm.PuertoSerieRxChar(Sender: TObject;
Count: Integer);
var
I : Integer;
Dato : Byte;
Linea,DatoHx : String;
begin
for I := 1 to count do begin
Dato := ord(TVaComm1.GetChar); DatoHx := IntToHex(Dato);
case Dato of
22: begin Linea := '';
end;
3: begin Hago_lo_que_Sea(Linea);
end;
end;
Linea := Linea +' '+ DatoHx; end;
end;
Salud OS