como leer datos enviados por COM3 ( TurboPower Async Professional.)

[Racso2006]

Buenas tardes.

llevo ya un tiempo investigando pero se me esta complicando mas de lo que pensaba.

simplemente tengo un scaner de DNI que envia los datos leidos por el COM3 y simplemente los tendria que poder leer y hacer lo que quisiera con ellos.

he estado utilizando el TurboPower Async Professional pero no soy capaz de hacerlo funcionar, teoricamente en el ApdComPort1TriggerAvail poniendo el ApdComPort1.GetChar tendria que tener dichos datos pero se que me faltan muchas cosas antes, porque en ningun momento le estoy diciendo en que puerto tiene que buscar y cuando tiene que buscar si se mandan datos.

es la primera vez que hago algo asi y estoy un poco perdido.

muchas gracias de antemano.

[Casimiro Notevi]

Ve mirando los enlaces de final de página, abajo del todo, a ver si te sirve alguno.

[Racso2006]

antes de postear esto, busque por todo sin exito (incluido esos posts que me indicas)

[[egostar]]

Empezado por Racso2006

antes de postear esto, busque por todo sin exito (incluido esos posts que me indicas)

Yo he utilizado por muchos años estos componentes sin problema, si no te urge para ahora mismo, llegando a casa por la noche (GMT-6) veo el código y subo un ejemplo de uso.

Saludos

[Racso2006]

no me urge mucho.

muchas gracias

[[egostar]]

Lo prometido.

Código Delphi [-]

var
  CRTrig: Word;
  Linea: String;

//Parametros de Comunición [COM1,1200,None,8,1]
procedure TLector.InicializaCOM;
begin
  ApdComPort1.ComNumber := 1;
  ApdComPort1.Baud      := 1200;
  ApdComPort1.DataBits  := 8;
  Case Parity of
     1 : ApdComPort1.Parity := pNone;
     2 : ApdComPort1.Parity := pOdd;
     3 : ApdComPort1.Parity := pEven;
     4 : ApdComPort1.Parity := pMark;
     5 : ApdComPort1.Parity := pSpace;
  end;
  ApdComPort1.StopBits := 1;
  ApdComPort1.Open := True;
  CRTrig := ApdComPort1.AddDataTrigger(#13, False);
end;

procedure TLector.ApdComPort1TriggerAvail(CP: TObject; Count: Word);
var
  I : Word;
begin
  for I := 1 to Count do
    Linea := Linea + ApdComPort1.GetChar;
end;

procedure TLector.ApdComPort1TriggerData(CP: TObject; TriggerHandle: Word);
begin
  if TriggerHandle = CRTrig then 
  begin
    Linea := StringReplace(Linea,#13,'',[rfReplaceAll]);
    Linea := StringReplace(Linea,#10,'',[rfReplaceAll]);
  try
      Memo1.Lines.Add(Linea);
  except
      Memo1.Clear;  
      Memo1.Lines.Add(Linea);
  end;
    Linea := '';
  end;
end;

Espero te ayude.

Saludos