Как отправить post запрос на https в delphi?

 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

uses
  IdHTTP, IdSSL;

var
  IdHTTP: TIdHTTP;
  SSLHandler: TIdSSLIOHandlerSocketOpenSSL;
  Response: string;
  Params: TStringList;
begin
  IdHTTP := TIdHTTP.Create;
  SSLHandler := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);

  try
    IdHTTP.IOHandler := SSLHandler;
    SSLHandler.SSLOptions.Method := sslvTLSv1_2;
    SSLHandler.SSLOptions.Mode := sslmClient;

    Params := TStringList.Create;
    Params.Add('param1=value1');
    Params.Add('param2=value2');

    Response := IdHTTP.Post('https://example.com/post_endpoint', Params);
    ShowMessage(Response);
  finally
    Params.Free;
    SSLHandler.Free;
    IdHTTP.Free;
  end;
end;