不是你看下面的呀
运行结果一直出错 不能正常使用,请高手指点
procedure TForm1.Button1Click(Sender: TObject);
const
BaseURL = 'http://www.jeez.com.cn/docc/guestbook/qianxie.asp'; //论坛所在地址
CookieNone = 0; //不保留Cookie
var
Params: TStrings;
HTML: String;
begin
Params:=TStringList.Create;
Params.Add('titles=标题测试内容');
Params.Add('messages=请管理员删除');
Params.Add('xingming=测试用户');
Params.Add('homepages=www.163.com');
Params.Add('emails=assdddd@163.com');
Params.Add('qq=11111');
Params.Add('Submit=提交');
HTML:=IdHttp1.Post(BaseURL,Params);
if Pos('http://www.jeez.com.cn/docc/guestbook/qianxie.asp',HTML)=0 then
begin
ShowMessage('登录失败');
Exit;
end;
end;