使用Indy9+D7实现CSDN论坛的登录，回复，发贴，发短信功能

代码片断：

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;