怎样将已知cookie内容赋值到IdCookieManager里？
已知cookie内容为“Cookie： XXXXXXX”，使用IdHTTP与IdCookieManager关联，如何将cookie内容赋值到IdCookieManager里？
[解决办法]
我们知道,用IE注册网页(象论坛)时,它能够自动找出相应的Cookie并提交给服务器,从而使用户不用重新登录就能够看到与他自己帐号有关的内容.这是怎么实现的呢?
如果我用用IE的ACTIVEX控件TWebBrowser,这个问题是不用考虑的,它自己处理了.但是有些场合TWebBrowser并不是上佳的选择,比如我们要从网页上取点内容下来,但是不用显示,这样也用WebBrowser的话程序就显得笨拙了.
我今天用的是idHttp,据说拿它和IdCookieManager连起来用很好用,但是我没有弄懂.我用的是别的办法,整理如下:
*取得与网址有关的Cookie
用InternetGetCookie这个API,它在WinInet单元中
有4个参数,第一个是URL,第二个设为nil,第三个指到一个变量BUFFER,存放Cookie的内容,第四个是Cookie的长度
InternetGetCookie(PChar(Edit1.Text), nil, buf, Size)
*给idHttp设置Cookie
idHttp1.Request.CustomHeaders.Text := ''Cookie: '' + Memo1.Lines.Text;
*取网页内容
Memo1.Lines.Text := idHttp1.Get(Url);
比较完整的代码如下:
procedure TForm1.Button1Click(Sender: TObject);
var
buf: array[0..1023] of char;
Size: DWord;
begin
if InternetGetCookie(PChar(Edit1.Text), PChar(Edit2.Text), buf, Size) then
begin
Memo1.Lines.Text := Buf;
idHttp1.Request.CustomHeaders.Text := ''Cookie: '' + Memo1.Lines.Text;
end
else
Memo1.Lines.Text := ''error!'';
end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Memo2.Lines.Text := IdHTTP1.Get(Edit1.Text);
end;
//提次窗体
uses MSHTML;
procedure TForm1.Button1Click(Sender: TObject);
begin
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item(''key'', 0) as IHTMLInputElement
).value := ''zswang'';
//提交
(((WebBrowser1.Document as IHTMLDocument2).body.all as
IHTMLElementCollection).item(''hlf'', 0) as IHTMLFormElement
).submit;
end;
procedure TForm1.FormCreate(Sender: TObject);
begin
WebBrowser1.Navigate('');
end;
idhttp1.Request.RawHeaders.Values[''Cookie''] := ''这里是cookie的值''; //
