httpclient for linux demo

httpclient for linux demo

?

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44

program DelphiScalableHttp;   {$APPTYPE CONSOLE}   {$R *.res}   uses   System.SysUtils,   Grijjy.Http in '..\..\GrijjyFoundation\Grijjy.Http.pas',   Grijjy.Uri in '..\..\GrijjyFoundation\Grijjy.Uri.pas',   Grijjy.OpenSSL in '..\..\GrijjyFoundation\Grijjy.OpenSSL.pas',   Grijjy.OpenSSL.API in '..\..\GrijjyFoundation\Grijjy.OpenSSL.API.pas',   Grijjy.MemoryPool in '..\..\GrijjyFoundation\Grijjy.MemoryPool.pas';   var   Response: TBytes;   HTTP: TgoHttpClient;   begin   try     HTTP := TgoHttpClient.Create;     try       if HTTP.Get('http://www.grijjy.com', Response) then         Writeln(TEncoding.ASCII.GetString(Response));     finally       HTTP.Free;     end;       // http2     HTTP := TgoHttpClient.Create(True);     try       if HTTP.Get('https://nghttp2.org', Response) then         Writeln(TEncoding.ASCII.GetString(Response));     finally       HTTP.Free;     end;       // wait     Readln;   except     on E: Exception do       Writeln(E.ClassName, ': ', E.Message);   end; end.