Duda al leer el puerto serie

[alloger]

Gracias por la contestacion, pero hay una cosa que me da error.
Al compilar me dice que esta indefinada la funcion 'Ord'. Hay que definirla de alguna forma especial o solo es una variable normal.

[[Crandel]]

Ord no es una variable, es una función definida en la unit System, debes agregarla en la clausula uses.

para saber mas funciones de este tipo puedes encontrarlo en la ayuda que es bastante completa. apreta F1 teniendo el cursor sobre la palabra ord y te aparecera una explicación, la unit a la que pertenece y funciones similares.

[OSKR]

Hola foro!, tiempo sin poder aparecerme x-aqi.
Suponiendo q el método ReadStr sea de la forma

void ReadStr(AnsiString &Str, unsigned int Count)

o muy semejante y necesites el valor numérico del primer caracter->

ComPort1->ReadStr(a,Count); // Leo el puerto serie cargando el valor en 'a'
Label8->Caption = AnsiString((int)(a.c_str()[0]));

aunqe creo q el penúltimo () no es necesario... pero bueno!!! prueba a ver.

[[Crandel]]

uyy, perdona alloger, te estaba contestando para Delphi y no C++Builder.

Prueba lo que te escribio OSKR

[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.