//原始信息
curl --request POST \
--url https:****************** \
--header 'Content-Type: application/x-www-form-urlencoded' \
--data grant_type=client_******** \
--data client_id=************ \
--data client_secret=***************
procedure TForm1.Button1Click(Sender: TObject);
var
Send_发送数据: TSTringList;
Ret_答复数据流: TStringStream;
Ret_答复字符串: string;
begin
Send_发送数据 := TStringList.Create;
Ret_答复数据流 := TStringStream.Create;
try
NetHTTPClient1.ContentType :=
'application/x-www-form-urlencoded; charset=UTF-8';
//提交的数据
Send_发送数据.Add('grant_type=client_**********');
Send_发送数据.Add('client_id=*************');
Send_发送数据.Add('client_secret=**********');
//多行可以填加
NetHTTPClient1.Post('https://*******************',
Send_发送数据, Ret_答复数据流);
//获取网页返回的信息
Ret_答复字符串 := Ret_答复数据流.DataString;
Ret_答复字符串 := UTF8Decode(Ret_答复字符串);
Memo1.Text := Ret_答复字符串;
finally
Ret_答复数据流.Free;
Send_发送数据.Free;
end;
end;
-------------添加Authorization
NetHTTPClient.CustomHeaders['Authorization']:='Bearer ************';
测试环境:delphi xe10.3