サーバレス練習帳

着眼大局着手小局

【Delphi】 REST/POST送信

これでできた!
使うコンポーネントは、TRESTClient、TRESTRequestです。
似ていますが、TNetHTTPClientやTNetHTTPRequestは使いません。

uses
  REST.Types;//これ以外のusesはコンポーネント追加時に入ってくる。
procedure TForm2.Button2Click(Sender: TObject);
var
  jsRequest: TJSONObject;
 u8BearerToken:UTF8String;
begin
  RESTClient1.BaseURL := 'https://xxxxxxxxxx.execute-api.ap-northeast-1.amazonaws.com/v1/';
  RESTRequest1.Resource := 'monitoring/logregister';
  RESTRequest1.Method := TRESTRequestMethod.rmPOST;
  jsRequest := TJSONObject.Create();
  jsRequest.AddPair('UserName', 'un');
  jsRequest.AddPair('Password', 'pw');
  RESTRequest1.AddBody(jsRequest);
  u8BearerToken:='Bearer XXXXXXXX';
  RESTRequest1.Params.AddHeader('Authentication', u8BearerToken);
  RESTRequest1.Execute;
  jsRequest.Free();
end;

パースも含めて参考になるのは、このサイトですね。
www.gesource.jp



【以降、検討過程】
Delphi XE8以降にあるTNetHTTPRequestコンポーネントとTNetHTTPClientコンポーネントという、2つのコンポーネントが重要っぽい。
d.hatena.ne.jp
www.gesource.jp



過去にもいろいろ調べていたみたい。。。
serverless.hateblo.jp
serverless.hateblo.jp


DelphiからAWS API Gatewayへのテスト送信が上手くいかない。。。
このツールからAWSへの送信は上手くいくのだけど、、、
POSTメソッドのテストツール