本文章介绍了Delphi XE7写的一个http post的小测试程序，该程序是通过TIdHTTP组件进行post功能的测试，具体就不介绍了，代码很简单，下面是主要的代码
unit Unit1;
interface
uses
Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics,
Vcl.Controls, Vcl.Forms, Vcl.Dialogs, IdBaseComponent, IdComponent,
IdTCPConnection, IdTCPClient, IdHTTP, Vcl.StdCtrls;
type
TForm1 = class(TForm)
Edit1: TEdit;
Edit2: TEdit;
Button1: TButton;
Label1: TLabel;
Label2: TLabel;
Memo1: TMemo;
IdHTTP1: TIdHTTP;
procedure Button1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
var
Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var
sl : TStringList;
ResponseStream: TMemoryStream;
resultBytes: TBytes;
begin
sl := TStringList.Create;
ResponseStream := TStringStream.Create;
try
IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded';
sl.Add('id=' + Edit2.Text);
IdHTTP1.Post(Edit1.Text, sl, ResponseStream);
ResponseStream.Position := 0;
SetLength(resultBytes, ResponseStream.Size);
ResponseStream.ReadBuffer(resultBytes[0], Length(resultBytes));
Memo1.Lines.Text := TEncoding.UTF8.GetString(resultBytes);
finally
sl.Free;
ResponseStream.Free;
end;
end;
end.
关键字词:
