此简单问题100分！！有能力的请关注下！

mostar 2010-07-06 02:46:49

用idhttp idcookiemanager 读取一指定网页的cookie。

...全文

151 10 打赏收藏转发到动态举报

写回复

用AI写文章

10 条回复

切换为时间正序

请发表友善的回复…

发表回复

taste品味 2010-07-07

打赏
举报

来学习

iqyely 2010-07-07

打赏
举报

O(∩_∩)O~呵呵，学习了。

kye_jufei 2010-07-07

打赏
举报

[Quote=引用 1 楼 supertitan004 的回复:]
Delphi(Pascal) code
procedure TForm1.Button1Click(Sender: TObject);
var
i: integer;
Request:tstringlist;
begin
Request := TStringList.Create;
try
IdHTTP1.Request.UserAgent := '……
[/Quote]
正解

slmax1 2010-07-06

打赏
举报

速度真快呀，只能来拿十分了

dongmei757 2010-07-06

打赏
举报

学习,bj

SuperTitan004 2010-07-06

打赏
举报

没办法啊，没分押宝了，争取尽快挣分到1K，就可以转分了

SQLDebug_Fan 2010-07-06

打赏
举报

泰坦手太快了。

无条件为你 2010-07-06

打赏
举报

用webbrowser也可以实现的。

xjwy 2010-07-06

打赏
举报

楼上的正确，

SuperTitan004 2010-07-06

打赏
举报

procedure TForm1.Button1Click(Sender: TObject);

var

  i: integer;

  Request:tstringlist;

begin

  Request   :=   TStringList.Create;

  try

    IdHTTP1.Request.UserAgent := '';

    IdHTTP1.Get('http://www.baidu.com/');

    if idhttp1.CookieManager.CookieCollection.Count > 0 then

      for i := 0 to idhttp1.CookieManager.CookieCollection.Count - 1 do

        Request.Add(idhttp1.CookieManager.CookieCollection.Items[i].CookieName + '=' + idhttp1.CookieManager.CookieCollection.Items[i].Value);

    memo1.Lines:=Request;

  except

    Request.Free;

  end;

end;