本文整理自网络,侵删。
控件:RESTClient,RESTRequest,HTTPBasic
RESTClient.BaseURL := '接口地址'
RESTRequest.Resource := '接口路径';
RESTRequest.Method := rmPOST;//post方法
RESTRequest.AddBody('你的json',ctAPPLICATION_JSON);//application/json
RESTClient.Authenticator := HTTPBasic_DelphiPRAXiS;
HTTPBasic_DelphiPRAXiS.Username := '用户名';
HTTPBasic_DelphiPRAXiS.Password := '密码';
RESTRequest.Execute
相关阅读 >>
Delphi 新版 thttpclient组件同步下载文件方法
Delphi system.masks.matchesmask 简单的正则用法
更多相关阅读请进入《Delphi》频道 >>