Olá especialistas,
Estamos tentando ler dados da porta serial com a seguinte função que obtivemos da internet.
O problema surge ao criar o objeto com a sentença CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.
Isso retorna um sy-subrc = 2 e mostra a exceção NO_CREATE_OBJECT.
Já copiamos o arquivo MSCOMM32.OCX em c:\windows\system32 e o registramos corretamente com regsvr32.exe.
Tentamos no Windows XP e Vista.
Alguém tem alguma ideia?
Obrigado antecipadamente.
FUNCTION ZSERIALCOM.
*----
"
"Interface local
* IMPORTING
* REFERENCE(MODE) TYPE I DEFAULT 0
* REFERENCE(COMMPORT) TYPE I DEFAULT 1
* REFERENCE(SETTINGS) TYPE C DEFAULT '2400,N,8,1'
* REFERENCE(OUTPUT) TYPE C OPTIONAL
* EXPORTING
* REFERENCE(INPUT) TYPE C
* EXCEPTIONS
* NO_CREATE_OBJECT
*----
TYPE-POOLS: sabc.
INCLUDE ole2incl.
PERFORM init.
PERFORM open_port USING commport settings.
IF mode = 0.
PERFORM read_port
CHANGING input.
ENDIF.
IF mode = 1.
PERFORM write_port
USING output
CHANGING input.
ENDIF.
PERFORM final.
ENDFUNCTION.
DATA: o_obj TYPE ole2_object.
&----
*& Form Init
&----
----
-
--> texto p1
-
<-- texto p2
----
FORM init.
DATA:
wa_repid LIKE sy-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. " Init
----
----
----
-
--> COMMPORT *
-
--> SETTINGS *
----
FORM open_port USING commport settings.
SET PROPERTY OF o_obj
