Ver Mensaje Individual
  #4  
Antiguo 12-08-2003
Motoboy Motoboy is offline
Miembro
 
Registrado: ago 2003
Posts: 11
Reputación: 0
Motoboy Va por buen camino
Question

Con este código me daba un access violation. Es uno de los hilos que me comentabas, con el otro no me he aclarado.

procedure Tform1.Button1OnClick(sende:Tobject);
Var
i:Integer;
archivo:TextFile;
cadena:string;

begin
Assign(archivo,'COM1');
reset(archivo);
// esta cadena es la misma que se recomienda en el manual de la impresora para lenguaje cobol
cadena:=chr$(27)+chr$(99)+chr$(4+chr$(4);
writeln(archivo,cadena);
writeln('Esta es una prueba de impresión de la función Slip');
end;

Al final he utilizado la opción "tprinter" del delphi y he impreso bien. Qué problema tengo ahora?.

Para abrir el portamonedas tengo que mandarle un código hexadecimal a la impresora (<ESC>pmt1t2). yo utilizo #$1B + ... El problema es que según recuerdo $1B es el escape pero la impresora recibe el código 2E + ...

Puede ser que cómo no tengo nada en el config.sys no esté preparada la página de códigos??????

Abriré algún día el portamonedassss????. Por lo menos he conseguido imprimir.
Responder Con Cita