d7的IdHTTP怎么实现访问带有访问用户名和密码的网页？

Question

d7的IdHTTP怎么实现访问带有访问用户名和密码的网页？并能将访问的内容保存下来呢？有的网页是需要输入参数的!如：http://aaa/mb2.php?recid=2004高手们请回答。已开两贴，答对200奉送！

Answer 1

http://dev.csdn.net/develop/article/29/29854.shtm使用Indy9+D7实现CSDN论坛的登录，回复，发贴，发短信功能     hnxyy [原作] 
代码片断：const
  LoginUrl='http://www.csdn.net/member/logon.asp';
  PostUrl='http://community.csdn.net/Expert/PostNew_SQL.asp';
  ReplyUrl='http://community.csdn.net/Expert/reply.asp';
  MsgUrl='http://community.csdn.net/message_board/postsend.asp';MyCookList：全局变量，取得当前用户的Cookie
IdHTTP1: TIdHTTP;登录：
function Logon(UserName, PassWord, CookieTime: string):boolean;
var
  LoginInfo: TStrings;
  Response: TStringStream;
  i: Integer;
  Cookie:string;
begin
  Result :=False;
  Cookie:='';
  MyCookList :='';
  Response := TStringStream.Create('');
  LoginInfo := TStringList.Create;
  try
    LoginInfo.Clear;
    LoginInfo.Add('login_name='+UserName);
    LoginInfo.Add('password='+PassWord);
    LoginInfo.Add('from=http://community.csdn.net/Expert/Forum.asp');
    LoginInfo.Add('cookietime='+CookieTime);
    LoginInfo.Add('x=0');
    LoginInfo.Add('y=0');                                                
    IdHTTP1.Request.Referer:='http://www.csdn.net/member/logon.asp';
    IdHTTP1.Request.From :='http://community.csdn.net/Expert/Forum.asp';
    try
      IdHTTP1.Post(LoginUrl,LoginInfo,Response);
    except
      showmessage('登陆失败');
    end;
    showmessage(Response.DataString);
    //从返回的页面中找出cookie
    for i :=0 to IdHTTP1.Response.RawHeaders.Count-1 do
    begin
      if UpperCase(Copy(IdHTTP1.Response.RawHeaders[i],1,10)) = 'SET-COOKIE' then
      begin
        Cookie :=Trim(Copy(IdHTTP1.Response.RawHeaders[i],12,MAXINT));
        Cookie :=Copy(Cookie,1,Pos(';',Cookie));
        MyCookList :=MyCookList+Cookie;
      //  showmessage(Cookie);
      end;
    end;
    IdHTTP1.Request.RawHeaders.Add('Cookie: '+MyCookList);
  finally
    LoginInfo.Free;
    Response.Free;
  end;
  if length(MyCookList)>200  then
    result:=True;
end;//回复
function Reply(TopicID, Content: string): boolean;
var
  ReplyInfo: TStrings;
  Response: TStringStream;
begin
  Result :=False;
  ReplyInfo := TStringList.Create;
  Response :=TStringStream.Create(''); 
  try
    begin
      //取回复页面
      ReplyInfo.Clear;
      ReplyInfo.Add('Topicid='+TopicID);
      ReplyInfo.Add('xmlReply=aaaaa');
      ReplyInfo.Add('csdnname='); 
      ReplyInfo.Add('csdnpassword=');
      ReplyInfo.Add('ReplyContent='+Content);      IdHTTP1.Request.CustomHeaders.Add('Cookie: '+copy(MyCookList,1,length(MyCookList)-1));  
      IdHTTP1.Request.Referer :='http://community.csdn.net/Expert/xsl/Reply_Xml.asp Topicid='+TopicID;
      IdHTTP1.Request.UserAgent:='Redhat/9.0';
      try
        IdHTTP1.Post(ReplyUrl,ReplyInfo,Response);
      except
        showmessage('回复失败');
        exit;
      end;
     // showmessage(Response.DataString);
      if pos('添加完成，正在生成静态页面，请稍候',Response.DataString)>0 then
        Result :=true;
    end;
  finally
    ReplyInfo.Free;
    Response.Free;
  end;
end;//发贴
function PostNew(RoomID, Point, TopicName,
  Content: string): boolean;
var
  PostInfo: TStrings;
  Response: TStringStream;
begin
  Result :=False;
  PostInfo := TStringList.Create;
  Response :=TStringStream.Create(''); 
  try
    begin
      //取发贴页面
      //typestate=1&Point=20&TopicName=test&Room=1404&Content=111222
      PostInfo.Clear;
      PostInfo.Add('typestate=1');
      PostInfo.Add('Point='+Point);
      PostInfo.Add('TopicName='+TopicName);
      PostInfo.Add('Room='+RoomID);
      PostInfo.Add('Content='+Content);
      IdHTTP1.Request.CustomHeaders.Add('Cookie: '+copy(MyCookList,1,length(MyCookList)-1));
      IdHTTP1.Request.CacheControl:='no-cache'; 
      IdHTTP1.Request.UserAgent:='Windows Advanced Server/5.0';
      try
        IdHTTP1.Post(PostUrl,PostInfo,Response);
      except
        showmessage('发帖失败');
        exit;
      end;
     // showmessage(Response.DataString);
      if pos('增加成功，请稍候，正在生成静态页面',Response.DataString)>0 then
        Result :=true;
    end;
  finally
    PostInfo.Free;
    Response.Free;
  end;
end;//发短信
function SendMsg(SendTo, Content: string): boolean;
var
  PostInfo: TStrings;
  Response: TStringStream;
begin
  Result :=False;
  PostInfo := TStringList.Create;
  Response :=TStringStream.Create(''); 
  try
    begin
      PostInfo.Clear;
      PostInfo.Add('Sendto='+SendTo);
      PostInfo.Add('Content='+Content);
      IdHTTP1.Request.CustomHeaders.Add('Cookie: '+copy(MyCookList,1,length(MyCookList)-1));
      try
        IdHTTP1.Post(MsgUrl,PostInfo,Response);
      except
        showmessage('发送失败');
        exit;
      end;
    //  showmessage(Response.DataString);
      if pos('发送成功',Response.DataString)>0 then
        Result :=true;
    end;
  finally
    PostInfo.Free;
    Response.Free;
  end;
end;

Answer 2

谢谢你的无私指点：还有一问
为什么在D6中的Indy示例中的HTTPClient 在D7中没有了。并且D6中的例子，在D7中也不能用了？

Answer 3

谢谢 aiirii(ari-爱的眼睛) ！
我对你的这个用法还不是很清楚，因为我不知道要访问的网站是用什么来验证的
login_name和password是验证页的变量吧？
关键是我要保存查看的网页的内容：我用如下代码。但是登录不进去。返回是没有授权查看网页，麻烦再给我说说！
    IdHTTP.Request.Username := edUsername.Text;
    IdHTTP.Request.Password := edPassword.Text;
    memoHTML.Lines.Text := IdHTTP.Get(cbURL.Text);

Answer 4

那看看這個吧
http://www.experts-exchange.com/Programming/Programming_Languages/Delphi/Q_20999625.html還有, 
>>为什么在D6中的Indy示例中的HTTPClient 在D7中没有了。并且D6中的例子，在D7中也不
indy不同版本, 有些改動!!