Duda al leer el puerto serie

[alloger]

Muchas gracias por vuastra ayuda, por fin lo he conseguido, tengo un pequeño error de baud-rate pero ese es otro tema. Este es el codigo con el cual leo el puerto serie:

//-----------------------------------------------------------------------
void __fastcall TForm1::ComPort1RxChar(TObject *Sender, int Count)
{
if(x==0)
{
AnsiString a, dato1;
ComPort1->ReadStr(a,Count);
dato1 = AnsiString((int)(a.c_str()[0]));
Label8->Caption = "";
Label8->Caption =dato1;
temperatura= StrToInt(dato1);
x=1;
}
}

Gracias de nuevo, si sale alguna otra duda os la comento

Un saludo

[jhoncacru]

tengo un problema al leer el puerto com1 desde DELPHI, utilizo este componente porque mi interfaz electrónica lee codigos de barra que son de 9 dígitos por ejemplo:
650001019 y todos los credenciales se han impreso de esa manera.

ya logré instalar correctamente el componente, y este es el codigo fuente para capturar los datos:

 
procedure TFTRegistrar.puertoserialRxChar(Sender: TObject; Count: Integer);
var str: String;
begin
  puertoserial.ReadStr(Str, Count);
  Edit1.Text := Edit1.Text + Str;
end;

El problema se presenta cuando quiero leer los codigos de barra, este componente solamente me envia 8 dígitos : 65000101 y quedando el 9 .......

Aún no entiendo muy bien como realiza la lectura por eso te pido una orientacion sobre como podría solucionar mi problema.