मैरी-301 एमटीएम का टैमिंग

डिवाइस मारिया- 301MTM के हाथों में पड़ गया ... यह यूक्रेनी राजकोषीय रजिस्ट्रार है - नकद प्राप्तियों का प्रिंटर।


इस उपकरण का प्रोटोकॉल खुला है और कृपया निर्माता द्वारा प्रदान किया गया है
डिवाइस के साथ काम करने के लिए ड्राइवर, मैंने केवल भुगतान किया और काफी पुराना पाया। वास्तव में इसने लेख के लेखन को प्रेरित किया।

स्टॉक में: COM पोर्ट के साथ एक पुरानी नेटबुक। मैंने जो सबसे पहला काम किया वह था पोटीन चलाना और कनेक्शन की जांच करना। पसीना सेटिंग्स समता: यहां तक ​​कि; स्टॉपबिट: 2; गति: 57600 दो अक्षर "U" पास करें और "READY" प्राप्त करें। प्रोटोकॉल काम करता है, बंदरगाह जीवित है। पिछले प्रयोगों से नेटबुक पर mscomctl.ocx स्थापित किया। यह सेट मैरी के लिए सेवा कंसोल लिखने के लिए पर्याप्त है।

परिवहन प्रोटोकॉल:
1.कमांड: <start> <command_oparameters> <लंबाई> <अंत>;
2. उत्तर: <प्रारंभ> <जानकारी> <लंबाई> <अंत>,
जहाँ <start> = chr (253), <अंत> = chr (254)। कमांड की लंबाई 255 वर्णों से अधिक नहीं हो सकती है।


प्रिंटर "WAIT", "संपन्न", "पढ़ें" के साथ किसी भी कमांड का जवाब देता है। "पढ़ें" - का अर्थ है अगली टीम को स्वीकार करने की तत्परता। प्रतिक्रिया में त्रुटियां हो सकती हैं। उदाहरण के लिए, "" HARDTXD '' यदि कनेक्शन प्रकार समता के गलत प्रकार को निर्दिष्ट करता है, या '' SOFTPROTOC "एक अनुक्रम त्रुटि कमांड है ...

सामान्य तौर पर, मारिया के कॉन्फ़िगरेशन को प्राप्त करने के लिए vbscript इस तरह दिखता है:

dim MSComm1 dim txt function fillcmd(txtma) ret = chr(253) & txtma & chr(len(txtma)+1) & chr(254) fillcmd = ret end function function sendCmd(cmdTxt) ret = "" txt.writeline "cmd="+txtcmd MSComm1.Output = fillcmd(txtcmd) WScript.Sleep(100) ret = MSComm1.Input txt.writeline "answ="+ret sendCmd = ret end function function initMaria() txt.writeline "init" MSComm1.Output="U" WScript.Sleep(1) MSComm1.Output="U" WScript.Sleep(20) rez = MSComm1.Input txt.writeline "answ="+rez initMaria = rez end function function initComm() Set MSComm1=CreateObject("MSCOMMLib.MSComm") MSComm1.Settings = "57600,e,8,2" MSComm1.CommPort = 2 MSComm1.InBufferCount = 0 MSComm1.PortOpen = True MSComm1.DTREnable = True set fso = CreateObject("Scripting.FileSystemObject") set txt = fso.CreateTextFile("maria.log") initComm = "Ready" end function sub closePort() MSComm1.DTREnable = False MSComm1.PortOpen = False Set MSComm1 = Nothing txt.close Set txt = Nothing end sub res = initComm() res = initMaria() 'get maria configurarion txtcmd="CONF" res = sendCmd(txtcmd) closePort() 

उपयोगी विशेषताएं:
initComm () - एक पोर्ट और एक लॉग फाइल खोलता है
fillcmd (txtma) - विशेष प्रोटोकॉल वर्णों के साथ टेक्स्ट कमांड को फ़्रेम करता है

एक चेक प्रिंट करना:

 res = initComm() res = initMaria() 'user login txtcmd="UPAS111111111112345" res = sendCmd(txtcmd) 'cancel check txtcmd="CANC" res = sendCmd(txtcmd) 'open check txtcmd="PREP0" res = sendCmd(txtcmd) 'add line txtcmd="FISC"&" "&"000003000"&"000001000"&"00003"&"10"&_ "02000"&"000000"&"000000"&"000000"&"000000"&"000000"&"000000"&"000000"&"0001" '+"&'" "&" "&"" res = sendCmd(txtcmd) 'close check txtcmd="COMP"&"0000003000"&"0000000000"&"0000000000"&"0000000000"&"0000000000"&"0000003000" res = sendCmd(txtcmd) closePort() 

यह कोड 1 सी, एसीईएस, एक्सेल से रिपोर्ट प्रिंट करने के लिए पर्याप्त है
मुझे लगता है कि पुराने OLE32 को बदलने के लिए nativ-API का उपयोग करके ड्राइवर लिखना ...