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.