Sample fixed + #43

Author: Mercury13

Examples/Easy_Http/AplusB_Get/f_Main.pas

@@ -36,18 +36,16 @@ implementation
 procedure TfmMain.btAddClick(Sender: TObject);
 var
   curl : ICurl;
-  stream : TRawByteStream;
 begin
   curl := CurlGet;
-  stream := TRawByteStream.Create;
 
   curl.SetUserAgent(FirefoxUserAgent)
       .SetUrl(CurlGetBuilder(edUrl.Text)
                 .Param('a', edA.Text)
                 .Param('b', edB.Text))
-      .SetRecvStream(stream, [csfAutoDestroy])
+      .SwitchRecvToString
       .Perform;
-  memoResponse.Text := string(stream.Data)
+  memoResponse.Text := string(curl.ResponseBody)
           + #13#10#13#10'URL: ' +
           string(curl.GetInfo(CURLINFO_EFFECTIVE_URL));
 end;

Examples/Easy_Http/AplusB_Post/f_Main.pas

@@ -38,7 +38,6 @@ procedure TfmMain.btAddClick(Sender: TObject);
 var
   curl : ICurl;
   form : ICurlForm;
-  stream : TRawByteStream;
 begin
   // Form
   form := CurlGetForm;
@@ -52,18 +51,15 @@ procedure TfmMain.btAddClick(Sender: TObject);
       // Simple version (just add a field)
       .Add('b', edB.Text);
 
-  // Stream
-  stream := TRawByteStream.Create;
-
   curl := CurlGet;
   curl.SetUrl(edUrl.Text)
       .SetOpt(CURLOPT_POST, true)
       // I tested it on my free hosting — it has a bot protection.
       .SetUserAgent(FirefoxUserAgent)
       .SetForm(form)
-      .SetRecvStream(stream, [csfAutoDestroy])
+      .SwitchRecvToString
       .Perform;
-  memoResponse.Text := string(stream.Data);
+  memoResponse.Text := string(curl.ResponseBody);
 end;
 
 end.