RtcDataRequest如何发送body请求

loveness 2024-03-24 18:32:29

rtc开发公众号

RtcDataRequest 发送表单数据(form)的代码运行没问题,如下

with RtcDataRequest1 do
begin
  Request.Method := 'POST';
  Request.ContentType := 'charset=utf-8';
  Request.FileName := '/cgi-bin/message/template/send?'
    + 'access_token=' + Edit3.Text;
  with r.newRecord do
  begin
    asText['touser'] := Edit5.Text;
    asText['template_id'] := TemplateID;
  end;
  Request.Params.Clear;
  Request.Params.Text := r.toJSON;
  Post;
end;

 

现在的问题是怎么只发送body数据(附上ishttp的代码

http := TIdHttp.Create(nil);
http.Request.ContentType := 'application/json';
jsonToSend := TStringStream.Create('{"name":"Peter Pan"}');
jsonToSend.Position := 0;
Memo1.Lines.Text := http.Post('http://.../test.php', jsonToSend);
jsonToSend.free; 
http.free;

 

第一次用rtc,请大神们帮忙

...全文
182 回复 打赏 收藏 转发到动态 举报
写回复
用AI写文章
回复
切换为时间正序
请发表友善的回复…
发表回复

5,386

社区成员

发帖
与我相关
我的任务
社区描述
Delphi 开发及应用
社区管理员
  • VCL组件开发及应用社区
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