码迷，mamicode.com
首页 > Windows程序 > 详细

[delphi]indy idhttp post方法

时间：2015-08-12 08:56:20      阅读：263      评论：0      收藏：0      [点我收藏+]

标签：

techiepc的博客

万事如意

 
 

日志

 
 
 
关于我
技术分享
techiepc
  加博友   关注他
文章分类
网易考拉推荐
 
 

[delphi]indy idhttp post方法  

2013-10-13 10:49:40|  分类： 默认分类 |  标签：delphi  idhttp  post  indy  |举报|字号 订阅

下载LOFTER客户端
 
 

idhttp中对于post方法的定义：

  1. function Post(AURL: string; ASource: TIdStrings): string; overload;  
  2. function Post(AURL: string; ASource: TStream): string; overload;  
  3. function Post(AURL: string; ASource: TIdMultiPartFormDataStream): string; overload;  
  4. procedure Post(AURL: string; ASource: TIdMultiPartFormDataStream; AResponseContent: TStream); overload;  
  5. procedure Post(AURL: string; ASource: TIdStrings; AResponseContent: TStream); overload;  
  6. procedure Post(AURL: string; ASource, AResponseContent: TStream); overload;  

其中的基本方法是下面的过程类方法，其他post重载方法均为嵌套使用此方法：

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

参数：
  1. AURL: string    // post请求URL   
  2. ASource: TIdMultiPartFormDataStream     // TStream派生的类，其中为发送的流数据及mime信息，可用于上传文件   
  3. ASource: TStream    // 发送的流数据   
  4. AResponseContent: TStream // 响应内容流ASource: TIdStrings // TString派生的类，用于向服务器提交数据  

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

