escape kodu nasıl gönderiliyor pos yazicilara ?

[itsmylife38]

Arkadaslar selam aşagıda Qbasic ile yaziciya gönderilen bu kodları ben delphide hangi komut ile gönderebilirim CHR denedim olmadı.


'LPRINT CHR$(&H12); "ABC"; CHR$(&HA);

LPRINT CHR$(&HA) 'BOžLUK BIRKMAK ˜€˜N. SONUNNA V˜RGšL KOYARSAN BUFFER HATASI VER˜YOR.
'LPRINT CHR$(&H1B); "J"; CHR$(10) 'J DEN SONRAK˜ RAKAM KADAR ATLATMA YAPIYOR.(1-255) SONUNNA V˜RGšL KOYARSAN BUFFER HATASI VER˜YOR.
LPRINT CHR$(&H1D); "h"; CHR$(40); 'BARKODUN YšKSEKL˜¦˜N˜ AYARLIYOR.
LPRINT CHR$(&H1D); "w"; CHR$(2); 'BARKODUN GEN˜žL˜¦˜N˜ AYARALIYOR.(2-4)
LPRINT CHR$(&H1D); "H"; CHR$(2); 'YAZININ BARKODUN NERES˜NE YAZILACA¦INI AYARLIYOR.(0-3)
LPRINT CHR$(&H1D); "f"; CHR$(1); 'FOTN AYARLIYOR (0-1)
LPRINT CHR$(&H1D); "k"; CHR$(4); 'CODE TšRšNš AYARLIYOR 4 CODE 39 (1-6)
LPRINT "19751453"; CHR$(0); 'YAZILACAK MET˜N.
LPRINT CHR$(&HA); 'SATIR BAžI BOžLUK(BARKOD YAZARKEN ˜žLEMLER TESTEN ˜žL˜YOR)
LPRINT CHR$(26); 'KESME.



'LPRINT "11111111"; CHR$(&HA);
'LPRINT "22222222"; CHR$(&H1B); "J"; CHR$(255)
'LPRINT "33333333"; CHR$(&HA);
'LPRINT "44444444"; CHR$(&HA);


Delphide yukarıdaki kod su sekilde yazdırıyorum

AssignFile(fPrn, 'COM1');
ReWrite(fPrn);
WriteLn(fPrn, #65);
WriteLn(fPrn, #49#66,'j',#10);
WriteLn(fPrn, #49#68,'h',#40);
WriteLn(fPrn, #49#68,'w',#2);
WriteLn(fPrn, #49#68,'H',#2);
WriteLn(fPrn, #49#68,'f',#1);
WriteLn(fPrn, #49#68,'k',#4);
WriteLn(fPrn, QUERY1.FIELDBYNAME('NCRNO').ASSTRING, #0);
WriteLn(fPrn, #65);
WriteLn(fPrn, #26);

//...
// WriteLn(fPrn, #12); // sayfa başı
CloseFile(fPrn);

ama benim yazıcıya &H12 olan hexadecimal kodu belirtmem lazım o komutu bulamadım bir türlü

Tesekkürler

[fduman]

Delphi ve Pascal'da Hex kodlar $ işareti ile yazılır. Örnek:

$12 (hexadecimal 12) $FF (hexadecimal FF, decimal 255) gibi

AssignFile(fPrn, 'COM1');
ReWrite(fPrn);
WriteLn(fPrn, #65);

AssignFile'a gerek olmadan doğrudan COM porta yazabilmen lazım.

Örnek:

Kod: Tümünü seç

WriteLn('COM1', #$12);

[itsmylife38]

Sagolasın Allah Razı olsun

WriteLn('COM1', #$12);

yaptıgım zaman I/O hatası verdi ama frpn ile gönderebildim.

Tekrar teşekkür ederim kolay gelsin.