Page History

...

次の入力・出力パラメータをサーバー・ルーチンに追加します。

* 入力フィールドの定義

     Field_Map For(*INPUT) Field(#SourceText)
     Field_Map For(*INPUT) Field(#TargetLanguage) 
     Field_Map For(*INPUT) Field(#SourceLanguage)

* 出力フィールドの定義

     Field_Map For(*OUTPUT) Field(#OK)
     Field_Map For(*OUTPUT) Field(#TranslatedText)
     Field_Map For(*OUTPUT) Field(#ErrorCode)
     Field_Map For(*OUTPUT) Field(#ErrorMessage)

...

以下は JSON 応答から翻訳されたテキストを抽出するコードです。

* サーバーからの応答の有無を確認

     If (#HttpRequest.Response.IsSuccessfulRequest)

      * HTTP 応答を JsonReader オブジェクトにフィード

        #Reader.SetSourceHttpResponse Httpresponse(#HttpRequest.Response)

     * サーバーから正常な応答を取得したか確認

       If (#HttpRequest.Response.IsSuccessHttpStatusCode)

          * 結果の (翻訳された) テキストを取得

          #TranslatedText := #Reader.ReadStringWithPath( 'data/translations/1/translatedText' )
          #OK := True
       Else

          * エラー・コードおよびエラー・メッセージを JSON 応答から取得

          #ErrorCode := #Reader.ReadStringWithPath( 'error/code' )
          #ErrorMessage := #Reader.ReadStringWithPath( 'error/message' )
          #OK := False
      Endif
    Else

   * サーバーからの応答無し
   * 応答オブジェクトからの転送エラーを取得

      #OK := False
      #ErrorCode := #HttpRequest.Response.ErrorCode
      #ErrorMessage := #HttpRequest.Response.ErrorMessage
     Endif

次は: 次は：Web ページを作成して、サーバー・モジュールをテスト