Foros Club Delphi - Puertos Serie

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Puertos Serie (https://www.clubdelphi.com/foros/showthread.php?t=7685)

Hola a todos/as

Mi caso es el siguiente:

Tengo una pistola lectora de codigos de barra, y necesito tomar la informacion, de dicha pistola, a traves del puerto serie.

Alguien tiene alguna idea o saben de alngun hilo que hable del tema?

Tengo la version 7 de delphi.

Te recomiendo buscar en Torry's a alguna de ellas, algún componente de lectura de puertos serie

Si puedo (y me dejan :)) añadir algo a lo mencionado es que podés encontrar bastante info por la red buscando sobre los puertos serie, entre todo esta web con algo básico:
http://www.developers.demon.co.uk/serial.html

Por mi parte me parece increiblemente práctico las lectoras que van directamente al teclado.

Saludos

lo único que puedo decir es que te busques un getcat, que un scanner de códigos de barras y se conecta entre el ps2 del teclado y el MotherBoard de la maquina, la dirección que tiene mi getcat es www.getcat.com, busca por hay y quizás encuentras algo

Gracias a todos,

me pongo a buscar donde me habeis dicho, si tengo alguna duda preguntaré nuevamente

Sin mas un cordial saludo: mrmanuel

Hola.
Tube la necesidad de controlar desde mi aplicación el puerto serie cuando conecté una balanza electrónica. Lo solucioné con los componentes "APRO".
Existe un control que te permite chequear permanentemente, enviar o recibir información por este puerto. Espero que te sirva.

Hola Ignacio,

Te importaria decirme que coponente es el que utilizastes, porque me he puesto a meterle mano a los "APRO" y eso no hay quien lo entienda, y para colmo, los ejemplos no compilan, siempre le falta alguna libreria o modulo.

PD: Tambien necesito conectar un peso al puerto serie.

Gracias, un saludo.

Disculp la demora de la respuesta.

Las pestañas se llaman APRO, APRO Telephony, APRO Fax y APRO State Machine.
El control que usé es ApdComPort de la pestaña APRO. Basé todo en el ejemplo ExComp. Mas tarde te mando el codigo que hice, que no es más que la modificación del ejemplo.

Suerte.

Gracias,

Pruebo lo que me has dicho y te cuento, de todas formas si me puedes enviar lo tuyo, mejos, así me aseguro que funciona correctamente. (Porque para estas cosas soy un poco PEZ).

Muchas gracias.

Un saludo.

Código:

unit Balanza;



interface



uses

  WinTypes, WinProcs, SysUtils, Messages, Classes, Graphics, Controls,

  Forms, Dialogs, StdCtrls, AdPort, OoMisc, ExtCtrls, Buttons, lmdcompo,

  lmdclass, lmdformA;



type

  TFormBalanza = class(TForm)

    ApdComPort1: TApdComPort;

    Bevel1: TBevel;

    LblPeso: TLabel;

    LblPeso2: TLabel;

    BBcorrecto: TBitBtn;

    BBcancelar: TBitBtn;

    LMDFormFill1: TLMDFormFill;

    procedure ApdComPort1TriggerAvail(CP: TObject; Count: Word);

    procedure FormActivate(Sender: TObject);

  private

    { Private declarations }

    function Valor(SS: string) :Integer;

  public

    { Public declarations }

    Peso:Integer;

    Cadena:String;

  end;



var

  FormBalanza: TFormBalanza;



implementation



{$R *.DFM}



procedure TFormBalanza.ApdComPort1TriggerAvail(CP: TObject; Count: Word);

var

  I : Word;

  C : Char;

  S : String;

begin

  S := '';

  for I := 1 to count do begin

    C := ApdComPort1.GetChar;  {C de carga con un caracter enviado por el puerto COM}

    case C of

      #0..#47 : {Desechar} ;   {Son caracteres no numericos previos al cero}

      #80: {Desechar} ; {La P, en esta balanza me indica el inicio de la cadena que trae el peso}

      #75: {Desechar} ; {La K, en esta balanza me indica el fin de la cadena que trae el peso}

      else  S := S + C; {se almacenan en S solo los caracteres que deseo}

      {De esta manera me queda en S una cadena a mi gusto}

    end;

  end;

  {Tengo una función llamada "Valor" que hace de S un numero que representa

   al peso que arrojó la balanza. Esta señal es enviada por el puerto muchas

   veces por segundo. Pero si cada vez que recibo una nueva, la muestro,

   tendría un efecto de parpadeo que dificultaría la lestura del numero por

   el operador. Para evitarlo muestro solamente si el valor que tengo en

   pantalla es distinto al valor resientemente recibido en S}

  if (Peso<>Valor(s)) and (Valor(s)>=0)then

  begin

    Peso:=Valor(s);

    LblPeso.Caption:=IntToStr(Peso);

    LblPeso2.Caption:=IntToStr(Peso);

  end;

end;



procedure TFormBalanza.FormActivate(Sender: TObject);

begin

  Peso:=0;

  LblPeso.Caption:=IntToStr(Peso);

  LblPeso2.Caption:=IntToStr(Peso);

  ApdComPort1.OutPut := 'ATZ'^M;  {Inicia la lectura del puerto}

end;



function TFormBalanza.Valor(SS: string) :Integer;

var

  i:Integer;

begin

  i:=1;

  if SS='' then

    result:=-1

  else

    Result:=StrToInt(Copy(SS,i,6));

end;



end.

Espero que te sea util. Suerte.