Versions Compared

Key

  • This line was added.
  • This line was removed.
  • Formatting was changed.

...

 * サーバーからの応答の有無を確認
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
  

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

...