¡Caminando hacia el éxito!

Aprende en Comunidad

Avalados por :

Problema al crear objeto MSCOMMLib.MSComm.1: solución y consejos SEO

  • Creado 01/03/2024
  • Modificado 01/03/2024
  • 50 Vistas
0
Cargando...

Hola expertos,

Estamos intentando leer datos del puerto serie con la siguiente función que obtuvimos de internet.

El problema surge al crear el objeto con la sentencia CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

Esto devuelve un sy-subrc = 2 y muestra la excepción NO_CREATE_OBJECT.

Ya copiamos el archivo MSCOMM32.OCX en c:\windows\system32 y lo registramos correctamente con regsvr32.exe.

Lo intentamos en Windows XP y Vista.

¿Alguien tiene alguna idea?

Gracias de antemano.

FUNCTION ZSERIALCOM.

*"----


" "Interfaz 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

----


  • --> 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

----


  • FORM open_port *

----


  • ........ *

----


  • --> COMMPORT *

  • --> SETTINGS *

----


FORM open_port USING commport settings.

SET PROPERTY OF o_obj

Pedro Pascal
Se unió el 07/03/2018
Pinterest
Telegram
Linkedin
Whatsapp

4 Respuestas

0
Cargando...

Estimado amigo,

El problema ocurre al crear el objeto con la sentencia CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

Esto devuelve un sy-subrc = 2 y muestra la excepción NO_CREATE_OBJECT.

¿Cómo encontraste la solución al problema?

Gracias,

Sohail

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola Kholoud.

Puedes utilizar un programa desarrollado en Java o .NET para leer un puerto serie.

Después, debes utilizar Conectores SAP para enviar información entre este programa y SAP.

Conector Java-> http://help.sap.com/saphelp_nw70ehp1/helpdata/en/b4/3f9e64bff38c4f9a19635f57eb4248/frameset.htm

Conector .NET-> http://help.sap.com/saphelp_nw70ehp1/helpdata/en/fe/37c22b75e6154e8c67917bed8c70df/frameset.htm

Saludos,

Manuel H.

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola,

Estoy teniendo el mismo problema, ¿encontraste alguna solución?

Gracias

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019
0
Cargando...

Hola,

¿Tuviste alguna idea de cómo proceder? Estoy teniendo el mismo problema.

Respondido el 15/04/2024
LUCIANO RIOJA GHIOTTO
Se unió el 13/07/2019

contacto@primeinstitute.com

(+51) 1641 9379
(+57) 1489 6964

© 2024 Copyright. Todos los derechos reservados.

Desarrollado por Prime Institute

¡Hola! Soy Diana, asesora académica de Prime Institute, indícame en que curso estas interesado, saludos!
Hola ¿Puedo ayudarte?