1function httpsPost():string;
 2var
 3  IdHttp : TIdHTTP;
 4  IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;
 5 
 6  Url : string;//请求地址
 7  ResponseStream : TStringStream; //返回信息
 8  ResponseStr : string;
 9 
10  RequestList : TStringList;     //请求信息
11  RequestStream : TStringStream;
12begin
13  //创建IDHTTP控件
14  IdHttp := TIdHTTP.Create(nil);
15  //IdHttp.HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams];          //关键参数， 关系到编码自动转换
16  //hoKeepOrigProtocol 解决socket0 错误
17  IdHttp.HTTPOptions:=IdHttp.HTTPOptions+[hoKeepOrigProtocol];//关键这行
18  IdHttp.HandleRedirects:= True;
19 
20          //IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
21 
22          //IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method:=sslvSSLv23;
23          //sslvSSLv3 提示握手失败          sslvTLSv1         sslvSSLv2       sslvSSLv23 提示证书错误
24          //IdHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
25          //IdHttp.HandleRedirects := True;
26 
27 
28          IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);
29         IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Method := sslvSSLv23;
30         // IdSSLIOHandlerSocketOpenSSL1.SSLOptions.SSLVersions := [sslvTLSv1, sslvTLSv1_1, sslvTLSv1_2];
31 
32          //IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmUnassigned;
33         // IdSSLIOHandlerSocketOpenSSL1.SSLOptions.Mode := sslmClient;
34         // IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyMode := [];
35         // IdSSLIOHandlerSocketOpenSSL1.SSLOptions.VerifyDepth := 0;
36          IdHttp.IOHandler := IdSSLIOHandlerSocketOpenSSL1;
37 
38 
39  //TStringStream对象用于保存响应信息
40  ResponseStream := TStringStream.Create('');
41  RequestStream := TStringStream.Create('');
42  RequestList := TStringList.Create;
43  try
44    Url := 'https://网址/delphi-api-test/';
45 
46    try
47 
48   // IdSSLIOHandlerSocketOpenSSL := TIdSSLIOHandlerSocketOpenSSL.Create(IdHTTP);
49   // IdHTTP.IOHandler := IdSSLIOHandlerSocketOpenSSL;
50      //以列表的方式提交参数
51      RequestList.Add('text=love999这是中文');
52      
53      IdHttp.Post(Url,RequestList,ResponseStream);
54 
55      //以流的方式提交参数
56    // RequestStream.WriteString('{"text":"love999"}');
57     //IdHttp.Request.ContentType :='application/json';
58     // IdHttp.Post(Url,RequestStream,ResponseStream);
59    except
60      on e : Exception do
61      begin
62        ShowMessage(e.Message);
63      end;
64    end;
65    //获取网页返回的信息
66    ResponseStr := ResponseStream.DataString;
67 
68 
69    //网页中的存在中文时，需要进行UTF8解码
70    ResponseStr := UTF8Decode(ResponseStr);
71   // ResponseStr := UTF8ToString(ResponseStr);
72  finally
73  ShowMessage(ResponseStr);
74    IdHttp.Free;
75    RequestList.Free;
76    RequestStream.Free;
77    ResponseStream.Free;
78 
79  end;
80end;

1procedure TForm1.Button1Click(Sender: TObject);
2begin
3 
4  httpsPost();
5 
6end;