September Morn Update

Task/HTTP/ABAP/http.abap

@@ -0,0 +1,35 @@
+report z_http.
+
+cl_http_client=>create_by_url(
+  exporting
+    url                = `http://rosettacode.org/robots.txt`
+  importing
+    client             = data(http_client)
+  exceptions
+    argument_not_found = 1
+    plugin_not_active  = 2
+    internal_error     = 3
+    others             = 4 ).
+
+if sy-subrc <> 0.
+  data(error_message) = switch string( sy-subrc
+    when 1 then `argument_not_found`
+    when 2 then `plugin_not_active`
+    when 3 then `internal_error`
+    when 4 then `other error` ).
+
+  write error_message.
+  exit.
+endif.
+
+data(rest_http_client) = cast if_rest_client( new cl_rest_http_client( http_client ) ).
+
+rest_http_client->get( ).
+
+data(response_string) = rest_http_client->get_response_entity( )->get_string_data( ).
+
+split response_string at cl_abap_char_utilities=>newline into table data(output_table).
+
+loop at output_table assigning field-symbol(<output_line>).
+  write / <output_line>.
+endloop.

Task/HTTP/Crystal/http.crystal

@@ -0,0 +1,3 @@
+require "http/client"
+
+HTTP::Client.get("http://google.com")

Task/HTTP/Python/http-5.py

@@ -0,0 +1,2 @@
+import requests
+print(requests.get("http://rosettacode.org").text)

Task/HTTP/Visual-Basic/http.vb

@@ -0,0 +1,15 @@
+Sub Main()
+Dim HttpReq As WinHttp.WinHttpRequest
+'  in the "references" dialog of the IDE, check
+'  "Microsoft WinHTTP Services, version 5.1" (winhttp.dll)
+Const HTTPREQUEST_PROXYSETTING_PROXY As Long = 2
+#Const USE_PROXY = 1
+  Set HttpReq = New WinHttp.WinHttpRequest
+  HttpReq.Open "GET", "http://rosettacode.org/robots.txt"
+#If USE_PROXY Then
+  HttpReq.SetProxy HTTPREQUEST_PROXYSETTING_PROXY, "my_proxy:80"
+#End If
+  HttpReq.SetTimeouts 1000, 1000, 1000, 1000
+  HttpReq.Send
+  Debug.Print HttpReq.ResponseText
+End Sub