abrir cajon de dinero serial

[Citlalli]

gracias jachguate por tu buena intencion de ayudarme pero tu link me lleva a la busqueda avanzada, no entiendo !!

saludos

[jachguate]

El tema se ha tratado varias veces aqui. Dado que los foros del club no son un servicio de soporte técnico, se recomienda siempre buscar en la base de datos de conocimiento formada con todas las preguntas y respuestas que al cabo de los años se han acumulado aqui, y abrir un nuevo hilo solamente si no se ha encontrado lo que se buscaba.

Hasta luego.

[Citlalli]

ok, ok, tienes razon, estuve buscando en los foros viejos a traves de la ayuda avanzada y no he encontrado lo que necesito, lo mas cerca es el ejemplo de una balanza y en dicho ejemplo hablan de un componente, el cual ya bajé, pero no se como utilizarlo, y la verdad es que me estoy volviendo loca, que me recomiendas?

saludos

[Citlalli]

mira, estuve nuevamente viendo los foros viejos y hablan del cajon de dinero conectado a impresora de tickets, yo no ocupo impresora, yo tengo el cajon conectado directamente al com1, y lo unico que me dieron fueron estos codigos:

inicializacion 27,33,1
acceso a puerto 27,61,1
apertura cajon 27,112,48
finalizacion 27,33,0

pero de verdad no se como utilizarlos, se que tienes razon en que esto no es un servicio de soporte tecnico, pero quien mas me puede ayudar si no es ClubDelphi, ojala puedas hacer esta unica excepción, muchisimas gracias.

Saludos

[jachguate]

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.

[Citlalli]

jachguate,

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


saludos

[Caballero Negro]

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!!!