Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > API de Windows
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 14-06-2005
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino
Hola. Pues ya has llegado bastante cerca. Los códigos que tenes son las secuencias que hay que enviar al dispositivo. Ojo que no todos los fabricantes se ajustan a la misma secuencia y habrá de ver si tu cajón en particular lo hace... si no, pues hay que leer algo del manual que seguramente lo acompaña.

Luego, para enviarle los códigos lo que corresponde es tratar el cajón como si se tratase de un archivo de texto (tal como se hace con las impresoras) y "escribirle" los códigos.

Algo como:

Código Delphi [-]
  Var
    cajon : Text;
    
  Begin
    assignFile(cajon, 'com1');
    rewrite(cajon);  //apertura del archivo
    try
      write(cajon, #27#33#1); {esto es la secuencia 27,33,1 que ya tenes}
      //etcetera
    finally
      Close(cajon);  //cerrar el archivo
    end;
  end;

Si aún te quedan dudas, yo he encontrado en una búsqueda simple estos otros hilos:

https://www.clubdelphi.com/foros/showthread.php?t=20676
https://www.clubdelphi.com/foros/showthread.php?t=12535
https://www.clubdelphi.com/foros/showthread.php?t=15703
https://www.clubdelphi.com/foros/showthread.php?t=14919
https://www.clubdelphi.com/foros/showthread.php?t=11143

Hasta luego.
__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
  #2  
Antiguo 15-06-2005
Citlalli Citlalli is offline
No confirmado
 
Registrado: may 2005
Posts: 40
Poder: 0
Citlalli Va por buen camino
jachguate,

de verdad te lo agradezco con toda el alma, ahora mismo voy a probar el código y ya te platicaré.


saludos
Responder Con Cita
  #3  
Antiguo 13-07-2005
Caballero Negro Caballero Negro is offline
Registrado
 
Registrado: jul 2005
Posts: 3
Poder: 0
Caballero Negro Va por buen camino
Abrir cajon de dinero con tecnologia OPOS

Hola Citlali.
Estuve siguiendo todos tus mensajes. Espero que este todavia te sirva.
Si estas desarrollando un punto de venta te recomiendo que utilices tecnologia OPOS que es el standar desarrollado por Microsoft y las principales industrias de Hardware para aplicaciones de punto de venta.
A grandes pasos debes hacer lo siguiente.
1. Chechar si los dispositivos que utilices (en este caso el cajon de dinero) esta soportado por OPOS.
2. Instalar los componentes standarizados OCX de la siguiente pagina http://www.monroecs.com/oposccos.htm
3. Instalar el ADK de tu fabricante. Este viene especificada en la documentación de tu dispositivo.
4. Instalar los componentes POS OCX en Delphi. Esto te va a crear componetnes no visuales los cuales te facilitaran enormemente el desarrollo.
5. Crear las rutinas especializadas para el control de tus dispositivos.
Te anexo la que yo utilizo para el control del cajon.

OposCajon := TOPOSCashDrawer.Create(Application);
if OposCajon.Open(IntToStr(Num_Cajon)) <> OPOS_SUCCESS
Then
raise Exception.Create('Cajon '+IntToStr(Num_Cajon)+' Open E:'+IntToStr(OposCajon.ResultCode)+' '+getOPOSError(OposCajon.ResultCode));
if OposCajon.ClaimDevice(1000) <> OPOS_SUCCESS Then
raise Exception.Create('Cajon '+IntToStr(Num_Cajon)+' Claim E:'+IntToStr(OposCajon.ResultCode)+' '+getOPOSError(OposCajon.ResultCode));
OposCajon.DeviceEnabled := True;
if OposCajon.ResultCode <> OPOS_SUCCESS Then
raise Exception.Create('Cajon '+IntToStr(Num_Cajon)+' E:'+getOPOSError(OposCajon.ResultCode));
XModulo.logMsg('OPOS Inicialización de Cajon '+IntToStr(OposCajon.ResultCode)+' '+IntToStr(Num_Cajon));
Result := True;

Es mucho mas sencillo de lo que aparenta..
Si tienes dudas con gusto te puedo ayudar.
Saludos!!!
Responder Con Cita
  #4  
Antiguo 22-07-2005
GCASTILLO GCASTILLO is offline
Miembro
 
Registrado: sep 2004
Ubicación: Villahermosa tab. Mexico
Posts: 20
Poder: 0
GCASTILLO Va por buen camino
abrir Cajon

Ahi le va algo de mis conocimientos
No soy Programador

Los CashDrawer (cajos de efectvos) todo son similares, por dentro su mecanismo tiene un relay que recibe ya sea del puerto com1, com2 o de una impresora voltage de 9 voltios, que hace soltar el seguro y abre el cajon.

hacer prueva desde dos
crear un archivo(aaa) de texto
gravar signo(asci) de rombo con Ctrl-G.
usar el tubo de dos
copy aaa > com1:
esta instrucion manda a abrir el cajon,

Saludos a todos
Responder Con Cita
  #5  
Antiguo 28-11-2006
FOURIER FOURIER is offline
Miembro
 
Registrado: dic 2005
Posts: 40
Poder: 0
FOURIER Va por buen camino
Abrir El Cajon Espero Te Sirva

Otra manera de abrir el Cajon es un TPRINTER;

para esto primero necesitas poner en Unit a QPrinters,


ya hecho esto ahora puedes hacer lo siguiente

Código Delphi [-]
Printer.begindoc;
printer.Canvas.font.size:=0;
printer.Canvas.font.Name:='Control';
printer.Canvas.TextOut(0,0,'A');
printer.enddoc;


Esto te abrirá el cajón; espero te sirva de ayuda
Responder Con Cita
  #6  
Antiguo 06-12-2006
federicorl federicorl is offline
Miembro
 
Registrado: may 2006
Posts: 31
Poder: 0
federicorl Va por buen camino
Talking abrir cajon de dinero

no es la respuesta a tu pregunta porque veo que jachguate ya te la respondio yo mismo he usado estas instrucciones y funcionan muy bien tomando en cuenta que tengas las secuencias de escape correctas, yo mas bien adiciono tu pregunta, alguien sabe de un dispositivo tipo cajon de dinero, basicamente una interfase con solenoide que se pueda conectar a un puerto serial que este en el mercado, necesito dotar de un par de estas a una aplicacion que te abre y cierra puertas, nasicamete requiero de marcas y modelos para buscar un proveedor aqui en guadalajara, la de mexico no la de españa

saludos y gracis de antemano
Responder Con Cita
  #7  
Antiguo 08-12-2006
Avatar de jachguate
jachguate jachguate is offline
Miembro
 
Registrado: may 2003
Ubicación: Guatemala
Posts: 6.254
Poder: 28
jachguate Va por buen camino
buscá en google por "Cash drawer".

Saludos
__________________
Juan Antonio Castillo Hernández (jachguate)
Guía de Estilo | Etiqueta CODE | Búsca antes de preguntar | blog de jachguate
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

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


La franja horaria es GMT +2. Ahora son las 07:11:28.


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