Implementing a TCP Socket Detached Client

前提条件
手順
実装例

前提条件

TCP Socketデタッチクライアントの簡単な例として、通信するTCP/IPサーバーアプリケーションが必要です。TCPソケットサーバーの実装のYTCP_TEST説明に従って、TCPソケットサーバーアプリケーションを作成しました。

デタッチされたクライアントアプリケーションとして、アプリケーションを使用しますPING_TCP。

手順

TCPソケットクライアントアプリケーションを実装するには、次の手順に従います。

トランザクションSMICMでTCPソケットを作成します。
TCP接続を確立します。

TCPソケットの作成

TCPソケットを作成するには、次の手順を実行します。

トランザクションSMICMで、メニューエントリジャンプサービスを選択します。
サービス表示ビューで、メニューエントリサービス登録を選択します。
1234新しいサービスポートとして入力します。

TCP通信プロトコルとして選択します。

TCPURLアプリケーションパスを割り当てます/ytcp_test?no_operation=true。
[サービスの作成]を選択してエントリを保存します。

TCP接続の確立

TCPURLアプリケーションパス/ping_tcpの場合、トランザクションSICFに同じ名前の外部エイリアスを作成します。これは、APC TCPソケットアプリケーションのターゲットアプリケーションパスPING_TCP、つまり/ sap / bc / apc / sap/ping_tcpを参照します。
外部エイリアスで、ログオン手順を[ログオンデータで必須]に設定します。

有効なユーザーアカウント、つまりクライアント、ユーザー、パスワード、およびオプションで言語を維持します（図2を参照）。
クラスファクトリメソッドCL_APC_TCP_CLIENT_CONN_MANAGER=>CREATEを使用して、接続パラメータのホストとポート、TCPソケットフレーム構造のパラメータなどのインポートパラメータを指定します。ホストパラメータとして、ホスト名、IPアドレス、またはSAProuterが使用されている場合はルート文字列のいずれかを入力できます。

おすすめ

ルート文字列を入力する場合、SAPでは、ルート文字列の一部としてではなく、ポートパラメータとしてターゲットホストのサービス/ポート番号を明示的に入力することをお奨めします。これは、冗長性と不一致を回避するために行う必要があります。

例：

亭主：/H/<host1>/S/<port>/H/<host2>

サービス/ポート：<port>
オプションで、SSLを使用してTCPソケット接続を保護できます。この目的のために、プロトコルパラメータをCO_PROTOCOL_TYPE_TCPSに設定する必要があり、SSLIDパラメータは適切なSSL認証IDを参照する必要があります。
トランザクションSMWSを使用して、APCサーバーおよびデタッチされたクライアントの実行中のAPCアプリケーションがステートレスであるかステートフルであるかを確認します。また、交換されたメッセージの数も表示されます。

この図は、サーバーアプリケーションがであり、デタッチされたクライアントアプリケーションがである場合のトランザクションSMWSのモニターエントリを示しています。YTCP_TESTPING_TCP

実装例

レポートYRS_APC_TCP_DETACH_CLIENTは、TCPソケットデタッチクライアントの簡単な実装を提供します。

サンプルコード

 REPORT YRS_APC_TCP_DETACH_CLIENT.PARAMETERS: host    TYPE string LOWER CASE DEFAULT 'localhost',            port    TYPE string DEFAULT '1234',            frame_t TYPE string DEFAULT '0A', "frame terminator bytes, e.g. line feed 0A            "path & query for APC WebSocket server application PING_STATELESS            appl_id TYPE apc_application_id  DEFAULT 'PING_TCP', "client detach application id            message TYPE string LOWER CASE DEFAULT 'Say hello !',            send_no TYPE i DEFAULT 2. " number of messages being sent" implementing class for the event handler interface IF_APC_WSP_EVENT_HANDLERCLASS lcl_apc_handler DEFINITION  FINAL  CREATE PUBLIC .  PUBLIC SECTION.    INTERFACES: if_apc_wsp_event_handler.    DATA      : m_connection_attach_handle TYPE string.    DATA      : m_message TYPE string.ENDCLASS.CLASS lcl_apc_handler IMPLEMENTATION.  METHOD if_apc_wsp_event_handler~on_open.    " determine the connection attach handle    TRY.        m_connection_attach_handle = i_context->get_connection_attach_handle( EXPORTING i_connection_security = i_context->co_con_security_by_user_id ).      CATCH cx_apc_error INTO DATA(lx_apc_error).        m_message = lx_apc_error->get_text( ).    ENDTRY.  ENDMETHOD.  METHOD if_apc_wsp_event_handler~on_message.    " no message handling section for detach client !  ENDMETHOD.  METHOD if_apc_wsp_event_handler~on_close.    "close handling    m_message = 'Connection closed !'.  ENDMETHOD.  METHOD if_apc_wsp_event_handler~on_error.    "error/close handling  ENDMETHOD.ENDCLASS.START-OF-SELECTION.  DATA: lo_client_detach   TYPE REF TO if_apc_wsp_client_conn_detach.  DATA: lo_client_attach   TYPE REF TO if_apc_wsp_client_conn_attach.  DATA: lo_event_handler   TYPE REF TO lcl_apc_handler.  DATA: lo_message_manager TYPE REF TO if_apc_wsp_message_manager.  DATA: lo_message         TYPE REF TO if_apc_wsp_message.  DATA: lv_frame           TYPE apc_tcp_frame.  DATA: lv_terminator TYPE xstring. " frame termination bytes in hex  TRY.      " create the event handler object,  the interface IF_APC_WSP_EVENT_HANDLER is implemented in local class lcl_apc_handler      CREATE OBJECT lo_event_handler.      " specification of TCP frame      lv_frame-frame_type = if_apc_tcp_frame_types=>co_frame_type_terminator. "frames are terminated with specific bytes      lv_frame-terminator = frame_t. "frame termination bytes      " create the WebSocket client object      lo_client_detach = cl_apc_tcp_client_conn_manager=>create(                                                     i_host = host                                                     i_port = port                                                     i_frame = lv_frame                                                     i_application_id   = appl_id                                                     i_event_handler = lo_event_handler  ).      " create the WebSocket client object      lo_client_detach->connect_and_detach( ).      " save the terminator bytes as hex      lv_terminator = frame_t.      "create client attach object using connection attach handle for sending the message      lo_client_attach = cl_apc_tcp_client_conn_manager=>attach( lo_event_handler->m_connection_attach_handle ).      lo_message_manager ?= lo_client_attach->get_message_manager( ).      lo_message         ?= lo_message_manager->create_message( ).      " convert the text into UTF-8 byte stream      DATA(lv_binary_message) = cl_abap_codepage=>convert_to( source = message ).      " append the terminator byte, e.g. LF, to the message frame bevor sending      CONCATENATE lv_binary_message lv_terminator INTO lv_binary_message IN BYTE MODE.      lo_message->set_binary( lv_binary_message ).      " number of messages being sent      DO send_no TIMES.        lo_message_manager->send( lo_message ).      ENDDO.      " close WebSocket connection      lo_client_attach->close( i_reason = 'application closed connection !' ).    CATCH cx_apc_error INTO DATA(lx_apc_error).      MESSAGE lx_apc_error->get_text( ) TYPE 'E'.  ENDTRY.