Primero que todo el utilizar los componentes
TurboPower Async Professional Para comunicacion serial RS232 es un punto en el cual no hay discusion ya que son el estandard en este area.
Una vez dicho esto y asumiendo que ya instalaste los componentes vamos a utilizar el componente TApdComPort.
Para recibir informacion desde el dispositivo
En TApdComPort debes utilizar el evento OnTriggerAvail .
Ej :
Código Delphi
[-]
procedure TForm1.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
i : integer;
c : Char ;
begin
for i := 1 to Count do
begin
c:= ApdComPort1.GetChar;
//Aqui puedes consultar por el caracter retornado
//segun la documentacion del dispositivo
Case c of
'A' :Proc1;
'$' :Proc2:
'%':Proc3;
End;
//o puedes acumular en un buffer (String) los caracteres
Cadena:=Cadena+c;
end;
end;
No olvides declarar lo siguiente al inicializar la rutina
Código Delphi
[-]
ApdComport1.AddDataTrigger('Prueba',True)
Para enviar Datos utiliza
Código Delphi
[-]
ApdComport1.PutChar('A');
// o bien
ApdComport1.PutString('Esta es una prueba');
Saludos.