COM & ABAP

[Former Member]

Hi,

I am using COM objects in ABAP/4. But I want to ask very basic question. Such as there is a function which's signature is:

bool app.doEvent();

And the corresponding code of this signature in ABAP/4

DATA: RESULT TYPE I VALUE 9.

DATA: APP TYPE OLE2_OBJECT.

...

...

CALL METHOD OF APP 'doEvent' = RESULT.

But, I see that RESULT is initial, not changed.

Shortly, how can I see the result of any method?

Thanks.

[com_2018]

Hi,

I wish that it will help you as follow code:

REPORT RSDEMO01 NO STANDARD PAGE HEADING.

• this report demonstrates how to send some ABAP data to an

• EXCEL sheet using OLE automation.

INCLUDE OLE2INCL.

• handles for OLE objects

DATA: H_EXCEL TYPE OLE2_OBJECT, " Excel object

H_MAPL TYPE OLE2_OBJECT, " list of workbooks

H_MAP TYPE OLE2_OBJECT, " workbook

H_ZL TYPE OLE2_OBJECT, " cell

H_F TYPE OLE2_OBJECT. " font

TABLES: SPFLI.

DATA H TYPE I.

• table of flights

DATA: IT_SPFLI LIKE SPFLI OCCURS 10 WITH HEADER LINE.

&----

---

*& Event START-OF-SELECTION

&----

---

START-OF-SELECTION.

• read flights

SELECT * FROM SPFLI INTO TABLE IT_SPFLI UP TO 10 ROWS.

• display header

ULINE (61).

WRITE: / SY-VLINE NO-GAP,

(3) 'Flg'(001) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

(4) 'Nr'(002) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

(20) 'Von'(003) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

(20) 'Nach'(004) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP,

(8) 'Zeit'(005) COLOR COL_HEADING NO-GAP, SY-VLINE NO-GAP.

ULINE (61).

• display flights

LOOP AT IT_SPFLI.

WRITE: / SY-VLINE NO-GAP,

IT_SPFLI-CARRID COLOR COL_KEY NO-GAP, SY-VLINE NO-GAP,

IT_SPFLI-CONNID COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

IT_SPFLI-CITYFROM COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

IT_SPFLI-CITYTO COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP,

IT_SPFLI-DEPTIME COLOR COL_NORMAL NO-GAP, SY-VLINE NO-GAP.

ENDLOOP.

ULINE (61).

• tell user what is going on

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

• PERCENTAGE = 0

TEXT = TEXT-007

EXCEPTIONS

OTHERS = 1.

• start Excel

CREATE OBJECT H_EXCEL 'EXCEL.APPLICATION'.

PERFORM ERR_HDL.

SET PROPERTY OF H_EXCEL 'Visible' = 1.

PERFORM ERR_HDL.

• tell user what is going on

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

• PERCENTAGE = 0

TEXT = TEXT-008

EXCEPTIONS

OTHERS = 1.

• get list of workbooks, initially empty

CALL METHOD OF H_EXCEL 'Workbooks' = H_MAPL.

PERFORM ERR_HDL.

• add a new workbook

CALL METHOD OF H_MAPL 'Add' = H_MAP.

PERFORM ERR_HDL.

• tell user what is going on

CALL FUNCTION 'SAPGUI_PROGRESS_INDICATOR'

EXPORTING

• PERCENTAGE = 0

TEXT = TEXT-009

EXCEPTIONS

OTHERS = 1.

• output column headings to active Excel sheet

PERFORM FILL_CELL USING 1 1 1 'Flug'(001).

PERFORM FILL_CELL USING 1 2 1 'Nr'(002).

PERFORM FILL_CELL USING 1 3 1 'Von'(003).

PERFORM FILL_CELL USING 1 4 1 'Nach'(004).

PERFORM FILL_CELL USING 1 5 1 'Zeit'(005).

LOOP AT IT_SPFLI.

• copy flights to active EXCEL sheet

H = SY-TABIX + 1.

PERFORM FILL_CELL USING H 1 0 IT_SPFLI-CARRID.

PERFORM FILL_CELL USING H 2 0 IT_SPFLI-CONNID.

PERFORM FILL_CELL USING H 3 0 IT_SPFLI-CITYFROM.

PERFORM FILL_CELL USING H 4 0 IT_SPFLI-CITYTO.

PERFORM FILL_CELL USING H 5 0 IT_SPFLI-DEPTIME.

ENDLOOP.

• disconnect from Excel

FREE OBJECT H_EXCEL.

PERFORM ERR_HDL.

----

---

• FORM FILL_CELL *

----

---

• sets cell at coordinates i,j to value val boldtype bold *

----

---

FORM FILL_CELL USING I J BOLD VAL.

CALL METHOD OF H_EXCEL 'Cells' = H_ZL EXPORTING #1 = I #2 = J.

PERFORM ERR_HDL.

SET PROPERTY OF H_ZL 'Value' = VAL .

PERFORM ERR_HDL.

GET PROPERTY OF H_ZL 'Font' = H_F.

PERFORM ERR_HDL.

SET PROPERTY OF H_F 'Bold' = BOLD .

PERFORM ERR_HDL.

ENDFORM.

&----

---

*& Form ERR_HDL

&----

---

• outputs OLE error if any *

----

---

• --> p1 text

• <-- p2 text

----

---

FORM ERR_HDL.

IF SY-SUBRC <> 0.

WRITE: / 'Fehler bei OLE-Automation:'(010), SY-SUBRC.

STOP.

ENDIF.

ENDFORM. " ERR_HDL

[Former Member]

hi, sometime the COM method will have [in]/[out] parameter. and the [out] parameter will return result from COM call.

You can check the interface definition of your COM in some tools offer in VS. E.G. a tools named like 'OLE view'.

For example.

method A definition like this:

HResult A([in]P1, [in/out]p2, [out]P3);

    
   CALL METHOD CALL_METHOD
        EXPORTING
                  METHOD = 'A'
                  P_COUNT = 3
                  P1     = P1
                  P2     = P2
                  P3     = P3
                  RESULT = LC_Result
                  .......
         EXCEPTIONS OTHERS = 1.
    IF SY-SUBRC NE 0.
      RAISE ERROR.
    ENDIF.

P1 is input parameter

you should set somthing in P2, and if success, it will be changed

P3 is output parameter, if success, it will return something

LC_Result is the HResult COM method return.

And please also aware that CALL_METHOD is a protected method of CL_GUI_OBJECT. so you should envelop you COM in a CL_GUI_OBJECT class.

For you problem method. bool app.doEvent();

It looks has no [out] parameter, only one return value.

And if it return initial, it return 0 to a boolean, so it means you call method is failure.

thanks

[Former Member]

What I formerly input is for OO method.

It looks that you are using a OLE object.

So try this way

CALL METHOD OF APP 'doEvent' = RESULT NO FLUSH.