necesito experto en comport !!

[[rruz]]

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.