發票機 WP-520 請問有人有寫過嗎 |
尚未結案
|
shinnuei
一般會員 發表:32 回覆:48 積分:21 註冊:2002-03-13 發送簡訊給我 |
各位大大:
1.這是我寫的部份,但有時可以印有時卻印不出來,不知那出了問題,請有寫過的大大幫忙.
2.還是有其他的大大之前有寫過,可以讓我參考看看,謝謝
VAR cb : DCB; S, A, B, data : STRING; dwfile : DWORD; vCom : STRING; hComm : THandle; BEGIN vCom := 'COM4'; hComm := CreateFile(PChar(vCom), Generic_Read OR Generic_Write, 0, NIL, OPEN_EXISTING, FILE_ATTRIBUTE_NORMAL, 0); BuildCommDCB(pchar('9600,n,8,1'), cb); SetCommState(hComm, cb); Sleep(300); SetCommState(hComm, cb); //*設定通訊埠*/ s := format('%s', [#$1B 'R' #$13]); WriteFile(hComm, s, length(s), dwfile, NIL); a := format('%s', [#$1B 'P' 'B' '1']); b := format('%s', [#$13]); data := format('%s', ['adfasdfasf']); WriteFile(hComm, a, length(a), dwfile, NIL); Sleep(30); WriteFile(hComm, data[1], length(data), dwfile, NIL); Sleep(30); WriteFile(hComm, b, length(b), dwfile, NIL); Sleep(30); CloseHandle(hComm); |
cwc65536
初階會員 發表:47 回覆:121 積分:48 註冊:2004-10-14 發送簡訊給我 |
|
5997
一般會員 發表:1 回覆:7 積分:1 註冊:2003-01-14 發送簡訊給我 |
以前寫過,整串給你,希望對你有幫助..
送出comport自己寫喔
_WriteToCom(testcom, CHR(27) CHR(27) 'G' CHR(13));//開錢櫃 _WriteToCom(testcom, CHR(27) CHR(27) 'P' 'B' '1' '輸出的字串' CHR(13));//文字輸出 _WriteToCom(testcom, CHR(27) CHR(27) 'P' 'B' '1' CHR(13));//跳一行 _WriteToCom(testcom, CHR(27) CHR(27) 'V' 'B' CHR(13));//裁紙 請注意 ! wp520有二種字集 一是wp字集,一是epson字集 帥哥
------
帥哥 |
shinnuei
一般會員 發表:32 回覆:48 積分:21 註冊:2002-03-13 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |