网易

博客

LOFTCam-用心创造滤镜

LOFTER-最美图片社交APP

送20张免费照片冲印 >

注册登录

加关注

techiepc的博客

万事如意

• 首页
• 日志
• LOFTER
• 相册
• 音乐
• 收藏
• 博友
• 关于我

日志

关于我

techiepc

加博友   关注他

文章分类

• ·默认分类（249）

LOFTER精选

注册免费冲印20张照片 >

网易考拉推荐

网易新闻

湖南郴州现"多彩空调墙"

• ·男孩溺亡同伴藏其物品瞒23天
• ·男子撞人逃逸后与伤者同病房
• ·老汉谎称自焚:想要制造混乱
• ·未成年少年强奸未遂杀人被捕
• ·老太旅游被浪拍骨折 索赔17万
• ·聋哑男子地下通道杀2名流浪汉
• ·中国女子死于日本 男嫌犯被捕
• ·男子结5次婚出狱报复砍杀4人

下载网易新闻客户端 >

delphi idhttp 存储cookies的有关问题

收藏一些DELPHI IDHTTP源码

[delphi]indy idhttp post方法

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

下载LOFTER客户端

idhttp中对于post方法的定义：

[delphi] view plaincopyprint?

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重载方法均为嵌套使用此方法：

[delphi] view plaincopyprint?

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

参数：

[delphi] view plaincopyprint?

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类型。

示例：

[delphi] view plaincopyprint?

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

Demo下载：

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

阅读(1547)| 评论(0)

喜欢推荐转载

delphi idhttp 存储cookies的有关问题

收藏一些DELPHI IDHTTP源码

在LOFTER的更多文章

关闭

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

评论

该内容仅供欣赏。

博客风格 - 手机博客 - 下载LOFTER APP - 订阅此博客

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

加入网易博客注册