SAP連線電腦串列埠讀數(電子稱,磅等資料讀取)
阿新 • • 發佈:2019-01-28
這是幾年前做的了,一直都不想分享出來,後來想想為了能夠給大家點想法,獻出來了。。。
這是一個電腦讀稱的方法,一般用COMM口連線的電子裝置都可參考。
如果是對串列埠引數不確定的,可以網上找個串列埠測試工具,輕鬆測出串列埠引數
網上搜索MSCOMM32.OCX
1.將上面的MSCOMM32.OCX儲存到系統目錄下C:\Windows\SysWOW64\MSCOMM32.OCX
然後註冊:REGSVR32 C:\Windows\SysWOW64\MSCOMM32.OCX
2.修改登錄檔:
REGEDIT
在HKEY_CLASSES_ROOT\Licenses下建一項:
4250E830-6AC2-11cf-8ADB-00AA00C00905
修改數值資料:kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun
重新啟動電腦,這樣COMM元件就能使用了
以上是在PC上配置的資料。
登陸GUI
T-code: SOLE
新建條目:
OLE 應用程式 MSCOMMLIB.MSCOMM.1
版本號
類標識 {648A5600-2C6E-101B-82B6-000000000014}
CLSID 庫型別
OLE 物件名
型別資訊鍵值
包含程式
語言
檢查許可權
文字
FUNCTION z_bc_get_balance. *"----------------------------------------------------------------------*"*"本地介面: *" IMPORTING *" REFERENCE(MODE) TYPE I DEFAULT 0 *" REFERENCE(COMMPORT) TYPE I DEFAULT 1 *" VALUE(SETTINGS) TYPE C DEFAULT '1200,N,8,1' *" REFERENCE(I_INPUT) TYPE C OPTIONAL *" EXPORTING *" REFERENCE(E_OUTPUT) TYPE C *" EXCEPTIONS *" NO_CREATE_OBJECT *"----------------------------------------------------------------------TYPE-POOLS:sabc. INCLUDE ole2incl. DATA pos TYPE i. CLEAR: pos,balance,value,e_output. PERFORM prm_get_settings CHANGING settings. * WAIT UP TO 3 SECONDS. PERFORM prm_init. PERFORM prm_open_port USING commport settings. IF mode = 0."讀取串列埠資料 PERFORM prm_read_port CHANGING e_output. ELSEIF mode = 1."寫串列埠資料 PERFORM prm_write_port USING i_input CHANGING e_output. ENDIF. PERFORM prm_final. SEARCH balance FOR '+'. IF sy-subrc = 0. pos = sy-fdpos. SHIFT balance BY ( pos + 1 ) PLACES. ENDIF. SEARCH balance FOR 'g'. IF sy-subrc = 0. pos = sy-fdpos. balance = balance+0(pos). CONDENSE balance NO-GAPS. e_output = balance. ENDIF. COMMIT WORK ENDFUNCTION. 此塊為配置介面型別模組(自建表用IP地址來配置相應的comm口引數) ***************************************************************************** FORM prm_get_settings CHANGING p_settings. DATA addr TYPE ni_nodeaddr. CLEAR addr. CALL FUNCTION 'TH_USER_INFO' IMPORTING addrstr = addr. SELECT SINGLE setting INTO p_settings FROM zbctaddr WHERE addr = addr. IF sy-subrc = 0. CLEAR addr. ENDIF. ENDFORM. " PRM_GET_SETTINGS 初始化介面物件 ****************************************************************************** FORM prm_init . DATA: wa_repid LIKE sy-repid. CLEAR wa_repid. wa_repid = sy-repid. CALL FUNCTION 'AUTHORITY_CHECK_OLE' EXPORTING program = wa_repid activity = sabc_act_call application = 'MSCOMMLIB.MSCOMM.1' EXCEPTIONS no_authority = 1 activity_unknown = 2 OTHERS = 3. IF sy-subrc <> 0. MESSAGE ID sy-msgid TYPE sy-msgty NUMBER sy-msgno WITH sy-msgv1 sy-msgv2 sy-msgv3 sy-msgv4. ENDIF. CREATE OBJECT o_obj 'MSCOMMLib.MSComm.1'. IF sy-subrc <> 0. RAISE no_create_object. ENDIF. ENDFORM. " PRM_INIT 介面開啟 *************************************************************************** FORM prm_open_port USING commport settings. SET PROPERTY OF o_obj 'CommPort' = commport. SET PROPERTY OF o_obj 'Settings' = settings. SET PROPERTY OF o_obj 'InputLen' = 0. SET PROPERTY OF o_obj 'PortOpen' = 1. ENDFORM. " PRM_OPEN_PORT 讀取介面資料:因為介面有快取所以每次讀取時都是去掉前面20次的資料 而且每次讀取的資料都是不完整的,所以需要將多次讀取的資料連線起來,然後擷取 **************************************************************************** FORM prm_read_port CHANGING e_output. DATA: wa_buffer TYPE i, inde TYPE i. DO 70 TIMES. inde = inde + 1. GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer. IF wa_buffer > 0. GET PROPERTY OF o_obj 'Input' = e_output. IF inde < 20. ELSE. CONCATENATE balance e_output INTO balance. ENDIF. ENDIF. ENDDO. CLEAR:wa_buffer,inde. ENDFORM. " PRM_READ_PORT 往串列埠寫資料,因為沒有需求所以沒做測試 ********************************************************************* FORM prm_write_port USING i_input CHANGING e_output. DATA: wa_buffer TYPE i. SET PROPERTY OF o_obj 'Output' = i_input. DO 40 TIMES. GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer. IF wa_buffer > 0. GET PROPERTY OF o_obj 'Input' = e_output. EXIT. ENDIF. ENDDO. ENDFORM. " PRM_WRITE_PORT 讀數結束,關閉串列埠,釋放物件,清空變數 ************************************************************************ FORM prm_final . SET PROPERTY OF o_obj 'PortOpen' = 0. FREE OBJECT o_obj. CLEAR o_obj. COMMIT WORK. ENDFORM. " PRM_FINAL