v1.33

README.md

@@ -43,6 +43,7 @@ CURL_HTTP_VERSION_2TLS              EQUATE(4)                           !use ver
 CURL_HTTP_VERSION_2_PRIOR_KNOWLEDGE EQUATE(5)                           !please use HTTP 2 without HTTP/1.1 Upgrade
 CURL_HTTP_VERSION_LAST              EQUATE(6)                           !*ILLEGAL* http version
 ```
+- NEW: TCurlClass.SetPostFields(*IDynStr pPostFields)
 
 v1.32
 - CHG: TCurlMailClass now adds Date header field (ex.: "Date: Wed, 22 Aug 2018 12:32:25 +0300").

history/changes.md

@@ -13,6 +13,7 @@ CURL_HTTP_VERSION_2TLS              EQUATE(4)                           !use ver
 CURL_HTTP_VERSION_2_PRIOR_KNOWLEDGE EQUATE(5)                           !please use HTTP 2 without HTTP/1.1 Upgrade
 CURL_HTTP_VERSION_LAST              EQUATE(6)                           !*ILLEGAL* http version
 ```
+- NEW: TCurlClass.SetPostFields(*IDynStr pPostFields)
 
 v1.32
 - CHG: TCurlMailClass now adds Date header field (ex.: "Date: Wed, 22 Aug 2018 12:32:25 +0300").

libsrc/libcurl.clw

@@ -1,5 +1,5 @@
-!** libcurl for Clarion v1.30
-!** 18.08.2018
+!** libcurl for Clarion v1.33
+!** 26.08.2018
 !** [email protected]
 
   MEMBER
@@ -1223,6 +1223,27 @@ res                             CURLcode, AUTO
   END
 
   RETURN CURLE_OK
+
+TCurlClass.SetPostFields      PROCEDURE(*IDynStr pPostFields)
+res                             CURLcode, AUTO
+  CODE                 
+  IF NOT pPostFields &= NULL
+    IF pPostFields.StrLen() > 0
+      res = SELF.SetOpt(CURLOPT_POSTFIELDS, pPostFields.CStrRef())
+      IF res <> CURLE_OK
+        RETURN res
+      END
+
+      res = SELF.SetOpt(CURLOPT_POSTFIELDSIZE, pPostFields.StrLen())
+      IF res <> CURLE_OK
+        RETURN res
+      END
+    END
+  ELSE
+    curl::DebugInfo('SetPostFields: NULL reference passed')
+  END
+
+  RETURN CURLE_OK
 
 !!!endregion
 

libsrc/libcurl.inc

@@ -1,5 +1,5 @@
 !** libcurl for Clarion v1.33
-!** 25.08.2018
+!** 26.08.2018
 !** [email protected]
 
   INCLUDE('DynStr.inc'), ONCE
@@ -893,6 +893,7 @@ PostQuote                       PROCEDURE(TCurlSList plist), CURLcode, PROC !cal
 
 SetDefaultProtocol              PROCEDURE(STRING pSchema), CURLcode, PROC
 SetPostFields                   PROCEDURE(STRING pPostFields), CURLcode, PROC
+SetPostFields                   PROCEDURE(*IDynStr pPostFields), CURLcode, PROC
                               END
 
 !---------------------------- TCurlFtpClass -----------------------------!