topic Re: Function for reading from serial port in Application Development and Automation Discussions

Function for reading from serial port

Former Member — Sun, 22 Aug 2010 00:21:38 GMT

Hi experts,

We are trying to read data from the serial port with the following function we got from internet.

The problem is when creating the object with the sentence CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

This returns a sy-subrc = 2 and shows the exception NO_CREATE_OBJECT.

We already copied the file MSCOMM32.OCX in c:\windows\system32 and we successfuly registered it, with regsvr32.exe.

We tried it with Windows XP and Vista.

Anybody has any idea?

Thanks in advance

FUNCTION ZSERIALCOM.

*"----

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

&----

text

----

--> p1 text
<-- p2 text

----

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 'CommPort' = commport.

SET PROPERTY OF o_obj 'Settings' = settings.

SET PROPERTY OF o_obj 'InputLen' = 0.

SET PROPERTY OF o_obj 'PortOpen' = 1.

ENDFORM. "open_port

----

FORM read_port *

----

........ *

----

--> INPUT *

----

FORM read_port

CHANGING input.

DATA:

wa_buffer TYPE i.

DO 10 TIMES.

GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer.

IF wa_buffer > 0.

GET PROPERTY OF o_obj 'Input' = input.

EXIT.

ENDIF.

ENDDO.

ENDFORM. " read_port

----

FORM write_port *

----

........ *

----

--> OUTPUT *

----

FORM write_port

USING output

CHANGING input.

DATA:

wa_buffer TYPE i.

SET PROPERTY OF o_obj 'Output' = output.

DO 10 TIMES.

GET PROPERTY OF o_obj 'InBufferCount' = wa_buffer.

IF wa_buffer > 0.

GET PROPERTY OF o_obj 'Input' = input.

EXIT.

ENDIF.

ENDDO.

ENDFORM.

&----

*& Form final

&----

text

----

--> p1 text
<-- p2 text

----

FORM final.

SET PROPERTY OF o_obj 'PortOpen' = 0.

FREE OBJECT o_obj.

ENDFORM. " finalbligw

Re: Function for reading from serial port

farihakazi — Fri, 04 Mar 2011 10:36:49 GMT

Hello ,

did you get any idea about how to go about. I am having the same problem.

Re: Function for reading from serial port

Former Member — Thu, 24 Mar 2011 14:18:05 GMT

hey,

i'm having the same problem, did you found any solution?

Thanks

Re: Function for reading from serial port

manuelhildemaro_ramossanc — Thu, 14 Apr 2011 15:31:08 GMT

HI kholoud.

Can use a program developed in Java or .net to read a serial port.

After you should use SAP Connectors to send information between this program and SAP.

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

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

Regards,

Manuel H.

Re: Function for reading from serial port

Former Member — Mon, 18 Apr 2011 09:57:04 GMT

Hi,

I was worked with is FM

this FM worked below Conditions Only

1. MSCOMM32.OCX file Copy to user system " C:\Windows\System\" or system32

if u r working with 64 bit OS you paste it in WOW32 folder

2. execute regsvr32 MSCOMM32.OCX it given Successfully registered Message box

3.Now Active this MSCOMM32.OCX with Licence Key is like

- Open RUN execute : regedit

- Goo u201CHKEY_CLASSES_ROOT\Licenses\u201D

- create new key (Folder) name with '4250E830-6AC2-11cf-8ADB-00AA00C00905'

- Give the default VALUE: kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

4 Restart The System

Then Run Your FM it works when Serial port Have the data

Regard's

Vijay Reddy.G

Re: Function for reading from serial port

Former Member — Mon, 18 Apr 2011 09:58:45 GMT

Hi,

I was worked with is FM

this FM worked below Conditions Only

1. MSCOMM32.OCX file Copy to user system " C:\Windows\System\" or system32

if u r working with 64 bit OS you paste it in WOW32 folder

2. execute regsvr32 MSCOMM32.OCX it given Successfully registered Message box

3.Now Active this MSCOMM32.OCX with Licence Key is like

- Open RUN execute : regedit

- Goo u201CHKEY_CLASSES_ROOT\Licenses\u201D

- create new key (Folder) name with '4250E830-6AC2-11cf-8ADB-00AA00C00905'

- Give the default VALUE: kjljvjjjoquqmjjjvpqqkqmqykypoqjquoun

4 Restart The System

Then Run Your FM it works when Serial port Have the data

Regard's

Vijay Reddy.G

Re: Function for reading from serial port

Former Member — Tue, 02 Aug 2011 22:54:06 GMT

Dear Vijay,

registration worked perfect!

fm works great just trying to see how I can make it wait for data and then report back

Frans

Re: Function for reading from serial port

muhammad_sohail — Sat, 17 Nov 2012 07:48:37 GMT

Dear Friend,

The problem is when creating the object with the sentence CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

This returns a sy-subrc = 2 and shows the exception NO_CREATE_OBJECT.

How did you find the solution of the problem

Thanks

Sohail

Re: Function for reading from serial port

