hallo zusammen,
ich möchte aus lazarus heraus die esc-seq. zum Öffnen der Kassenschublade an den Drucker schicken.
mit:
Code:
stream := tfilestream.create(printerport,fmOpenWrite);
stream.Write(pchar(myText)^,length(myText));
schicke ich "normalen" Text (in mytext)zum Drucker, der dort auch brav gedruckt wird
wie aber bekomme ich die esc-seq zum Drucker.
lt Manual soll folgende Sequenz geschickt werden:
Die ESC-Sequenzen "Geldlade öffnen"
1) Schubladen Öffnung: ESC p m t1 t2;
z. B. Chr(&H1B) + "p" + Chr(&H0) + Chr(&H64) + Chr(&H64)
Aus QBASIC heraus:
PRINT#1,CHR$(27);CHR$(112);CHR$(0);CHR$(50);CHR$(1 50);
wie funkt das in pascal?
ichdanke euch gewaltig für eure Ideen.
Gruss KHH