langs a-z

Task/HTTP/Pascal/http.pascal

@@ -0,0 +1,47 @@
+program http;
+
+{$mode objfpc}{$H+}
+{$APPTYPE CONSOLE}
+
+{$DEFINE DEBUG}
+
+uses
+  {$IFDEF UNIX}{$IFDEF UseCThreads}
+  cthreads,
+  {$ENDIF}{$ENDIF}
+  Classes, httpsend; // Synapse httpsend class
+{$R *.res}
+
+var
+  Response: TStrings;
+  HTTPObj: THTTPSend;
+
+begin
+  HTTPObj := THTTPSend.Create;
+  try
+    { Stringlist object to capture HTML returned
+      from URL }
+    Response := TStringList.Create;
+    try
+      if HTTPObj.HTTPMethod('GET','http://wiki.lazarus.freepascal.org/Synapse') then
+        begin
+          { Load HTTP Document into Stringlist }
+          Response.LoadFromStream(HTTPObj.Document);
+          { Write the response to the console window }
+          Writeln(Response.Text);
+        end
+        else
+        Writeln('Error retrieving data');
+
+    finally
+      Response.Free;
+    end;
+
+  finally
+    HTTPObj.Free;
+  end;
+
+  // Keep console window open
+  Readln;
+
+end.