delphi 调用编码格式为application/x-www-form-urlencoded

一只长不大的小菜鸟

已于 2022-11-01 15:37:08 修改

阅读量969

点赞数

CC 4.0 BY-SA版权

分类专栏： delphi 文章标签：开发语言

于 2022-10-31 14:07:19 首次发布

本文链接：https://blog.youkuaiyun.com/qq_24719313/article/details/127614259

delphi 专栏收录该内容

18 篇文章

订阅专栏

博客提及在Delphi XE10.3测试环境中添加Authorization。Delphi是一种开发语言，此操作可能与开发测试相关，涉及信息技术领域的开发测试流程。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//原始信息
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