Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

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

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 06-10-2008
janlo janlo is offline
Registrado
 
Registrado: jul 2006
Posts: 8
Poder: 0
janlo Va por buen camino
problema con secuencias de escape

Hola,
tengo un programa de punto de venta y necesito saber como poder introducir las secuencias de escape para la apertura de cajon sin tener que ponerlas directamente en el codigo.Es decir, que las quiero guardar en la base de datos como parte de la configuración y no tener que ponerlas en el codigo.
Ahora mismo tengo:

AssignFile(nPrn,'LPT1');
Rewrite(nPrn);
WriteLn(nPrn,#27+#112+#0+#10+#100);
CloseFile(nPrn);

Pues bien, esos valores los tengo en una tabla pero cuando los leo me los trata como string y no como asscii. ¿Cómo puedo hacer para tratarlos como asscii directamente?.

Gracias de antemano.
Responder Con Cita
  #2  
Antiguo 06-10-2008
Avatar de seoane
[seoane] seoane is offline
Miembro Premium
 
Registrado: feb 2004
Ubicación: A Coruña, España
Posts: 3.717
Poder: 24
seoane Va por buen camino
Puedes usar algo como esto:
http://www.clubdelphi.com/foros/show...00&postcount=6

O como esto:
http://www.clubdelphi.com/foros/showthread.php?t=54626
Responder Con Cita
  #3  
Antiguo 06-10-2008
[coso] coso is offline
Miembro Premium
 
Registrado: may 2008
Ubicación: Girona
Posts: 1.678
Poder: 0
coso Va por buen camino
bueno...una string son una serie de caracteres ascii ...creo que el problema te viene de la manera que guarda la base de dados los strings, pues es probable que los codigos de control (#27,#0,#10) los ignore. Yo lo que he hecho para esto es guardar los numeros en un TStringList, uno en cada linea, y luego ir enviando segun necesite. Te lo pongo de memoria

Código Delphi [-]

procedure Salvar_codigo_apertura;
var
   sl : TStringList;
begin
    sl := TStringList.Create;
    sl.Add('27');
    sl.Add('112');
    sl.Add('0');
    ...
    sl.SaveToFile('c:\codobert.txt');
    sl.Free;
end;


procedure Enviar_codigo_apertura;
var
    sl : TStringList;
    i : integer;
begin
    sl := TStringList.Create;
    sl.LoadFromFile('c:\codobert.txt');
    AssignFile(nPrn,'LPT1');
    Reset(nPrn);

    for i := 0 to sl.Count - 1 do 
    Write(nPrn,char(strtoint(sl[i]));
   
    CloseFile(nPrn);
    sl.Free;
end;

Última edición por coso fecha: 06-10-2008 a las 23:02:44.
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
Secuencias de escape para abrir un TPV frvkaiser API de Windows 8 14-05-2014 13:12:56
Secuencias de Esc/Pos Star muli Impresión 0 29-01-2008 13:58:54
Ejecutar secuencias del teclado ilda2006 Varios 2 23-01-2008 18:11:04
Problema con codigos de escape Cecil Impresión 4 08-08-2007 16:33:38
Secuencias de escape en QReport fayala Impresión 1 14-04-2005 20:00:49


La franja horaria es GMT +2. Ahora son las 01:25:39.


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