delphi编程语言程序研发科技文章

aincopyprint?

function Post(AURL: string; ASource: TIdStrings): string; overload;

function Post(AURL: string; ASource: TStream): string; overload;

function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string; overload;

procedure Post(AURL: string; ASource: TIdMultiPartFormDataStream; AResponseContent: TStream); overload;

procedure Post(AURL: string; ASource: TIdStrings; AResponseContent: TStream); overload;

procedure Post(AURL: string; ASource, AResponseContent: TStream); overload;

其中的基本原则是上面的过程类技巧，其他post重载方式均为嵌套使用此步骤：

[delphi] view plaincopyprint?

procedure TIdCustomHTTP.Post(AURL: string; ASource, AResponseContent: TStream);

参数：

[delphi] view plaincopyprint?

AURL: string // post请求URL

ASource: TIdMultiPartFormDataStream // TStream派生的类，其中为发送的流数据及mime信息，可用于上传文件

ASource: TStream // 发送的流数据

AResponseContent: TStream // 响应内容流ASource: TIdStrings // TString派生的类，用于向服务器提交数据

ASource 为TIdStrings的数据，使用的MIME是默认的“application/x-www-form-urlencoded”，而TIdMultiFormDataStream则是按照发送的内容/文件来设置MIME类型。

示例：

[delphi] view plaincopyprint?

unit Umain;

interface

uses

Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,

Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,

IdHTTP, StdCtrls, IdMultipartFormData;

type

TForm1 = class(TForm)

IdHTTP1: TIdHTTP;

Memo1: TMemo;

btnOne: TButton;

btnTwo: TButton;

btnThree: TButton;

btnFour: TButton;

btnFive: TButton;

btnSix: TButton;

procedure btnOneClick(Sender: TObject);

procedure btnTwoClick(Sender: TObject);

procedure btnThreeClick(Sender: TObject);

procedure btnFourClick(Sender: TObject);

procedure btnFiveClick(Sender: TObject);

procedure btnSixClick(Sender: TObject);

private

{ Private declarations }

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation

{$R *.dfm}

const

sPostUrl = '#39;;

procedure TForm1.btnOneClick(Sender: TObject);

var

postcmd : TStringList;

begin

postcmd := TStringList.Create; // 组合参数列表

postcmd.Add('AutoGet=1');

postcmd.Add('Logintype=0');

postcmd.Add('password=test');

postcmd.Add('username=test');

Memo1.Text := IdHTTP1.Post(sPostUrl, postcmd); // 以post的形式发送到服务器

end;

procedure TForm1.btnTwoClick(Sender: TObject);

var

postStream : TStringStream;

begin

IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; // 定义发送mime类型

postStream := TStringStream.Create('AutoGet=1&Logintype=0&password=test&username=test'); // 发送内容

Memo1.Text := IdHTTP1.Post(sPostUrl, postStream);

end;

procedure TForm1.btnThreeClick(Sender: TObject);

var

postStream : TIdMultiPartFormDataStream;

begin

IdHTTP1.HandleRedirects := true; // 允许重定向delphi idhttp下载文件delphi idhttp下载文件，因为这个站点会出现重定向

IdHTTP1.Request.Referer := '#39;; // 设置来路，此网站规定

postStream := TIdMultiPartFormDataStream.Create; // 创建TIdMultiPartFormDataStream类

postStream.AddFormField('textfield', 'd:\temp\test.png'); // 表单参数

postStream.AddFile('uploaded_file', 'd:\temp\test.png', 'image/png'); // 表单文件

Memo1.Text := Utf8ToAnsi(IdHTTP1.Post('#39;, postStream));

end;

procedure TForm1.btnFourClick(Sender: TObject);

var

postStream : TIdMultiPartFormDataStream;

respStream : TStringStream;

begin

IdHTTP1.HandleRedirects := true; // 允许重定向，因为这个站点会出现重定向

IdHTTP1.Request.Referer := '#39;; // 设置来路，此网站规定

postStream := TIdMultiPartFormDataStream.Create; // 创建TIdMultiPartFormDataStream类

respStream := TStringStream.Create('');

postStream.AddFormField('textfield', 'd:\temp\test.png'); // 表单参数

postStream.AddFile('uploaded_file', 'd:\temp\test.png', 'image/png'); // 表单文件

IdHTTP1.Post('#39;, postStream, respStream);

Memo1.Text := Utf8ToAnsi(respStream.DataString);

end;

procedure TForm1.btnFiveClick(Sender: TObject);

var

respStream : TStringStream;

postcmd : TStringList;

begin

postcmd := TStringList.Create;

respStream := TStringStream.Create('');

postcmd.Add('AutoGet=1');

postcmd.Add('Logintype=0');

postcmd.Add('password=test');

postcmd.Add('username=test');

IdHTTP1.Post(sPostUrl, postcmd, respStream);

Memo1.Text := respStream.DataString;

end;

procedure TForm1.btnSixClick(Sender: TObject);

var

postStream, respStream : TStringStream;

begin

postStream := TStringStream.Create('AutoGet=1&Logintype=0&password=test&username=test');

respStream := TStringStream.Create('');

IdHTTP1.Request.ContentType := 'application/x-www-form-urlencoded'; // 定义发送mime类型

IdHTTP1.Post(sPostUrl, postStream, respStream);

Memo1.Text := respStream.DataString;

end;

end.

本文来自电脑杂谈，转载请注明本文网址：
http://www.pc-fly.com/a/jisuanjixue/article-125380-1.html