httpclient for windows demo

httpclient for windows 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 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109

unit FMain; { uses   Vcl.Forms,   FMain in 'FMain.pas' {FormMain},   Grijjy.Http in '..\..\GrijjyFoundation\Grijjy.Http.pas',   Grijjy.SocketPool.Win in '..\..\GrijjyFoundation\Grijjy.SocketPool.Win.pas',   Grijjy.OpenSSL.API in '..\..\GrijjyFoundation\Grijjy.OpenSSL.API.pas',   Grijjy.OpenSSL in '..\..\GrijjyFoundation\Grijjy.OpenSSL.pas',   Grijjy.MemoryPool in '..\..\GrijjyFoundation\Grijjy.MemoryPool.pas',   Grijjy.Collections in '..\..\GrijjyFoundation\Grijjy.Collections.pas',   Grijjy.Winsock2 in '..\..\GrijjyFoundation\Grijjy.Winsock2.pas',   Grijjy.Uri in '..\..\GrijjyFoundation\Grijjy.Uri.pas',   Grijjy.BinaryCoding in '..\..\GrijjyFoundation\Grijjy.BinaryCoding.pas',   Nghttp2 in '..\Nghttp2.pas'; }   interface   uses   Winapi.Windows,   Winapi.Messages,   System.SysUtils,   System.Variants,   System.Classes,   System.Messaging,   Vcl.Graphics,   Vcl.Controls,   Vcl.Forms,   Vcl.Dialogs,   Vcl.StdCtrls,   Grijjy.Http;   type   TFormMain = class(TForm)     EditUrl: TEdit;     MemoContent: TMemo;     MemoHeaders: TMemo;     LabelResponseHeaders: TLabel;     LabelResponseContent: TLabel;     ButtonGet: TButton;     ButtonGetNonBlocking: TButton;     procedure ButtonGetClick(Sender: TObject);     procedure ButtonGetNonBlockingClick(Sender: TObject);     procedure FormCreate(Sender: TObject);     procedure FormDestroy(Sender: TObject);   private     procedure HttpResponseMessageListener(const Sender: TObject;       const M: TMessage);     { Private declarations }   public     { Public declarations }   end;   var   FormMain: TFormMain;   implementation   {$R *.dfm}   procedure TFormMain.ButtonGetClick(Sender: TObject); var   HTTP: TgoHttpClient; begin   HTTP := TgoHttpClient.Create;   try     MemoContent.Text := HTTP.Get(EditUrl.Text);     MemoHeaders.Text := HTTP.ResponseHeaders.AsString;   finally     HTTP.Free;   end; end;   procedure TFormMain.ButtonGetNonBlockingClick(Sender: TObject); var   HTTP: TgoHttpClient; begin   HTTP := TgoHttpClient.Create(True, False);   try     HTTP.Get('https://nghttp2.org');   finally     HttpClientManager.Release(HTTP);   end; end;   procedure TFormMain.HttpResponseMessageListener(const Sender: TObject;   const M: TMessage); var   HttpResponseMessage: TgoHttpResponseMessage; begin   HttpResponseMessage := M as TgoHttpResponseMessage;   MemoContent.Text := HttpResponseMessage.HttpClient.BytesToString(HttpResponseMessage.Response, HttpResponseMessage.ResponseContentCharset);   MemoHeaders.Text := HttpResponseMessage.ResponseHeaders.AsString; end;   procedure TFormMain.FormCreate(Sender: TObject); begin   TMessageManager.DefaultManager.SubscribeToMessage(TgoHttpResponseMessage,     HttpResponseMessageListener); end;   procedure TFormMain.FormDestroy(Sender: TObject); begin   TMessageManager.DefaultManager.Unsubscribe(TgoHttpResponseMessage,     HttpResponseMessageListener); end;   end.