Updated A+B

Author: Mercury13

Examples/Raw_Http/AplusB_Post/f_Main.dfm

@@ -5,7 +5,7 @@ object fmMain: TfmMain
   BorderIcons = [biSystemMenu, biMinimize]
   BorderStyle = bsSingle
   Caption = 'POST form demo'
-  ClientHeight = 169
+  ClientHeight = 165
   ClientWidth = 306
   Color = clBtnFace
   Font.Charset = DEFAULT_CHARSET
@@ -79,7 +79,7 @@ object fmMain: TfmMain
     Left = 12
     Top = 66
     Width = 282
-    Height = 95
+    Height = 91
     TabOrder = 3
   end
 end

Examples/Raw_Http/AplusB_Post/f_Main.pas

@@ -51,6 +51,8 @@ procedure TfmMain.btAddClick(Sender: TObject);
   headers, headersEnd : PCurlSList;
   code : TCurlCode;
   stream : TRawByteStream;
+  effurl : PAnsiChar;
+  respcode : LongInt;
 begin
   post := nil;
   last := nil;
@@ -72,7 +74,7 @@ procedure TfmMain.btAddClick(Sender: TObject);
     curl_formadd_initial(post, last,
             CURLFORM_COPYNAME, sA,
             CURLFORM_COPYCONTENTS, PAnsiChar(UTF8Encode(edA.Text)),
-            CURLFORM_CONTENTHEADER, PAnsiChar(headers),
+            CURLFORM_CONTENTHEADER, headers,
             CURLFORM_END);
 
     // formadd is more type-safe
@@ -85,9 +87,14 @@ procedure TfmMain.btAddClick(Sender: TObject);
     curl_easy_setopt(curl, CURLOPT_WRITEDATA, stream);
     curl_easy_setopt(curl, CURLOPT_WRITEFUNCTION, @StreamWrite);
     code := curl_easy_perform(curl);
-    if code = CURLE_OK
-      then memoResponse.Text := string(stream.Data)
-      else memoResponse.Text := string(curl_easy_strerror(code));
+    if code = CURLE_OK then begin
+      curl_easy_getinfo(curl, CURLINFO_EFFECTIVE_URL, effurl);
+      curl_easy_getinfo(curl, CURLINFO_RESPONSE_CODE, respcode);
+      memoResponse.Text := string(stream.Data) + #13#10#13#10'URL: ' + effurl
+          + #10#10'Response code: ' + IntToStr(respcode);
+    end else begin
+      memoResponse.Text := string(curl_easy_strerror(code));
+    end;
 
   finally
     stream.Free;