muhammad_sohail — Sat, 17 Nov 2012 07:49:55 GMT

Dear Friend,

The problem is when creating the object with the sentence CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

This returns a sy-subrc = 2 and shows the exception NO_CREATE_OBJECT.

How did you find the solution of the problem

Thanks

Sohail

Re: Function for reading from serial port

muhammad_sohail — Sat, 17 Nov 2012 07:50:35 GMT

Dear Friend,

The problem is when creating the object with the sentence CREATE OBJECT o_obj '"MSCOMMLib.MSComm.1"'.

This returns a sy-subrc = 2 and shows the exception NO_CREATE_OBJECT.

How did you find the solution of the problem

Thanks

Sohail

Re: Function for reading from serial port

Former Member — Mon, 27 May 2013 07:31:19 GMT

Hello,

i am working on same object.I usethe same thing.I am not getting errors but not getting values either.

Intel(R) ICH10D LPC Interface Controller - 3A1A this is the COMM port driver.I have one doubt

(SETTINGS) TYPE C DEFAULT '2400,N,8,1'these values change.Please lte me know.

Thanks in advance.

Re: Function for reading from serial port

Former Member — Mon, 27 May 2013 07:33:12 GMT

Hello,

i am working on same object.I usethe same thing.I am not getting errors but not getting values either.

Intel(R) ICH10D LPC Interface Controller - 3A1A this is the COMM port driver.I have one doubt

(SETTINGS) TYPE C DEFAULT '2400,N,8,1'these values change.Please lte me know.

Thanks in advance.

Re: Function for reading from serial port

Former Member — Mon, 27 May 2013 07:36:05 GMT

Hello,

i am working on same object.I usethe same thing.I am not getting errors but not getting values either.

Intel(R) ICH10D LPC Interface Controller - 3A1A this is the COMM port driver.I have one doubt

(SETTINGS) TYPE C DEFAULT '2400,N,8,1'these values change.Please lte me know.

Thanks in advance.

Re: Function for reading from serial port

Former Member — Mon, 27 May 2013 09:18:17 GMT

Hello,

i am working on same object.I usethe same thing.I am not getting errors but not getting values either.

Intel(R) ICH10D LPC Interface Controller - 3A1A this is the COMM port driver.I have one doubt

(SETTINGS) TYPE C DEFAULT '2400,N,8,1'these values change.Please lte me know.

Thanks in advance

Re: Function for reading from serial port

Former Member — Thu, 30 May 2013 09:38:04 GMT

Hello everybody,

I have worked according the following link http://scn.sap.com/thread/1688977

But in program SET PROPERTY OF o_obj 'PortOpen' = 1. I am getting sy-subrc = 3.I have all ports open.firewall Off.I am using COMM1 port.

passed following parameters 9600,N,8,1.Please let me guide from here.urgent.

Thanks in advance.

Sridhar.

Re: Function for reading from serial port

Former Member — Thu, 30 May 2013 09:38:51 GMT

Hello everybody,

I have worked according the following link http://scn.sap.com/thread/1688977

But in program SET PROPERTY OF o_obj 'PortOpen' = 1. I am getting sy-subrc = 3.I have all ports open.firewall Off.I am using COMM1 port.

passed following parameters 9600,N,8,1.Please let me guide from here.urgent.

Thanks in advance.

Sridhar.

Re: Function for reading from serial port

Former Member — Mon, 29 Jul 2013 15:55:17 GMT

Hi,

I tried the same way as mentioned here. Everything works ok, but it is not returning any data. The FM returns nothing.Please help.

regards,

Thamil.

Re: Function for reading from serial port

Former Member — Sat, 09 Nov 2013 07:29:52 GMT

This message was moderated.

Re: Function for reading from serial port

Former Member — Mon, 15 Dec 2014 10:14:43 GMT

I have developed the FM and done the settings as per the below link

when I executed the FM independently I was able to get the weight from the weigh bridge,but when I use the FM in my program I am not able to get the value from the weighbridge.the value is coming as blank.any suggestion is appreciated ..

thanks

Vivek

Re: Function for reading from serial port

Former Member — Mon, 15 Dec 2014 11:54:44 GMT

Hi ,

I want to read value form weigh bridge through COMM port. I have developed the FM and done the setting as mentioned in the below link

Read COMM port using ABAP w/o third party software

but while executing the FM independently I am able to get the value from the COMM port,but when I call the FM from a program I am not able to get the output value from the FM.I am calling the FM from the report program.please find the code below.

report test.

data : lv_input TYPE c.

CALL FUNCTION 'ZFM_WEIGHINTERFACE'

EXPORTING

MODE = 0

COMMPORT = 1

SETTINGS = '1200,N,8,1'

OUTPUT = ''

IMPORTING

INPUT = lv_input

EXCEPTIONS

NO_CREATE_OBJECT = 1

OTHERS = 2

IF SY-SUBRC <> 0.

* Implement suitable error handling here

ENDIF.

if I execute the FM independently the output is getting perfectly.but while calling from a program i am facing the issue..

any suggestion is appreciated.

Thanks

Vivek