示例：

  1. unit Umain;  
  2.   
  3. interface  
  4.   
  5. uses  
  6.   Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  
  7.   Dialogs, IdBaseComponent, IdComponent, IdTCPConnection, IdTCPClient,  
  8.   IdHTTP, StdCtrls, IdMultipartFormData;  
  9.   
  10. type  
  11.   TForm1 = class(TForm)  
  12.     IdHTTP1: TIdHTTP;  
  13.     Memo1: TMemo;  
  14.     btnOne: TButton;  
  15.     btnTwo: TButton;  
  16.     btnThree: TButton;  
  17.     btnFour: TButton;  
  18.     btnFive: TButton;  
  19.     btnSix: TButton;  
  20.     procedure btnOneClick(Sender: TObject);  
  21.     procedure btnTwoClick(Sender: TObject);  
  22.     procedure btnThreeClick(Sender: TObject);  
  23.     procedure btnFourClick(Sender: TObject);  
  24.     procedure btnFiveClick(Sender: TObject);  
  25.     procedure btnSixClick(Sender: TObject);  
  26.   private  
  27.     { Private declarations }  
  28.   public  
  29.     { Public declarations }  
  30.   end;  
  31.   
  32. var  
  33.   Form1: TForm1;  
  34.   
  35. implementation  
  36.   
  37. {$R *.dfm}  
  38.   
  39. const  
  40.   sPostUrl = ‘http://cne.csu.edu.cn/reg/mima-pass.asp?path=‘;  
  41.   
  42. procedure TForm1.btnOneClick(Sender: TObject);  
  43. var  
  44.   postcmd : TStringList;  
  45. begin  
  46.   postcmd := TStringList.Create;  // 组合参数列表   
  47.   postcmd.Add(‘AutoGet=1‘);  
  48.   postcmd.Add(‘Logintype=0‘);  
  49.   postcmd.Add(‘password=test‘);  
  50.   postcmd.Add(‘username=test‘);  
  51.   Memo1.Text := IdHTTP1.Post(sPostUrl, postcmd);  // 以post的方式发送到服务器   
  52. end;  
  53.   
  54. procedure TForm1.btnTwoClick(Sender: TObject);  
  55. var  
  56.   postStream : TStringStream;  
  57. begin  
  58.   IdHTTP1.Request.ContentType := ‘application/x-www-form-urlencoded‘; // 定义发送mime类型   
  59.   postStream := TStringStream.Create(‘AutoGet=1&Logintype=0&password=test&username=test‘);  // 发送内容   
  60.   Memo1.Text := IdHTTP1.Post(sPostUrl, postStream);  
  61. end;  
  62.   
  63. procedure TForm1.btnThreeClick(Sender: TObject);  
  64. var  
  65.   postStream : TIdMultiPartFormDataStream;  
  66. begin  
  67.   IdHTTP1.HandleRedirects := true;  // 允许重定向，因为这个站点会发生重定向   
  68.   IdHTTP1.Request.Referer := ‘http://www.qiuziti.com/‘; // 设置来路，此网站要求  
  69.   
  70.   postStream := TIdMultiPartFormDataStream.Create;  // 创建TIdMultiPartFormDataStream类   
  71.   
  72.   postStream.AddFormField(‘textfield‘, ‘d:\temp\test.png‘); // 表单参数   
  73.   postStream.AddFile(‘uploaded_file‘, ‘d:\temp\test.png‘, ‘image/png‘); // 表单文件   
  74.   Memo1.Text := Utf8ToAnsi(IdHTTP1.Post(‘http://www.qiuziti.com/s/upload.ashx‘, postStream));  
  75. end;  
  76.   
  77. procedure TForm1.btnFourClick(Sender: TObject);  
  78. var  
  79.   postStream : TIdMultiPartFormDataStream;  
  80.   respStream : TStringStream;  
  81. begin  
  82.   IdHTTP1.HandleRedirects := true;  // 允许重定向，因为这个站点会发生重定向   
  83.   IdHTTP1.Request.Referer := ‘http://www.qiuziti.com/‘; // 设置来路，此网站要求  
  84.   
  85.   postStream := TIdMultiPartFormDataStream.Create;  // 创建TIdMultiPartFormDataStream类   
  86.   respStream := TStringStream.Create(‘‘);  
  87.   
  88.   postStream.AddFormField(‘textfield‘, ‘d:\temp\test.png‘); // 表单参数   
  89.   postStream.AddFile(‘uploaded_file‘, ‘d:\temp\test.png‘, ‘image/png‘); // 表单文件   
  90.   
  91.   IdHTTP1.Post(‘http://www.qiuziti.com/s/upload.ashx‘, postStream, respStream);  
  92.   
  93.   Memo1.Text := Utf8ToAnsi(respStream.DataString);  
  94. end;  
  95.   
  96. procedure TForm1.btnFiveClick(Sender: TObject);  
  97. var  
  98.   respStream : TStringStream;  
  99.   postcmd : TStringList;  
  100. begin  
  101.   postcmd := TStringList.Create;  
  102.   respStream := TStringStream.Create(‘‘);  
  103.   
  104.   postcmd.Add(‘AutoGet=1‘);  
  105.   postcmd.Add(‘Logintype=0‘);  
  106.   postcmd.Add(‘password=test‘);  
  107.   postcmd.Add(‘username=test‘);  
  108.   
  109.   IdHTTP1.Post(sPostUrl, postcmd, respStream);  
  110.   
  111.   Memo1.Text := respStream.DataString;  
  112. end;  
  113.   
  114. procedure TForm1.btnSixClick(Sender: TObject);  
  115. var  
  116.   postStream, respStream : TStringStream;  
  117. begin  
  118.   postStream := TStringStream.Create(‘AutoGet=1&Logintype=0&password=test&username=test‘);  
  119.   respStream := TStringStream.Create(‘‘);  
  120.   IdHTTP1.Request.ContentType := ‘application/x-www-form-urlencoded‘; // 定义发送mime类型   
  121.   IdHTTP1.Post(sPostUrl, postStream, respStream);  
  122.   
  123.   Memo1.Text := respStream.DataString;  
  124. end;  
  125.   
  126. end.  

Demo下载：

 

http://download.csdn.net/detail/none01/5130108

 
 
 
 
阅读(1547)| 评论(0)

 

技术分享
 
技术分享
 
技术分享
 
技术分享
 
技术分享
 
技术分享
 
技术分享
 
技术分享
 
技术分享
 
 
技术分享
 

在LOFTER的更多文章

关闭
玩LOFTER，免费冲印20张照片，人人有奖！     我要抢>

评论

  该内容仅供欣赏。
 
博客风格 - 手机博客 - 下载LOFTER APP - 订阅此博客

网易公司版权所有 ©1997-2015

 
 
 
 
加入网易博客注册

[delphi]indy idhttp post方法

标签：

原文地址：http://www.cnblogs.com/wwsuhyuan/p/4723119.html
踩
(0)
赞
(0)
   
举报
评论 一句话评论（0）
登录后才能评论！
分享档案
更多>
2021年07月29日 (22)
2021年07月28日 (40)
2021年07月27日 (32)
2021年07月26日 (79)
2021年07月23日 (29)
2021年07月22日 (30)
2021年07月21日 (42)
2021年07月20日 (16)
2021年07月19日 (90)
2021年07月16日 (35)
周排行
mamicode.com排行更多图片
更多
友情链接
兰亭集智   国之画   百度统计   站长统计   阿里云   chrome插件   新版天听网
关于我们 - 联系我们 - 留言反馈
© 2014 mamicode.com 版权所有  联系我们:gaon5@hotmail.com
迷上了代码！