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.

[[egostar]]

Siguiendo con el asunto del Apro, la forma mas fácil de recibir paquetes es usando el componente ApdDataPacket, solo requieres conocer el inicio de la cadena y el final de la cadena o al menos uno de ellos.

En protocolos normales se inicia con STX (02h) y termina con ETX (03h), algunos protocolos no tienen un caracter fijo de inicio pero si tienen LF+CR (10h,13h).

Con este componente te olvidas de buscar dentro de los caracteres recibidos el paquete que deseas.

Aqui un ejemplo:

Código Delphi [-]
procedure TLector.ApdDataPacket1StringPacket(Sender: TObject;
  Data: String);
begin
  Linea := Data;
  If (Linea[5] = 'A') then begin
     ProcesaInformacion('A');
  end;
end;

Saludos.

Edito: Por cierto, este componente APro me lo recomendó Al Gonzalez hace mucho tiempo, gracias Al me ha servido increiblemente.

[pollo_c]

disciulpen que me meta en el hilo, pero tengo un problema en el archivo tpapro docs tpapro407a3 viene una descripción de cómo se instalan los paquetes o componentes del archivo tpapro407a3 pero no funciona, quisiera que me orientaran paso a paso en la instalación de estos paquetes si no es mucha molestia. gracias

[jairo guzman]

bueno, en primer lugar les doy las gracias por ayudarme a resolver este inconveniente, yo programo basicamente en builder 6, sin embargo comprendi el mensaje que me enviaron y ya he logrado solucionar el problema que tenia.

[chuyleon]

Hola a todos, yo he hecho algo parecido con basculas y todo lo he resuelto con un componente freeware para delphi: TSerialNG. Espero que con esto resuelvas tus problemas. Byee.