Delphi IdHTTP post 提交 json

本文整理自网络，侵删。

 unit Unit1;
interface
uses  Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,  Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdTCPConnection, IdTCPClient, IdHTTP,  IdBaseComponent, IdComponent, IdIOHandler, IdIOHandlerSocket,  IdIOHandlerStack, IdSSL, IdSSLOpenSSL, Vcl.StdCtrls;
type  TForm1 = class(TForm)    IdSSLIOHandlerSocketOpenSSL1: TIdSSLIOHandlerSocketOpenSSL;    btnPost: TButton;    IdHTTP1: TIdHTTP;    procedure FormCreate(Sender: TObject);    procedure btnPostClick(Sender: TObject);  private    { Private declarations }  public    { Public declarations }  end;
var  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.btnPostClick(Sender: TObject);var  postStream: TStringStream;  AEnctryRespose: string;  url: string;  aEnctryPost: string;begin  url := 'https:/xxx.xx';  aEnctryPost := '{"username":"test","password":"1"}';  postStream := TStringStream.Create(aEnctryPost);  try    postStream.Position := 0;    AEnctryRespose := IdHTTP1.Post(url, postStream);    ShowMessage(AEnctryRespose);//post后的返回内容  finally    IdHTTP1.Disconnect;    FreeAndNil(postStream);  end;end;
procedure TForm1.FormCreate(Sender: TObject);begin  IdHTTP1 := TIdHTTP.Create(nil);  IdSSLIOHandlerSocketOpenSSL1 := TIdSSLIOHandlerSocketOpenSSL.Create(nil);  IdHTTP1.IOHandler := IdSSLIOHandlerSocketOpenSSL1;  IdHTTP1.HandleRedirects := True;  IdHTTP1.Request.ContentType := 'application/json';//设置交互方式为json格式end; 

相关阅读 >>

delhi 获取进程图片

Delphi连接mysql出现乱码

Delphi 利用createservice写与桌面交互的win32服务

Delphi读取xml文件

Delphi 从 twebbrowser中获得当前输入处的链接

Delphi 获取当前系统版本号

Delphi 快速检测是否联网

Delphi 获取程序自身大小的函数

Delphi 最全_日期格式_dateutils时间单元说明

Delphi编写的android程序获取root权限实现(2015.4.15更新，支持android 4.4)

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