Delphi REST API Post Sample

本文整理自网络，侵删。

 procedure TForm1.Button1Click(Sender: TObject);
var
  jsonToSend: TStringList;
  http: TIdHTTP;
begin
  http := TIdHTTP.Create(nil);
  try
    http.HandleRedirects := True;
    http.ReadTimeout := 5000;
    jsonToSend := TStringList.create;
    try
      jsonToSend.Add('{ Your JSON-encoded request goes here }');
      http.Post('http://your.restapi.url', jsonToSend);
    finally
      jsonToSend.Destroy;
    end;
  finally
    http.Destroy;
  end;
end; 

相关阅读 >>

Delphi 对汉字字符串的截取问题

Delphi 获取ie网址收藏夹

Delphi 进程防杀之hook api法

Delphi stringgrid 实例5 本例功能:字体修改为居中，红色，20号

Delphi实现win10下Delphi 10.3.1 inline hook 域名转向之internetconnecta

Delphi pagecontrol1 另类隐藏页的方法

Delphi 中使长循环有响应

Delphi 中 tjpegimage 中的一处问题修复

Delphi 给label1字加边的又一个算法

Delphi窗口显示于parent控件上

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » Delphi REST API Post Sample