Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Temas de Hoy

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 01-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
no me urge mucho.

muchas gracias
Responder Con Cita
  #2  
Antiguo 02-11-2018
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
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
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney
Responder Con Cita
  #3  
Antiguo 02-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
muchas gracias, mas tarde lo probare y informo del resultado, muchisimas gracias por su ayuda
Responder Con Cita
  #4  
Antiguo 02-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
buenas, demomento me surge una duda y es sobre el procedure TLector.InicializaCOM
que es el InicializaCOM? un componente del turbo power astyc? seguramente es lo que me faltaba cuando lo intentaba hacer, pero no encuentro nada sobre el InicializaCOMm de donde lo saco?

muchas gracias de nuevo
Responder Con Cita
  #5  
Antiguo 02-11-2018
Bolox Bolox is offline
Miembro
 
Registrado: jul 2018
Posts: 14
Poder: 0
Bolox Va por buen camino
No tengo ni idea de como va ese componente, pero TLector.InicializaCOM es el procedimiento que crea egostar. No creo que te lo de el componente sino que lo inicia él.
Responder Con Cita
  #6  
Antiguo 02-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
eso lo he pensado tambien, que sea un procedure que crea el aposta, pero no veo donde llama ese mismo procedure para que se active, por lo que no me cuadra

Última edición por Racso2006 fecha: 02-11-2018 a las 15:02:04.
Responder Con Cita
  #7  
Antiguo 02-11-2018
[egostar] egostar is offline
Registrado
 
Registrado: feb 2006
Posts: 6.557
Poder: 25
egostar Va camino a la fama
Cita:
Empezado por Racso2006 Ver Mensaje
buenas, demomento me surge una duda y es sobre el procedure TLector.InicializaCOM
que es el InicializaCOM? un componente del turbo power astyc? seguramente es lo que me faltaba cuando lo intentaba hacer, pero no encuentro nada sobre el InicializaCOMm de donde lo saco?

muchas gracias de nuevo
Cita:
Empezado por Bolox Ver Mensaje
No tengo ni idea de como va ese componente, pero TLector.InicializaCOM es el procedimiento que crea egostar. No creo que te lo de el componente sino que lo inicia él.
Hola

Bueno, no pensé que provocaría confusión el procedimiento InicializaCOM, es un procedimiento que mando llamar (entre otras cosas más) cuando la forma es creada.



Código Delphi [-]
  TLector = class(TForm) 
  //...
  private
    { Private declarations }
    procedure InicializaCOM;
  public
    { Public declarations }
  end;

implementation

procedure TLector.FormCreate(Sender: TObject);
begin
  //..
  Parity := 1;
  InicializaCOM;
  //..
end;

Saludos
__________________
"La forma de empezar es dejar de hablar y empezar a hacerlo." - Walt Disney

Última edición por egostar fecha: 02-11-2018 a las 15:16:04.
Responder Con Cita
  #8  
Antiguo 02-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
perfecto, muchisimas gracias por su ayuda, hasta el lunes no lo podnre en practica debido a que me he ido de viaje y hoy no tenia dicho scaner de DNIs, pero el lunes lo comprobare sin falta
Responder Con Cita
  #9  
Antiguo 05-11-2018
Racso2006 Racso2006 is offline
Miembro
 
Registrado: nov 2017
Posts: 19
Poder: 0
Racso2006 Va por buen camino
buenas tardes egostar, vuelvo a agradecer su ayuda, no obstante ahora que lo he probado me surje un problemilla, y es que con mi programa de lectura abierto ocupo el com3 por lo que el programa del scaner no se puede comunicar con el para mandarle escanear, ya que cuando lo tengo abierta el programa del scaner no me deja conectar al com3.

por lo que necesitaria saber como mandar ordenes a traves del COM3, he buscado mucha info pero hay algo que me lia mucho y es que casi todo lo que encuentro utilizan el comport y no el apdcomport, yo no tengo ningun componente comport por lo que creo que no interpreto bien toda la infomacion que encuentro.

no obstante me podria indicar como poder mandar una orden a traves del com3 y asi despues de dicha orden (que buscare en el manual del scaner) el mismo scaner me enviara los datos y el codigo anterior lo podra recibir (espero :P)

muchas gracias por su ayuda
Responder Con Cita
Respuesta



Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Configuración TurboPower Async Professional para Delphi 7 jvb2008 Varios 0 24-10-2014 19:42:44
Zarko Gajic nominado como Most Valuable Professional por Embarcadero AzidRain La Taberna 8 21-09-2012 21:46:53
Como leer los datos de un UPS kurono Varios 5 20-02-2012 09:23:51
Cómo puedo leer los datos de este xml!! bone Varios 16 23-02-2011 17:29:49
Componentes orpheus de turbopower jourdan Varios 1 16-10-2003 18:59:52


La franja horaria es GMT +2. Ahora son las 02:54:56.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi