Abrir CashDrawer(portamoneda) al Imprimir.

[ElCherchu]

Hola foristas..

Hace unos dias escribí pidiendo ayuda sobre como abrir una portamoneda al imprimir una factura y me pidieron mas detalles sobre la caja.. Urbano me envio un codigo para abrirla y no funcionó. Este fue el codigo.

procedure AbrirCajon();
var
nPrn: TextFile;
begin
AssignFile(nPrn, 'COM2');
Rewrite(nPrn);
WriteLn(nPrn,#27+#112+#0+#27+#112+#0);
CloseFile(nPrn);
end;

De verdad le agradezco su interès en ayudar..

Segun el manual la caja que estoy usando DYNA POS (DYN-CD300) con Basic se abre con el siguiente código:

PRINT #1, CHR$(&H1B);"p";CHR$(0);CHR$(100);CHR$(250);

pero no se como meterle mano a este asunto en delphi.

Cuento con su ayuda como siempre lo han hecho..

ElCherchu....