Delphi用IdHTTP提交自定义Cookie

下面同时对IdHttp的访问方式进行简单的说明，还是看代码吧：
function Post(AURL: string; const ASource: TStrings): string; overload;
function Post(AURL: string; const ASource: TStream): string; overload;
function Post(AURL: string; const ASource: TIdMultiPartFormDataStream): string; overload;
procedure Post(AURL: string; const ASource: TStrings; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TStream; const AResponseContent: TStream); overload;
procedure Post(AURL: string; const ASource: TIdMultiPartFormDataStream; AResponseContent: TStream); overload;
这是IdHttp进行POST方式的几个函数，就是几个参数：
第一个为URL值，第二个为本地传送的参数，第三个为服务器返回的参数（没有第三个函数的时候，返回的为服务器的参数）。
我们可以在第三个参数上面进行做文章，并可以做文件下载，读取web文件了。

get的方式如下：
procedure Get(AURL: string; const AResponseContent: TStream); overload;
function Get(AURL: string): string; overload;

参数和POST方式类型，但是没有第二个参数。

下面是IdHttp的相关例子：
HTTP.Post('http://www.test.cn/index.php',Params,ret);
showmessage(UTF8Decode(ret.DataString)); //UTF8编码的网页的代码
Cookie:='';
for i:=0 to Http.CookieManager.CookieCollection.Count -1 do
begin
   if(Cookie='') then Cookie:=HTTP.CookieManager.CookieCollection[i].CookieText else   Cookie:=_session+'; '+HTTP.CookieManager.CookieCollection.Items[i].ClientCookie;
end; //Cookie值获取