48 lines
888 B
ObjectPascal
48 lines
888 B
ObjectPascal
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.
|