SAP连接电脑串口读数(电子称，磅等数据读取)详解编程语言

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

FORM PRM_READ_PORT02  CHANGING E_OUTPUT. 
DATA: 
WA_BUFFER TYPE I, 
INDE      TYPE I,LV_CHAR TYPE C. 
DATA:LV_STR TYPE STRING VALUE '0123456789.'. 
DATA:LV_STR2 TYPE STRING. 
DATA:LV_STR3 TYPE STRING. 
DATA POS TYPE I. 
CLEAR:LV_CHAR,LV_STR2,INDE,LV_STR3,POS. 
WHILE LV_CHAR IS INITIAL. 
GET PROPERTY OF O_OBJ 'InBufferCount' = WA_BUFFER. 
IF WA_BUFFER > 0. 
GET PROPERTY OF O_OBJ 'Input' = E_OUTPUT. 
SEARCH E_OUTPUT FOR '+'. 
IF SY-SUBRC = 0. 
POS = SY-FDPOS. 
SHIFT E_OUTPUT BY ( POS + 1 ) PLACES. 
ELSE. 
CONTINUE. 
ENDIF. 
SEARCH E_OUTPUT FOR 'g'. 
IF SY-SUBRC = 0. 
POS = SY-FDPOS. 
E_OUTPUT = E_OUTPUT+0(POS). 
CONDENSE E_OUTPUT NO-GAPS. 
E_OUTPUT = E_OUTPUT. 
ELSE. 
CONTINUE. 
ENDIF. 
*      SEARCH E_OUTPUT FOR '.'. 
*      IF SY-SUBRC = 0. 
*      ELSE. 
*        CONTINUE. 
*      ENDIF 
*. 
CLEAR:LV_STR2. 
MOVE E_OUTPUT TO LV_STR2. 
IF LV_STR2 CO LV_STR. 
*        INDE = INDE + 1. 
*        IF INDE = 1. 
*          MOVE E_OUTPUT TO LV_STR3. 
*        ELSEIF INDE = 2. 
*          CLEAR:INDE. 
*          IF LV_STR2 = LV_STR3. 
LV_CHAR = 'X'. 
*          ENDIF. 
*        ENDIF. 
ENDIF. 
ENDIF. 
ENDWHILE. 
CLEAR:WA_BUFFER,INDE. 
ENDFORM.                    " PRM_READ_PORT02