`
Daniel_Fang
  • 浏览: 46604 次
  • 性别: Icon_minigender_1
  • 来自: 上海
社区版块
存档分类
最新评论

Internet Communicatin Framework简单应用实例

HTMLCC++C#UP 
阅读更多

SAP提供了ICF通过Internet与外部进行通讯，下面只是基本ABAP Object的一个错误的例子进行了修改，附代码如下：

 

1,SICF创建一个Server: z_http_service

 

2, SE24自定义一个类，并引入interface为IF_HTTP_EXTENSION,并声明如下数据类型：
  types:
    BEGIN OF tline,
        datestr        TYPE c LENGTH 10,
        planetypestr   TYPE c LENGTH 10,
        seatsfreestr   TYPE c LENGTH 10,
      END OF tline .
  types:
    BEGIN OF tflight,
             carrid        TYPE spfli-carrid,
             connid        TYPE spfli-connid,
             cityfrom      TYPE spfli-cityfrom,
             cityto        TYPE spfli-cityto,
             valuestr      TYPE char100,
             table         TYPE STANDARD TABLE OF tline
                                WITH NON-UNIQUE DEFAULT KEY,
           END OF tflight .

METHOD if_http_extension~handle_request.
* wait up to 1 seconds.

  DATA: header_data  TYPE string,
        html_body    TYPE string,
        fldate       TYPE sflight-fldate,
        planetype    TYPE sflight-planetype,
        seatsocc     TYPE sflight-seatsocc,
        seatsmax     TYPE sflight-seatsmax,
        line         TYPE tline,
        flight       TYPE tflight.

*  header_data  =  server->request->get_header_field(
*                  if_http_header_fields_sap=>query_string ).
*  FIND REGEX '(\D+)(\d+)' IN header_data
*       SUBMATCHES flight-carrid flight-connid.

  flight-carrid = server->request->get_form_field( 'P1' ).
  flight-connid = server->request->get_form_field( 'P2' ).

  SELECT SINGLE cityfrom cityto
         FROM spfli
         INTO  (flight-cityfrom, flight-cityto)
         WHERE carrid = flight-carrid AND
               connid = flight-connid .
  SELECT fldate planetype seatsocc seatsmax
         FROM sflight
         INTO (fldate, planetype, seatsocc, seatsmax)
         WHERE carrid = flight-carrid AND
               connid = flight-connid.
    WRITE fldate      TO line-datestr.
    line-planetypestr = planetype.
    line-seatsfreestr = seatsmax - seatsocc.
    APPEND line TO flight-table.
  ENDSELECT.
  CALL TRANSFORMATION z_flight_to_html
           SOURCE flight = flight
           RESULT XML html_body.

  server->response->set_header_field(
                    name  = if_http_header_fields=>content_type
                    value = 'text/html'
  ).
  server->response->set_cdata( data = html_body ).
ENDMETHOD.

 

3,创建Simple Transformation(ST),代码如下：
<?sap.transform simple?>
<tt:transform xmlns:tt="http://www.sap.com/transformation-templates">
  <tt:root name="FLIGHT"/>
  <tt:template>
    <html>
      <body>
        <h2>
          <tt:value ref=".FLIGHT.carrid"/>
          <text/>
          <tt:value ref=".FLIGHT.connid"/>
        </h2>
        <h3>
          <tt:value ref=".FLIGHT.cityfrom"/>
          <text>-</text>
          <tt:value ref=".FLIGHT.cityto"/>
        </h3>
        <table border="2">
          <tr>
            <td>
              <b>date</b>
            </td>
            <td>
              <b>planetype</b>
            </td>
            <td>
              <b>Availability</b>
            </td>
          </tr>
          <tt:loop ref=".FLIGHT.table">
            <tr>
              <td>
                <tt:value ref="datestr"/>
              </td>
              <td>
                <tt:value ref="planetypestr"/>
              </td>
              <td>
                <tt:value ref="seatsfreestr"/>
              </td>
            </tr>
          </tt:loop>
        </table>
      </body>
    </html>
  </tt:template>
</tt:transform>

 

4,链接参数：
http://(sapserver):8000/z_http_service?sap-client=800&P1=AA&P2=0017

 

 

 

ST语法参考：
http://help.sap.com/saphelp_nw70/helpdata/en/e3/7d4719ca581441b6841f1054ff1326/frameset.htm

3
顶
2
踩
分享到：
| 黑白世界因特网
评论
发表评论

您还没有登录,请您登录后再发表评论

相关推荐

Magicbox
Global site tag (gtag.js) - Google Analytics