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

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;

文章整理：西部数码--专业提供域名注册、虚拟主机服务
http://www.west263.com
以上信息与文章正文是不可分割的一部分,如果您要转载本文章,请保留以上信息，谢谢!